Добавил:
hunter__3211
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:робот 1 final
.pas uses
Robot;
var
a: integer;
begin
Task('mix5');
var k: byte := 0;
while not CellIsPainted and not wallFromRight do
begin
right;
end;
while not cellIsPainted and not WallFromUp do
begin
Up;
end;
repeat
while not cellIsPainted and not wallFromLeft do
begin
while freefromleft and not cellIsPainted do
begin
left;
end;
if not cellIsPainted then
begin
down;
end;
end;
while not CellIsPainted and not WallFromRight do
begin
while not cellIsPainted and not wallFromRight do
begin
right;
end;
if not cellIsPainted then
begin
down;
end;
end;
until not cellIsFree;
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.
Robot;
var
a: integer;
begin
Task('mix5');
var k: byte := 0;
while not CellIsPainted and not wallFromRight do
begin
right;
end;
while not cellIsPainted and not WallFromUp do
begin
Up;
end;
repeat
while not cellIsPainted and not wallFromLeft do
begin
while freefromleft and not cellIsPainted do
begin
left;
end;
if not cellIsPainted then
begin
down;
end;
end;
while not CellIsPainted and not WallFromRight do
begin
while not cellIsPainted and not wallFromRight do
begin
right;
end;
if not cellIsPainted then
begin
down;
end;
end;
until not cellIsFree;
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.
Соседние файлы в предмете Алгоритмические языки и основы программирования