Форум АНТИЧАТ - Показать сообщение отдельно - Студентам с лабораторными сюда

Цитата:

Сообщение от Bert_HoL

Спасибо за то что есть добрые люди на свете =) По плюсигу вам =)
Но вот есть загвоздка:

"ааа...НАРОД помогите пожалуйста,буду настолько МЕГА благодарен!... =)))

" программf решающая квадратное уравнение ax(в квадрате) + bx+c=0
каэф abc что бы вводились с клавиатуры.
"

В ПАСКАЛЕ. " -
Если а равно 0 то он не решит...Помогите пожалуйста =)) БУД НУ ОЧЕНЬ ВЕСЬМА БЛАГОДАРЕН! =)Зарание спасибо.

Код:

Program Sqrt1; 
Var A, B, C, D, X1, X2 : Real; 
Begin 
Writeln ('Введите коэффициенты квадратного уравнения вида '); 
Readln (A,B,C); 
D:=B*B-4*A*C; 
if A<>0 then Begin
If D<0 Then Writeln ('Корней нет! ') 
Else 
Begin 
X1:=(-B+SQRT(D))/2/A; 
X2:=(-B-SQRT(D))/2/A; 
If X1<>X2 then
Writeln ('X1=', X1:8:3, ' X2=',X2:8:3)
else  Writeln (' Корень один ','X=',X2:8:3)
End;
End
else 
Writeln('Решений нет');
Readln;
End.

Вот самый примитивный способ....