Движение символа по кругу

@Олександр141 · Регистрация: 30.12.2015

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

Ввести любой символ в середине экрана. Нажатием клавиши Enter сделать движение этого символа по кругу с радиусом 4.

@Puporev · 11.01.2016, 18:06

Pascal

uses crt;
var i:real;
    x,y:integer;
begin
clrscr;
gotoXY(39,13);
write('O');
gotoXY(35,25);
write('Нажмите Enter');
readln;
clrscr;
i:=0;
{ячейка 8х12, поэтому по Х 4, по Y 3}
repeat
x:=40+round(4*cos(i*pi/80));
y:=13+round(3*sin(i*pi/80));
gotoXY(x,y);
write('O');
delay(50);
gotoXY(x,y);
write(' ');
i:=i+1;
until keypressed;
readln
end.

@Олександр141 0 / 0 / 0 Регистрация: 30.12.2015 Сообщений: 4
		1
	Движение символа по кругу 11.01.2016, 17:15. Показов 1621. Ответов 1 Метки нет (Все метки) Ввести любой символ в середине экрана. Нажатием клавиши Enter сделать движение этого символа по кругу с радиусом 4. 0

	11.01.2016, 18:06

Движение символа по кругу

Решение