Предмет: Информатика,
автор: Mint131
составьте программу изображения на любое поле(паскаль,робот)СРОЧНО НУЖНО!!!!!
Приложения:
Ответы
Автор ответа:
1
//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)
uses Robot;
begin
var (m,n):=(13,6);
Field(n,m);
loop m div 2 do Up;
loop n div 2 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 exit else begin Down; Down; end;
end;
end.
P.S Сделал как умею) Не умею коротко писать с роботом.
//Версия 3.3, сборка 1634 (14.02.2018)
uses Robot;
begin
var (m,n):=(13,6);
Field(n,m);
loop m div 2 do Up;
loop n div 2 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 exit else begin Down; Down; end;
end;
end.
P.S Сделал как умею) Не умею коротко писать с роботом.
Mint131:
Спасибо большое. Вот только не могли бы вы объяснить, используя только алгоритмы: следования, цикл с параметром, ветвление и с повторением(пока). Просто некоторые команды мы ещё не используем.
Может эти команды как-то можно заменить?
Что именно вы еще 'не используете'?
Вот эта команда- loop и exit.
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.
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.
Огромное спасибо.
Похожие вопросы
Предмет: Литература,
автор: MikAndLandgelo
Предмет: География,
автор: kv10az5
Предмет: Математика,
автор: n1k1tawlow
Предмет: Литература,
автор: msariyana
Предмет: Математика,
автор: hjsxxnfkkkz