Текст программы решения квадратного уравнения в среде turbo pascal 7. сам вообще не соображаю. , .

skZ1 skZ1    1   20.03.2019 18:50    0

Ответы
жук234 жук234  26.05.2020 09:21

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

 

Решение не мое,так как на составления данного кода,не хватило бы времени. 

ПОКАЗАТЬ ОТВЕТЫ
Даша182005 Даша182005  26.05.2020 09:21

Program Sq2;
Var A, B, C, D, X, X1, X2 : Real;
Begin
Writeln ('Введите коэффициенты уравнения (A, B, C) ');
readln(a,b,c);
If A=0 Then
If B=0 Then
If C=0 Then Writeln   ('X - любое число')
Else Writeln          ('Корней нет! ')

Если что-то не так переделаю

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика