Pascal! Написать программу, которая выводит ** экран окружность, радиус которой «растет»...

Question

Pascal!
Написать программу, которая выводит на экран окружность, радиус которой «растет» из центра
Измените программу так, что бы окружность сначала уменьшалась в радиусе, а потом увеличивалась

Answer 1

USES CRT,Graph;VAR Device,Mode:Integer;    i,x,y,s:Integer;BEGINCLRSCR;       Device:=0;       InitGraph(Device,Mode,'');       s:=100;       x:=320;       y:=240;       for i:=1 to 9 do           begin               SetLineStyle(0,0,ThickWidth);               Circle(x,y,s);               Delay(200);               SetColor(Black);               Circle(x,y,s);               s:=s-10;               SetColor(White);           end;            for i:=1 to 9 do           begin               SetLineStyle(0,0,ThickWidth);               Circle(x,y,s);               Delay(200);               SetColor(Black);               Circle(x,y,s);               s:=s+10;               SetColor(White);           end;          Circle(x,y,s);Readln;END.

Comments

Это для двух заданий?