Нужно в Pascal создать анимацию, чтобы круг двигался из угла в угол (нижний в верхний или наоборот).

Вам нужно узнать решение и ответ на вопрос Нужно в Pascal создать анимацию, чтобы круг двигался из угла в угол (нижний в верхний или наоборот). и правильно выполнить домашнюю работу по предмету Информатика? Готовое решение смотрите далее.

Нужно в Pascal создать анимацию, чтобы круг двигался из угла в угол (нижний в верхний или наоборот).

Делал как-то, когда учился в школе.
var i:integer;
x,y,ugol,xs,ys: real;
begin
xs:=100;
ys:=100;
ugol:=30;
LockDrawing;
for i:=1 to 500 do
begin
clearwindow;
x:=xs+i*sin(ugol*pi/180);
y:=ys+i*cos(ugol*pi/180);
Circle(round(x),round(y),20);
sleep(10);
Redraw;
if y+20>windowheight then break;
end;
end.

Подобные ответы

Составьте массив из 30 элементов, вывести произведение нечётных чисел, кратных трём
Составьте массив из 30 элементов, вывести произведение нечётных чисел, кратных
1. Даны вещественные числа a,b,c (a≠0). Выяснить имеет ли уравнение ax2+bx+c=0 вещественные корни. Составить программу.
1. Даны вещественные числа a,b,c a0. Выяснить имеет ли уравнение ax2bxc0 вещественные корни.
НАПИШИТЕ ПОЖАЛУЙСТА!!!
НАПИШИТЕ ПОЖАЛУЙСТА!!!
Помогите решить 10 класс информатика
Помогите решить 10 класс информатика