Pascal квадратните уравнения :)

[dedomraz]

Здравейте. Имам конкретен въпрос за паскаал- защо по дяволите като му напиша двойния оператор begin-end пак дава 3 решения. Работата е да сметне по въведени a,b,c и в зависимост от дискриминантата x₁, x₂. Ето как го пиша:
program abc;
var a,b,c,x,x1,x2,D:real;
begin
writeln('a,b,c=');
readln(a,b,c);
if (a=0) then
begin
x=(-c)/b;
writeln(x:4:2);
end;
if a(<>0) then
D:=sqr(b)-(4*a*c);
If (d<0) then
begin
write('nqma realen koren');
end;
If (d=0) then
begin
x1=(-b)/(2*a);
writeln(x1:4:2);
end;
if (d>0) then
x1:=(-b+sqrt(d)/2*a);
writeln(x1:4:2);
x2:=(-b-sqrt(d)/2*a);
writeln(x2:4:2);
end;
end.
Знам ,че е малко дълго обаче от 4 часа бича и немога да се сетя как да го оправя

[Реклама]

[mp3]

Не съм работила с Паскал доста отдавна, но мисля, че това трябва да работи. Не съм го тествала (извинявай), но го нямам инсталиран на компютъра.

[dedomraz]

едно голяяяяяяяяяяяямо благодаря ! Свърши ми страхотна работа!