Нужен код!! Подскажите плз кто знает турбо паскаль
нужен код который будет высчитывать ответ уравнения ax+bx+cx=0 где первый х в квадрате!
Например я пишу коэффициенты а=1,b=2,c=3 и он сразу ответ выводит
Раздел: Платежные системы, последний комментарий: 27.10.2010 13:28
Оно?
Program Kvadrat;
uses crt;
var
A,B,C: real;
X1, X2: real;
D:real;
begin
clrscr;
writeln ('Wedite koeficient A,B,C');
readln (A,B,C);
if A=0
then if B=0
then writeln ('Uravnenie vyrazhdeno')
else writeln ('Edinstveniy koren x=',-C/B:6:3)
else
begin
D:=B*B-4*A*C;
A:=2*A;
if D
Program Sq2;
Var A, B, C, D, X, X1, X2 : Real;
Begin
Writeln ('Введите коэффициенты уравнения (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