Составить блок-схему к готовому коду - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Решение задачи: «Составить блок-схему к готовому коду»

textual
Листинг программы
program Aruzhan;
uses graphabc;
var i:integer;
begin
setwindowwidth (800);
setwindowheight (600);
centerwindow;
lockDrawing;
for I:=1 to 200 do
 begin
  ClearWindow;
  setbrushcolor (clyellow);
  circle (60+5*I,50,40);
  setpencolor (clblue);
  setbrushcolor (clblue);
  rectangle (500,500,0,300);
  setpencolor(clGreen);
  setbrushcolor(clGreen);
  rectangle(800,383,0,800);
  setpencolor(clBrown);
  setbrushcolor(clBrown);
  RoundRect(200, 300, 600, 350, 20, 20);
  setpencolor(clBlack);
  setbrushcolor(clBlack);
  Circle(290, 350, 30);
  Circle(510, 350, 30);
  Line(300, 300, 340, 250);
  Line(340, 250, 470, 250);
  Line(470, 250, 510, 300);
  Line(405, 250, 405, 350);
  Line(510, 300, 510, 320);
  Line(300, 300, 300, 320);
  Line(380, 310, 390, 310);
  Line(480, 310, 490, 310);
  Line(300, 300, 510, 300);
  SetPenColor(clgreen);
  Circle(510, 350, 10);
  Circle(290, 350, 10);
  setpencolor (clblack);
  setbrushcolor (clblack);
  rectangle (90, 90, 210, 450 );
  if i mod 21 in [1..10] then
   begin
    setpencolor (clred);
    setbrushcolor (clred);
   end
  else
   begin
    setpencolor (clblack);
    setbrushcolor (clblack);
   end;
  circle (150, 150, 50);
  setpencolor (clyellow);
  setbrushcolor (clyellow);
  circle (150, 260, 50);
  setpencolor (clgreen);
  setbrushcolor (clgreen);
  circle (150, 370, 50);
  setpencolor (clblack);
  setbrushcolor (clblack);
  rectangle (140, 450, 160, 600) ;
  sleep(50);
  redraw;
 end;
unlockdrawing;
setpencolor (clred);
setbrushcolor (clred);
circle (150, 150, 50);
end.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 3.6 из 5
Похожие ответы