Sveiki, babandziau ant „bajerio“ pakurti kvadratiniu lygciu programele, taciau visus atsakymai buna 0.5 mazesni. Pvz.: x = -4;2, o su ta programa gaunu x = -4.5;0.5. Kodel taip yra? Apacioje idedu koda: program kvdarlygt;
var a, b, c, d: integer;
x1, x2: real;
begin
writeln ('Iveskite koeficienta a');
read (a);
writeln ('Iveskite koeficienta b');
read (b);
writeln ('Iveskite koeficienta c');
read (c);
d:=(b*b)-4*a*c;
x1:= ((-1)*b) - sqrt(d)/(2*a);
x2:= ((-1)*b) + sqrt(d)/(2*a);
writeln ('');
writeln ('Lygties sprendiniai:');
writeln (x1:3:2);
writeln (x2:3:2);
Readln(x1,x2);
end.