75

Текст программы решения квадратного уравнения в среде Turbo Pascal 7. Сам вообще не…

06 апреля 2023

Текст программы решения квадратного уравнения в среде Turbo Pascal 7. Сам вообще не соображаю. Помогите, пожалуйста.

категория: информатика

91

Program Sq2; Var A, B, C, D, X, X1, X2: Real; BeginWriteln ('Введите коэффициенты уравнения (A, B, C) '); readln (a,b,c); If A=0 ThenIf B=0 ThenIf C=0 Then Writeln ('X — любое число') Else Writeln ('Корней нет! ') Else Begin X: =-C/B; Writeln ('X=',X: 8:3); EndElseBeginD: =B*B-4*A*C; If D<0 Then Writeln ('Корней нет! ') ElseBeginX1: =(-B+SQRT (D) /2/A; X2: =(-B-SQRT (D) /2/A; Writeln ('X1=', X1:8:3, ' X2=',X2:8:3); End; End; End. Решение не мое, так как на составления данного кода, не хватило бы времени.

Знаете ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...