Добавил:
hunter__3211
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:РОБОТ
.pas uses
Robot;
begin
Task('w12');
// Oкаймление рамки
while FreeFromDown and FreeFromRight do
begin
Down;
Paint;
end;
while FreeFromDown and WallFromRight do
begin
Down;
Paint;
end;
while FreeFromDown and FreeFromUp do
begin
Right;
Paint;
end;
while FreeFromDown and WallFromUp do
begin
right;
Paint;
end;
while FreeFromUp and FreeFromLeft do
begin
up;
paint;
end;
while FreeFromUp and WallFromLeft do
begin
up;
paint;
end;
while FreeFromUp and FreeFromDown do
begin
left;
paint;
end;
while FreeFromUp and wallFromDown do
begin
left;
paint;
end;
end.
Robot;
begin
Task('w12');
// Oкаймление рамки
while FreeFromDown and FreeFromRight do
begin
Down;
Paint;
end;
while FreeFromDown and WallFromRight do
begin
Down;
Paint;
end;
while FreeFromDown and FreeFromUp do
begin
Right;
Paint;
end;
while FreeFromDown and WallFromUp do
begin
right;
Paint;
end;
while FreeFromUp and FreeFromLeft do
begin
up;
paint;
end;
while FreeFromUp and WallFromLeft do
begin
up;
paint;
end;
while FreeFromUp and FreeFromDown do
begin
left;
paint;
end;
while FreeFromUp and wallFromDown do
begin
left;
paint;
end;
end.
Соседние файлы в предмете Алгоритмические языки и основы программирования