Составьте программу создания изображения ** любое поле. ( Pascal ABC робот) СРОЧНО...

0 голосов
48 просмотров

Составьте программу создания изображения на любое поле. ( Pascal ABC робот) СРОЧНО НУЖНО!!!


image

Информатика (17 баллов) | 48 просмотров
Дан 1 ответ
0 голосов
Правильный ответ
//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

uses Robot;
begin
var (m,n):=(14,6);
Field(n,m);
while not(WallFromUp) do Up;
while not(WallFromLeft) do Left;
for var i:=1 to m div 2+m mod 2 do
begin
For var j:=1 to n-1 do
begin
Paint;
if i.IsEven then Left else Right;
Paint;
end;
if i<>m div 2+m mod 2 then begin Down; Down; end;
end;
end. 
(5.8k баллов)