* Данный текст распознан в автоматическом режиме, поэтому может содержать ошибки

62 Языки Бейсик 'Программа нахождения корней квадратного уравнения 'Aх 2+Bx+C=0 'где A,B,C вводятся с клавиатуры, результат выводится 'на экран монитора p 1 : CLS 'Очистка экрана PRINT "Введите коэффициенты уравнения" INPUT "A:-"; a INPUT "B:-"; b INPUT "C:-"; c 'Вычисляем дискриминант d = b 2 — 4 * a * c 'Проверяем значение дискриминанта IFd<0THEN PRINT "Дискриминант меньше нуля. Уравнение корней не имеет!" p 2 : PRINT "Закончить работу?(0-да)" z$ = INPUT$(1) I F V A L ( z $ ) <> 0 THEN GOTO p 1 ELSE END ELSE 'Печать результатов PRINT "X1="; (-b + SQR(d)) / (2 * a) PRINT "X2="; (-b — SQR(d)) / (2 * a) GOTO p2 END I F л A