Решение уравнение с двумя неизвестными - QBasic

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

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

Надо решить вот такую систему уравнений: a*x+y=0 b*x+y=600 где a и b- константы, указанные ранее.

Решение задачи: «Решение уравнение с двумя неизвестными»

textual
Листинг программы
CLS
 
INPUT "A = "; a
INPUT "B = "; b
 
IF a = b THEN
   PRINT "RESHENIY NET"
ELSE
   PRINT "X ="; 600 / (b - a)
   PRINT "Y ="; 600 * a / (a - b)
END IF
 
END

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

  1. CLS — команда очистки экрана
  2. INPUT A =; a — ввод значения переменной a с помощью функции INPUT
  3. INPUT B =; b — ввод значения переменной b с помощью функции INPUT
  4. IF a = b THEN — проверка условия, если a равно b, то выполняется блок команд внутри THEN
  5. PRINT RESHENIY NET — вывод сообщения, если условие в п.4 выполняется
  6. ELSE — если условие в п.4 не выполняется, то выполняется блок команд внутри ELSE
  7. PRINT X =; 600 / (b - a) — вывод значения переменной X, которое вычисляется как 600 деленное на разность b и a
  8. PRINT Y =; 600 * a / (a - b) — вывод значения переменной Y, которое вычисляется как 600 умноженное на a, деленное на разность a и b
  9. END IF — завершение блока команд внутри IF
  10. END — завершение программы

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

12   голосов , оценка 4.333 из 5