Составить блок-схему к готовому коду - 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д