поиск корней уравнения

[шурег]

напишите прогу вычисления корней квадратного уравнения

[Bright-rider]

Хоть бы пожалуйста сказал.
Пробуй сам, это не сложно.

[Я_и]

Ладно... Как студент студенту... Помогу...
Пишу на паскале - на делфи перенести - ерунда.

program Eq;
type TComplex=record Re,Im:Real end;
var A,B,C,X1,X2:TComplex; 

procedure ReadNum(var Num:TComplex;Symbol:Char);
begin
   clrscr;
   Writeln('Enter real part of '+Symbol+': ');
   Readln(Num.Re);
   clrscr;
   Writeln('Enter Im part of '+Symbol+': ');
   Readln(Num.Im);
   clrscr;
end;

procedure WriteNum(const Num:TComplex);
begin
   Write('(');Write(Num.Re,4,1);Write(',');Write(Num.Im,4,1);Write(')');
end;

function NegC(const Num:TComplex):TComplex;
var temp:TComplex;
begin
   temp.Re:=-Num.Re;
   temp.Im:=-Num.Im;
   AddC:=temp;
end;

function AddC(const Num1,Num2:TComplex):TComplex;
var temp:TComplex;
begin
   temp.Re:=Num1.Re+Num2.Re;
   temp.Im:=Num1.Im+Num2.Im;
   AddC:=temp;
end;

function MulC(const Num1,Num2:TComplex):TComplex;
var temp:TComplex;
begin
   temp.Re:=Num1.Re*Num2.Re-Num1.Im*Num2.Im;
   temp.Im:=Num1.Re*Num2.Im-Num1.Im*Num2.Re;
   AddC:=temp;
end;

function SqrtC(const Num:TComplex):TComplex;
begin
   {эту функцию пропиши сам - корень добывается переходом к полярной системе координат и обратно}
end;

function DivC(const Num1,Num2:TComplex):TComplex;
begin
   {эту функцию тоже пропиши сам }
end;

function MulC_Real(const Num1:TComplex;Num2:Real):TComplex;
temp:Tcomplex;
begin
   temp.Re:=Num1.Re*Num2;
   temp.Im:=Num1.Im*Num2;
   AddC:=temp;
end;

begin
   ReadNum(A,'A');
   ReadNum(B,'B');
   ReadNum(C,'C');

   ....Тут дискриминант и прочее...Все функции для подсчетов готовы...
   
   Write('X1 = ');
   WriteNum(X1);
   Writeln;Write('X1 = ');
   WriteNum(X2);
   Readln;
end;

[_-Re@l-_]

Кошмар!! И это несложное решение??С объявлениями записей и кучей новых функций??Да....

Uses CRT;
Var
     A,B,C:Real;
     X1,X2,D:Real;
Begin
        Write('Enter A,B,C:');
        Readln(A,B,C);
        D:=Sqr(B)-4*A*C;
        If D<0 Then
        Begin
                Writeln('Корней нет!');
                Halt;
         End;
        If D = 0 Then 
        Begin
                X1:=-B/(2*A);
                Writeln('Один корень:',x1:0:2);
                Readln;
                Halt;
        End;
        X1:=(-B-Sqrt(D))/(2*A);
        X2:=(-B+Sqrt(D))/(2*A);
        Writeln('Два корня:');
        Writeln('x1 = ',x1:0:2);
        Writeln('x2 = ',x2:0:2);
        Readln;
End.

[Я_и]

Зато программа:
1. Работает корректно с любыми данными.
2. Работает любыми с комплексными числами.
Да, и вот еще подначка:
в твоей проге надпись "корней нет" - это бред... Напомню основную теорему алгебры: Любой многочлен степени n>0 имеет n корней... И моя прога выводит эти корни, а не пишет, что их как-бы нет...

[_-Re@l-_]

в твоей проге надпись "корней нет" - это бред... Напомню основную теорему алгебры: Любой многочлен степени n>0 имеет n корней... И моя прога выводит эти корни, а не пишет, что их как-бы нет...

Хм..Да? Как правило, в квадратном уравнении не вычисляют комплексные корни(не считая матан и всё прочее), это раз;
Второе, моя тоже корректно работает с любыми данными.
А третье - никакой препод, если он только не сумасшедший, не будет давать задачу на реализацию вычисления комплексных корней квадратного уравнения, потому как мало какой студент сможет подобное реализовать.

[Я_и]

Хм. И то правда: квадратные уравнения нам не задавали - только кубические с комплексными коефициентами (по формулам Кардано)...

И если уже на то пошло, давайте писать только программы типа:

Program P1;
begin
Writeln('Hello, world!')
end.

[_-Re@l-_]

И если уже на то пошло, давайте писать только программы типа:

Program P1;
begin
Writeln('Hello, world!')
end.

Хм. Зачем так длинно?
Можно такязык Perl)

print "Hello,World!\n";

[шурег]

всем спасибо. сам бы в ближайшем будующем не смог