Решить квадратное уравнение при помощи процедур - QBasic

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

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

Нужно сделать квадратное уравнение при помощи процедур. Программа не работает, пожалуйста исправьте ошибку. Вот мой код:

Решение задачи: «Решить квадратное уравнение при помощи процедур»

textual
Листинг программы
DECLARE SUB dva (a!, b!, d!, x!, y!)
DECLARE SUB odin (a!, b!, d!, x!)
CLS
 
DO
   INPUT "A = "; a
   IF a = 0 THEN PRINT "A = 0"
LOOP UNTIL a <> 0
INPUT "B = "; b
INPUT "C = "; c
d = b ^ 2 - 4 * a * c
 
IF d > 0 THEN CALL dva(a, b, d, x, y): PRINT "x ="; x; "y ="; y
IF d = 0 THEN CALL odin(a, b, d, x): PRINT "x ="; x
IF d < 0 THEN PRINT "KORNEI NET"
 
END
 
 
SUB dva (a, b, d, x, y)
   x = (-b + SQR(d)) / (2 * a)
   y = (-b - SQR(d)) / (2 * a)
END SUB
 
SUB odin (a, b, d, x)
   x = -b / (2 * a)
END SUB

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

  1. У нас есть две процедуры: dva и odin.
  2. В основной программе мы сначала запрашиваем у пользователя коэффициенты a и b уравнения.
  3. Затем вычисляем дискриминант d как b^2 - 4ac.
  4. Если d больше нуля, то вызываем процедуру dva и выводим значения x и y.
  5. Если d равно нулю, то вызываем процедуру odin и выводим значение x.
  6. Если d меньше нуля, то выводим сообщение KORNEI NET.
  7. В процедуре dva вычисляем значения x и y как (-b + SQR(d)) / (2a) и (-b - SQR(d)) / (2a) соответственно.
  8. В процедуре odin вычисляем значение x как -b / (2a).

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

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