Question

составьте программу рисования ряда одинаковых цветков с использованием процедуры Flower​

Answer 1

Ответ:uses GraphABC;

procedure flower(x:integer);

begin

MoveTo (x,50);

LineTo (x-20,30);

LineTo (x,10);

LineTo (x+20,30);

LineTo (x,50);

LineTo (x,80);

LineTo (x+13,47);

end;

var x,i:integer;

begin

SetWindowWidth(800);

SetWindowHeight(90);

SetPenWidth(2);

x:=50;

for i:=1 to 11 do

begin

flower(x);

x:=x+70;

end

end.

Объяснение: