Добавил:
hunter__3211
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:робот робот
.pas uses
Robot;
var
a: integer;
begin
Task('mix5');
var k: byte := 0;
while not WallFromRight do
begin
if cellIsPainted then begin
while not WallFromDown do
begin
down;
paint;
inc(k);
end;
for var i := 1 to k do up;
a := 0;
while not WallFromLeft do
begin
k := 0;
left;
paint;
a := a + 1
end;
for var i := 1 to a do right;
a := 0;
while not WallFromRight do
begin
right;
paint;
a := a + 1;
end;
for var i := 1 to a do left;
a := 0;
while not WallFromUp do
begin
up;
paint;
a := a + 1;
end;
for var i := 1 to a do down;
end;
end;
end.
Robot;
var
a: integer;
begin
Task('mix5');
var k: byte := 0;
while not WallFromRight do
begin
if cellIsPainted then begin
while not WallFromDown do
begin
down;
paint;
inc(k);
end;
for var i := 1 to k do up;
a := 0;
while not WallFromLeft do
begin
k := 0;
left;
paint;
a := a + 1
end;
for var i := 1 to a do right;
a := 0;
while not WallFromRight do
begin
right;
paint;
a := a + 1;
end;
for var i := 1 to a do left;
a := 0;
while not WallFromUp do
begin
up;
paint;
a := a + 1;
end;
for var i := 1 to a do down;
end;
end;
end.
Соседние файлы в предмете Алгоритмические языки и основы программирования