МД
Михаил Д*************
Решите, очень надо....
..
Составьте программу рисования окружностей с центром в точке (200,200) и радиусами 10, 20,30,40,50( примените команду FOR)
Pascal ABC
..
Составьте программу рисования окружностей с центром в точке (200,200) и радиусами 10, 20,30,40,50( примените команду FOR)
Pascal ABC
program gr;
uses graphABC,crt;
var
x,y:integer;
i,r:integer;
m:array [1..5] of integer;
begin
SetBrushColor(clred);
for i:=0 to 4 do begin
x:=200 ;
y:=220 ;
r:=10+10*i;
delay(1000);
circle(x,y,r);
end;
end.
язык?