блок-схема к задаче 1; программа к задаче 1 на языке программирования, набранная в соответствующей среде - id1178172620220602 от Alina2496 02.06.2022 09:10

Question

Информатика: блок-схема к задаче 1; программа к задаче 1 на языке программирования, набранная в соответствующей среде программирования (скрин); результат работы программы (скрин) 5) блок-схема к задаче 2; программа к задаче 2 на языке программирования, набранная в соответствующей среде программирования (скрин); результат работы программы (скрин) 6) блок-схема к задаче 3; программа к задаче 3 на языке программирования, набранная в соответствующей среде программирования (скрин); результат работы программы (скрин)

Alina2496 · Accepted Answer

Uses GraphABC;procedure P1(x,y:integer);begincircle(x,y,10);floodfill(x,y,clyellow);ellipse(x-15,y+10,x+15,y+70);floodfill(x,y+20,clyellow);line(x,y+70,x-15,y+100);line(x,y+70,x+15,y+100);end;procedure P2(x,y:integer);begincircle(x,y,10);floodfill(x,y,clyellow);ellipse(x-15,y+10,x+15,y+70);floodfill(x,y+20,clyellow);line(x,y+70,x,y+100);end;var x,y,i:integer;beginx:=40;y:=100;i:=1;repeat LockDrawing; ClearWindow(clgreen); setpenwidth(3);  if odd(i) then P1(x,y)  else P2(x,y); setpenwidth(10);  line(0,y+100,windowwidth,y+100); Redraw; Sleep(500); x:=x+5; i:=i+1;until...

MOGZ ответил