составьте программу которая рисует красные круги радиуса 30 по вертикали вдоль левого края графического окна
Ответы
Ответ дал:
1
program krug;
uses graphabc;
var x,y,r,i:integer;
begin
setwindowsize (640,480);
setwindowtitle ('Êðóã');
setpencolor (clred);
setpenwidth (4);
x:=50;
y:=50;
r:=40;
for i:=1 to 10 do
begin
circle(x,y,r);
x:=x+80;
end;
end.
Такое пойдёт?
uses graphabc;
var x,y,r,i:integer;
begin
setwindowsize (640,480);
setwindowtitle ('Êðóã');
setpencolor (clred);
setpenwidth (4);
x:=50;
y:=50;
r:=40;
for i:=1 to 10 do
begin
circle(x,y,r);
x:=x+80;
end;
end.
Такое пойдёт?
каках228:
ДА. СПАСИБО
Вас заинтересует
4 месяца назад
4 месяца назад
1 год назад
1 год назад
7 лет назад