Question

ДАЮ 40 БАЛЛОВ СРОЧНО

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

Answer 1

Ответ:

uses GraphABC;procedure flower(x:integer);beginMoveTo (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;beginSetWindowWidth(800);SetWindowHeight(90);SetPenWidth(2);x:=50;for i:=1 to 11 dobeginflower(x);x:=x+70;endend.