возврат к началу

[ROMA2PVT]

конечно выдаст ошибку.

[sergio11]

здесь можно через if сделать. чтобы при D<0 программа выводила что D<0 вот и всё! можно сделать если d=0 то выводить только x

[ROMA2PVT]

http://kvadur.info/
http://http://ru.wikipedia.org/wiki/...B0%D0%BD%D1%82

var
a,b,c,x1,x2,d,kl,x:real;
y:integer;
begin
repeat
write('A=');
read(a);
write('B=');
read(b);
write('C=');
read(c);
D:=(b*b)-(4*a*c);
if d>0 then
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln('X1=',x1);
writeln('X2=',x2);
end
else
if D=0 then
begin
x:=(-b)/(2*a);
writeln('X:=',x);
end
else if D<0 then
begin
writeln('Вещественных корней нет!!!' );
end;
writeln('Задача решена? Если да, то напишите "1", иначе "2"');
read(y);
until(y=1);
end.

[Kiber3D]

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

http://kvadur.info/
http://http://ru.wikipedia.org/wiki/...B0%D0%BD%D1%82

var
a,b,c,x1,x2,d,kl,x:real;
y:integer;
begin
repeat
write('A=');
read(a);
write('B=');
read(b);
write('C=');
read(c);
D:=(b*b)-(4*a*c);
if d>0 then
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln('X1=',x1);
writeln('X2=',x2);
end
else
if D=0 then
begin
x:=(-b)/(2*a);
writeln('X:=',x);
end
else if D<0 then
begin
writeln('Вещественных корней нет!!!' );
end;
writeln('Задача решена? Если да, то напишите "1", иначе "2"');
read(y);
until(y=1);
end.

Вот!!!! Вот это то, что надо!!!! Класс!!!! Теперь уж точно все работает!!! Спасибо ROMA2PVT!!!

[Kiber3D]

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

здесь можно через if сделать. чтобы при D<0 программа выводила что D<0 вот и всё! можно сделать если d=0 то выводить только x

Да, да, да, только я че то об этом не додумался=)

[ROMA2PVT]

Спасибо ROMA2PVT!!!

Да не за что.

[Stranger333]

не заметил что уже есть ответ. Сразу было заментно ошибку

x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);

[ROMA2PVT]

...............