Сформировать точку, движущуюся по эллиптической траектории с заданными параметрами - QBasic

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

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

Сформировать точку, движущуюся оп эллиптической траектории с заданными параметрами. Заранее спасибо

Решение задачи: «Сформировать точку, движущуюся по эллиптической траектории с заданными параметрами»

textual
Листинг программы
  1. CLS
  2. SCREEN 11
  3. WINDOW (-200, 150)-(200, -150)
  4.  
  5. DO
  6.    i = i + .001
  7.    x = 100 * COS(i)
  8.    y = 50 * SIN(i)
  9.    CIRCLE (x, y), 2
  10.    FOR j = 0 TO 500: NEXT
  11.    CIRCLE (x, y), 2, 0
  12. LOOP UNTIL INKEY$ <> ""
  13. END

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

В этом коде используется язык программирования QBasic. Список действий, которые выполняются в этом коде:

  1. Установка начального значения переменной i равным 0.
  2. Установка начальных значений переменных x и y равными 0.
  3. Установка размеров окна программы (координаты верхней левой и нижней правой точек) на (-200, 150) — (200, -150).
  4. Включение режима 11 (режим графики).
  5. Цикл DO, выполняющийся до тех пор, пока INKEY$ не станет пустой строкой.
  6. Внутри цикла DO происходит обновление значений переменных i, x и y. Значение переменной i увеличивается на 0,001, а значения переменных x и y вычисляются как 100COS(i) и 50SIN(i) соответственно (то есть как соответствующие координаты на эллиптической траектории).
  7. Вывод на экран двух окружностей с центром в точке (x,y) и радиусом 2.
  8. Цикл FOR, выполняющийся от 0 до 500.
  9. Вывод на экран еще одной окружности с центром в точке (x,y) и радиусом 2, с указанием направления вращения (в данном случае — против часовой стрелки).
  10. Вывод на экран информации о текущих значениях переменных i, x и y.
  11. Цикл LOOP, выполняющийся до тех пор, пока INKEY$ не станет пустой строкой.
  12. Конец программы.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

7   голосов , оценка 3.857 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы