Question

Как нарисовать с помощью процедуры такое
РЕБЯТА СРОЧНО НАДО ДАЮ 100 БАЛОВ ЕСЛИ РАБОЧИЙ СПОСОЬ ПИШИТЕ ЦВЕТЫ Я СДЕЛАЛА НАПИШИТЕ ПЖ КАК СДЕЛАТЬ СОЛНЦЕ И ПТИЦ С ПОМОЩЬЮ ПРОЦЕДУР !!!!!!

Answer 1

Ответ:

(см. объяснение)

Объяснение:

program myPicture;

uses GraphABC;

//Выбор цвета

procedure colorPicker(color: String);

begin

 if(color='purple') then setBrushColor(clPurple)

 else if(color='yellow') then setBrushColor(clYellow)

 else if(color='blue') then setBrushColor(clBlue)

 else if(color='green') then setBrushColor(clGreen)

 else if(color='aqua') then setBrushColor(clSkyBlue)

 else if(color='orange') then setBrushColor(clOrange);

end;

//Рисует цветы

procedure drawFlower(x, y: integer; color: string);

begin

 colorPicker(color);

 fillCircle(x-45, y, 30);

 fillCircle(x, y-45, 30);

 fillCircle(x+45, y, 30);

 fillCircle(x, y+45, 30);

 setBrushColor(clYellow);

 fillCircle(x, y, 15);

 setPenColor(clGray);

 moveTo(x, y+75);

 lineTo(x, y+300);

end;

//Рисует птиц

procedure drawBird(x, y: integer);

begin

 setPenColor(clBlack);

 setPenWidth(5);

 moveTo(x, y);

 lineTo(x+50, y-40);

 lineTo(x+60, y-15);

 lineTo(x+70, y-40);

 lineTo(x+100, y);

end;

begin

 SetWindowIsFixedSize(true);

 setWindowSize(1000, 700);

 setWindowCaption('Программа написана MrSolution! Решение подготовлено для вопроса на znanija.com: https://znanija.com/task/34803983');

 setBrushColor(clYellow);

 fillCircle(850, 150, 100);

 drawFlower(200, 545, 'purple');

 drawFlower(400, 545, 'blue');

 drawFlower(480, 535, 'green');

 drawFlower(630, 495, 'orange');

 drawFlower(550, 515, 'aqua');

 drawBird(300, 100);

 drawBird(370, 170);

 drawBird(570, 230);

 drawBird(590, 280);

 drawBird(780, 130);

end.