[o5Replay]

Нужно создать программу про "вычисление корней квадратного
уравнения".
Вот такую:
http://rghost.ru/21455901
Сделать при этом цикл с предусловием..
Помогите написать, мне нужен код программы, ну желательно скинуть всё, я там посмотрю, разберусь.

[Страдалецъ]

Вы разделом форума ошиблись. Тут помогают вам сделать, а вот сделать за вас это в раздел Работа.

[chainik]

Код:

program Project1;

{$APPTYPE CONSOLE}

uses Math;

var
A,B,C: extended;
begin
writeln('┬тхфшЄх шёїюфэ√х фрээ√х');
write('A: '); readln(A);
write('B: '); readln(B);
write('C: '); readln(C);

if (B*B-4*A*C) < 0 then writeln('═хЄ ъюЁэхщ')
else 
   begin
   writeln('X1: ',(-B+sqrt(B*B-4*A*C))/2/A);
   writeln('X2: ',(-B-sqrt(B*B-4*A*C))/2/A);
   end;


readln;
end.

И это все. Можно и самому подумать....
Причем здесь цикл с предусловием- спроси у своего препода.....