Нельзя преобразовать тип integer к char. Как это исправить? Var F, L, R, S : char; a, b : integer; begin a : = 0; b : = 0; F : = 1; L : = 0; R : = 0; S : = 0; Assign(input,'input.txt'); Reset(input); Assign(output,'output.txt'); Rewrite(output); Read(F,L,R,S); if F then begin a : = a+F end; if L then begin b : = b+L end; if R then begin b : = b-R end; if S then begin a : = a+S; b : = b+S end; write(a,b); End.
35
ОТВЕТЫ
//Не смотрел Ваш код, просто моё видение решения задачи
//PascalABC.NET 3.2 сборка 1318
Var
t:text;
x,y,i,j:integer;
s:string;
c:char;
world:array[1..4] of char=(E,S,W,N);
begin
j:=1;
c:=E;
assign(t,input.txt);
reset(t);
read(t,s);
close(t);
i:=1;
while s[i]lt;gt;S do
begin
if s[i]=R then
begin
if c=N then j:=1 else inc(j);
c:=world[j];
end;
if s[i]=L then
begin
if c=E then j:=4 else dec(j);
c:=world[j];
end;
if s[i]=F then
case c of
E:inc(x);
S:dec(y);
W:dec(x);
N:inc(y);
end;
inc(i);
end;
assign(t,output.txt);
rewrite(t);
write(t,x, ,y);
close(t);
end.
Пример содержимого input.txt:
FLFS
Пример содержимого output.txt:
1 1
//PascalABC.NET 3.2 сборка 1318
Var
t:text;
x,y,i,j:integer;
s:string;
c:char;
world:array[1..4] of char=(E,S,W,N);
begin
j:=1;
c:=E;
assign(t,input.txt);
reset(t);
read(t,s);
close(t);
i:=1;
while s[i]lt;gt;S do
begin
if s[i]=R then
begin
if c=N then j:=1 else inc(j);
c:=world[j];
end;
if s[i]=L then
begin
if c=E then j:=4 else dec(j);
c:=world[j];
end;
if s[i]=F then
case c of
E:inc(x);
S:dec(y);
W:dec(x);
N:inc(y);
end;
inc(i);
end;
assign(t,output.txt);
rewrite(t);
write(t,x, ,y);
close(t);
end.
Пример содержимого input.txt:
FLFS
Пример содержимого output.txt:
1 1
21
Отв. дан
Thoswyn
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Математика
Gadwyn
Определите число которое не является делителелем числа 108 A) ...
2018-09-23 00:00:00
Umgar
Про кого з героiв "iнститутка" говориться: "сказано, добрий пан ...
2018-09-23 00:00:00
Nilalar
Нравятся ли вам герои Франсуа Рабле? Почему писателя увлекали ...
2018-09-23 00:00:00
Malore
Разбор слова дома под цифрой 3 ...
2018-09-23 00:00:00