Pascal ABC

[Veron_20]

помогите написать программу в Pascal ABC пожалуйста!!!! c циклом for

[rubius2008]

какую? условие? твои наработки?

[Veron_20]

мне сказали нарисовать это, и сказали половину взять с этой программы,

uses graphABC,crt;
var x,y,r:integer;
begin
randomize;
setwindowsize(600,600);
rectangle(10,300,200,320);
floodfill(90,310,cllime);
r:=5;
y:=310;
for x:=205 to 300 do
begin
setpencolor(clred);
circle(x,y,r);
floodfill(x,y,rgb(random(255),random(255),random(255)));
delay(20);
setpencolor(clwhite);
circle(x,y,r);
floodfill(x,y,clwhite);
delay(20);
r:=r+1;
{x:=x+10;}
end;
end.

все убрать кроме пузыря

[rubius2008]

дак убери рисование прямоугольника и заливку его

[Veron_20]

у меня же не анимация

как что бы это три круга были

[rubius2008]

for i:=1 to 3 do begin
circle(x,y,r+dr*(i-1));
end;

x,y,r определи ранее

[Veron_20]

помоги у меня не получаеться

[rubius2008]

uses graphABC;
var x,y,r,i,dr:integer;
begin
randomize;
setwindowsize(600,600);
dr:=10;
r:=100;
x:=300; y:=300;
for i:=1 to 3 do begin
circle(x,y,r-dr*(i-1));
end
end.

так надо?

[Veron_20]

спасибо большое тебе огромное

[Veron_20]

а там должен низ вместе, а верх по радиусам