Một con robot di chuyển theo một chương trình định sẵn trên mặt phẳng toạ độ. Chương trình này được thể hiện dưới dạng một dãy N lệnh (1≤N≤3000). Các lệnh thuộc một trong các dạng sau:
· F S: Đi thẳng theo hướng hiện tại S bước.
· R S: Rẽ phải 900 và đi S bước.
· L S: Rẽ trái 900 và đi S bước.
Yêu cầu: Cho một chương trình điều khiển robot, hãy xác định chiều dài T đoạn đường mà con robot đã đi được, biết mỗi bước của nó dài d(cm). Ban đầu con robot đứng tại vị trí (0,0) và hướng theo chiều dương của trục hoành.
Dữ liệu: Vào từ file văn bản PATH.INP:
· Dòng đầu tiên chứa 2 số nguyên dương N và d.
· N dòng tiếp theo, mỗi dòng chứa một lệnh theo quy cách nêu trên.
Kết quả: Ghi ra file PATH.OUT chứa chiều dài T tìm được.
Ví dụ:
PATH.INP
4 1
F 5
R 7
F 2
L 9
PATH.OUT
23
Uses crt;
Trả lờiXóaVar n,i,d,tong,y:longint;
s:string;
Begin
readln(n);
readln(d);
For i:=1 to n do
Begin
readln(s);
Val(s[3],y);
tong:=tong+y*d;
end;
Write(tong);
readln;
end.
program p;
Trả lờiXóauses crt;
var huongdi:string;
n,d,i,tong,buocdi,j:longint;
begin
clrscr;
readln(n);
readln(d);
tong:=0;
for i:=1 to n do
begin
readln(huongdi);
for j:=1 to length(huongdi) do
val(huongdi[3],buocdi);
tong:=tong+buocdi*d
end;
write(tong);
readln
end.