Найти количество точек треугольника, принадлежащих осям координат - QBasic

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

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

Найдите количество точек треугольника с вершинами (x1,y1) (x2,y2) (x3,y3) принадлежащих осям координат.

Решение задачи: «Найти количество точек треугольника, принадлежащих осям координат»

textual
Листинг программы
  1. CLS
  2. RANDOMIZE TIMER
  3.  
  4. x1 = 40 * RND - 20
  5. y1 = 40 * RND - 20
  6. x2 = 40 * RND - 20
  7. y2 = 40 * RND - 20
  8. x3 = 40 * RND - 20
  9. y3 = 40 * RND - 20
  10.  
  11. IF x1 * x2 <= 0 THEN k = k + 1
  12. IF x2 * x3 <= 0 THEN k = k + 1
  13. IF x3 * x1 <= 0 THEN k = k + 1
  14. IF y1 * y2 <= 0 THEN k = k + 1
  15. IF y2 * y3 <= 0 THEN k = k + 1
  16. IF y3 * y1 <= 0 THEN k = k + 1
  17.  
  18. PRINT "Kol ="; k
  19. END

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

  1. Создается переменная k и инициализируется значением 0.
  2. Генерируются случайные значения для переменных x1, y1, x2, y2, x3, y3 в диапазоне от -20 до 20.
  3. Проверяется условие x1*x2 <= 0. Если оно истинно, то значение переменной k увеличивается на 1.
  4. Проверяется условие x2*x3 <= 0. Если оно истинно, то значение переменной k увеличивается на 1.
  5. Проверяется условие x3*x1 <= 0. Если оно истинно, то значение переменной k увеличивается на 1.
  6. Проверяется условие y1*y2 <= 0. Если оно истинно, то значение переменной k увеличивается на 1.
  7. Проверяется условие y2*y3 <= 0. Если оно истинно, то значение переменной k увеличивается на 1.
  8. Проверяется условие y3*y1 <= 0. Если оно истинно, то значение переменной k увеличивается на 1.
  9. Выводится значение переменной k.

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


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

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

8   голосов , оценка 4.125 из 5

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

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

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