Найти тройку натуральных чисел, которая является тройкой Пифагора - QBasic

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

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

Напишите на языке программирования qbasic, чтобы тройка натуральных чисел являлась тройкой т.Пифагора, т.е. c^2=a^2+b^2

Решение задачи: «Найти тройку натуральных чисел, которая является тройкой Пифагора»

textual
Листинг программы
 REM Пифагоровы тройки
    DIM x, m, i AS INTEGER
    DIM z AS SINGLE
    CLS
    FOR x = 3 TO 100 STEP 2
       FOR y = 4 TO 100 STEP 2
          z = SQR(x * x + y * y)
          IF z <> INT(z) THEN 1
          IF x < y THEN m = x ELSE m = y
          FOR i = 2 TO m \ 2 + 1
             IF x MOD i = 0 AND y MOD i = 0 THEN 1
          NEXT i
          PRINT x, y, z
    1  NEXT y
    NEXT x
    END

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

В этом коде выполняется поиск пифагоровых троек. Вот список действий, которые происходят в коде:

  1. Объявление переменных:
    • x, m, i (целые числа)
    • z (число с плавающей точкой)
  2. Очистка экрана
  3. Поиск пифагоровых троек:
    • Переменная x принимает значения от 3 до 100 с шагом 2
    • Переменная y принимает значения от 4 до 100 с шагом 2
    • Вычисляется значение z как квадратный корень из суммы квадратов x и y
    • Если z не является целым числом, то выполняется следующий блок кода
    • Если x меньше y, то m принимает значение x, иначе m принимает значение y
    • Для i от 2 до (m / 2) + 1 проверяется, делится ли x и y на i без остатка
    • Если x и y делятся на i без остатка, то выполняется следующий блок кода
    • Выполняется печать значений x, y и z
    • Переход к следующему значению y
    • Переход к следующему значению x
  4. Конец программы

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

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