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

Узнай цену своей работы

Формулировка задачи:

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

Решение задачи: «Движение символа по кругу»

textual
Листинг программы
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.

Объяснение кода листинга программы

  1. В начале кода подключается библиотека crt, которая является стандартной для Turbo Pascal и используется для работы с консолью.
  2. Переменная i объявляется как real, что позволяет ей хранить числовые значения с плавающей точкой.
  3. Переменные x и y объявляются как integer, что позволяет им хранить целые числа.
  4. Функция gotoxy() используется для перемещения курсора на указанные координаты. В данном случае, курсор перемещается на экран (39,13), чтобы отобразить символ 'O', а затем на (35,25) для отображения сообщения Нажмите Enter.
  5. Строка clrscr() используется для очистки экрана перед началом нового цикла.
  6. Переменная i инициализируется значением 0.
  7. Цикл repeat используется для непрерывного повторения блока кода до тех пор, пока не будет нажата клавиша.
  8. Внутри цикла переменные x и y инициализируются значениями, полученными из функций cos() и sin() соответственно. Координаты (40+round(4cos(ipi/80)), 13+round(3sin(ipi/80)) используются для перемещения курсора на экран.
  9. Символ 'O' отображается на экране с помощью функции write().
  10. Функция delay(50) используется для задержки выполнения программы на 50 миллисекунд.
  11. После каждого перемещения курсора на экран, переменная i увеличивается на 1.
  12. Цикл продолжается до тех пор, пока не будет нажата клавиша.
  13. После окончания цикла, функция readln() используется для чтения нажатой клавиши.
  14. Конец программы.

Оцени полезность:

9   голосов , оценка 3.889 из 5
Похожие ответы