Предмет: Информатика, автор: Ordinarypupil

Как написать программу для движения окружности(вниз и вправо) в паскале ? помогите пожалуйста

Ответы

Автор ответа: hgghhh
0
var i:integer;  n,k:real;  begin   n:=10; k:=10;   for i:=1 to 6 do    begin     n:=1.1*n;     k:=k+n;    end;   writeln(k:5:2);  end

hgghhh: dx:=-1;
dy:=3;
repeat
setcolor(12);
circle(x,y,r);
delay(10);
setcolor(0);
circle(x,y,r);
x:=x+dx;
y:=y+dy;
if x<=x0-d+r+2 then dx:=1
else if y>=y0+d-r-2 then dy:=-1
else if x>=x0+d-r-2 then dx:=-1
else if y<=y0-d+r+2 then dy:=1;
until keypressed;
end.
Похожие вопросы
Предмет: Английский язык, автор: Shikota
Предмет: Математика, автор: alinamironuk14