Написать программу на языке pascal решения квадратного уравнения. программа должна проверять правильность введенных пользователем данных и в случае, если коэффициент при второй степени неизвестного равен нулю, выводить соответствующее сообщение.

253

338

Посмотреть ответы 2

Ответы на вопрос:

yagodka343

Информатика

4,5(79 оценок)

program uravnenie; var a, b, c: integer; d, x1, x2: real; begin writeln('р е ш е н и е к в а д р а т н о г о у р а в н е н и я'); writeln('ax^2 + bx + c = 0'); writeln('введите коэффициент a'); readln(a); if (a < > 0) then beginwriteln('введите коэффициент b'); readln(b); writeln('введите коэффициент c'); readln(c); d : = sqr(b) - 4 * a * c; if (d > 0) then begin x1 : = (-b - sqrt(d)) / (2 * a); x2 : = (-b + sqrt(d)) / (2 * a); writeln('x1 = ', x1 : 5 : 4); writeln('x2 = ', x2 : 5 : 4); end else if (d = 0) then begin x1 : = -b / (2 * a); writeln('x = ', x1 : 5 : 4); end else writeln('данное уравнение не имеет корней') end else writeln('данное уравнение не является квадратным')end.