Движение окружности по диагонали из правого верхнего в левый нижний угол экрана

@yoda318 · Регистрация: 09.10.2018

Author24 — интернет-сервис помощи студентам

Сделайте программу, пожалуйста.

Написать программу движения по экрану окружности радиусом 10 по диагонали из правого верхнего в левый нижний угол экрана.

@Puporev · 09.10.2018, 08:40

Паскаль какой?

Добавлено через 6 минут
Для АВС.

Pascal

uses graphABC;
var x,y,r:integer;
begin
setwindowsize(500,500);
centerwindow;
r:=10;
x:=windowwidth-r;
y:=r;
setpenwidth(2);
setpencolor(clRed);
lockdrawing;
repeat
clearwindow;
circle(x,y,r);
sleep(50);
x:=x-5;
y:=y+5;
redraw;
until x<=r;
end.

@yoda318 0 / 0 / 0 Регистрация: 09.10.2018 Сообщений: 3
		1
	Движение окружности по диагонали из правого верхнего в левый нижний угол экрана 09.10.2018, 08:23. Показов 6036. Ответов 1 Метки нет (Все метки) Сделайте программу, пожалуйста. Написать программу движения по экрану окружности радиусом 10 по диагонали из правого верхнего в левый нижний угол экрана. 0

	09.10.2018, 08:40

Движение окружности по диагонали из правого верхнего в левый нижний угол экрана

Решение