機械人提公升重物帕斯卡

在網際網絡上查詢“推箱子”

var ch:string;

i:integer;

s:array [(x,y)] of -1000..10000;

beginreadln(ch);

for i:=1 to 255 do

case ch[i] of

n':s[y]:=s[y]+1;

s':s[y]:=s[y]-1;

w':s[x]:=s[x]-1;

e':s[x]:=s[x]+1;

end;writeln(s[x],' ',s[y]);

end.儲存乙個空白檔案，然後關閉它，用記事本開啟儲存的檔案，然後直接複製它。 格式化自己。 給我最好的。 好吧？

如果您沒有使用 turbo pascal，請將 'string' 的第一行更改為 'packed array [ of char'。

怎麼這麼簡單......

我們的問題比你的問題更難。

字串的長度不受限制。

走路時，它會以機械人的角度旋轉。

也就是說，在向東轉動後的開始（0,0）。

他的方向不是面向北方。

相反，它面向東方。

我的主題如下。

機械人嚴格按照指令行走，由於是原始裝置，只能發出以下4個命令：g：直行乙個單位; l：

向左轉，向前移動乙個單位; r：右轉，向前移動乙個單位; s：停止移動，並關閉機械人。

機械人與指令無關，但不對任何其他指令執行任何操作。

現在機械人開啟機械人接收命令並將其放置在 （0,0） 坐標中; 預設方向是北（n），接到一系列命令後詢問，機械人的坐標是**？ 取向**？ （分別表示方向東南、西北和 ESWN）。

輸入格式：字串（任意長度的字串）。

輸出格式] x，y），f（機械人的停止坐標，f表示此時機械人所面對的方向，坐標與方向之間有空格）。

輸入和輸出樣本]。

輸入：grlrrlrrs

輸出： （2,0） W

構建兩個陣列 a，b：[.]'a'..z'動組行] 的整條，則為 i：=1 至 length（a1） do 沈聰 a1 是第乙個機械人的名稱。

inc(a[a1[i]])

B1採用相同的組騷法處理;

for x:='a' to 'z' do

if (a[x]>0) and (b[x]>0) then c1:=c1+i;

輸出。 就是這樣，程式自己想，我不會玩。