Помогите это инфоривтика нужно написать программу ( вспомогательные алгоритмы и...

Question

Помогите это инфоривтика нужно написать программу ( вспомогательные алгоритмы и подолгаритмы)
Написать программу на узор который дан на фото ниже сроочнооо за ответ 25 БАЛЛОВ

---

Comments

В какой программе...

Answer 1

Uses graphABC;
var x1,y1,x2,y2,k:integer;

procedure paintline(var x1,y1,x2,y2,k:integer);
begin;
x1:=x2;
y1:=y2;
x2:=x2+10;
line(x1,y1,x2,y2);
x1:=x2;
y2:=y2-10;
line(x1,y1,x2,y2);
y1:=y2;
x2:=x2+10;
line(x1,y1,x2,y2);
x1:=x2;
y2:=y2+10;
line(x1,y1,x2,y2);
inc(k);
if k<3 then paintline(x1,y1,x2,y2,k);<br>end;

begin;
x2:=20;
y2:=20;
k:=0;
paintline(x1,y1,x2,y2,k);
x1:=x2;
y1:=y2;
x2:=x2+10;
line(x1,y1,x2,y2);
end.

Comments

Более чем исчерпывающий ответ. Программа рисует нужный Вам узор. Я даже рекурсию написала. А в чём тогда заключался вопрос?

---

Это и есть программа. В какой среде нужна программа?