Предмет: Информатика,
автор: Ordinarypupil
Как написать программу для движения окружности(вниз и вправо) в паскале ? помогите пожалуйста
Ответы
Автор ответа:
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
Похожие вопросы
Предмет: Математика,
автор: ovcarovapolina015
Предмет: Английский язык,
автор: Shikota
Предмет: Математика,
автор: alinamironuk14
Предмет: Алгебра,
автор: ankakundas
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.