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

Question

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

---

Answer 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 Сделал как умею) Не умею коротко писать с роботом.

Comments

Спасибо большое. Вот только не могли бы вы объяснить, используя только алгоритмы: следования, цикл с параметром, ветвление и с повторением(пока). Просто некоторые команды мы ещё не используем.

---

Может эти команды как-то можно заменить?

---

Что именно вы еще 'не используете'?

---

Вот эта команда- 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.

---

Огромное спасибо.