Даны натуральные числа N и M. Найти такие натуральные числа P и Q, что P/Q = M/N. - QBasic

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

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

Помогите, пожалуйста, решить задачку. Даны натуральные числа N и M. Найти такие натуральные числа P и Q, что P/Q = M/N.

Решение задачи: «Даны натуральные числа N и M. Найти такие натуральные числа P и Q, что P/Q = M/N.»

textual
Листинг программы
  1. CLS
  2. RANDOMIZE TIMER
  3. INPUT "Vvedite M(chislitel) : ", M
  4. INPUT "Vvedite N(Znamenatel): ", N
  5. f=1
  6. DO
  7.   P = M * f
  8.   Q = N * f
  9.   f = f + 1
  10.   PRINT "P ="; P, "Q ="; Q
  11. LOOP UNTIL f > 15

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

  1. CLS - очистка экрана
  2. RANDOMIZE TIMER - установка случайного числа в качестве начальной точки для генератора случайных чисел
  3. INPUT Vvedite M(chislitel) :, M - ввод значения переменной M с клавиатуры
  4. INPUT Vvedite N(Znamenatel):, N - ввод значения переменной N с клавиатуры
  5. f=1 - инициализация переменной f единицей
  6. DO - начало цикла
  7. P = M * f - вычисление значения переменной P как произведение M и f
  8. Q = N * f - вычисление значения переменной Q как произведение N и f
  9. f = f + 1 - увеличение значения переменной f на единицу
  10. PRINT P =; P, Q =; Q - вывод значений переменных P и Q на экран
  11. LOOP UNTIL f > 15 - продолжение цикла до тех пор, пока значение переменной f не станет больше 15

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


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

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

15   голосов , оценка 3.733 из 5

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

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

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