UYGULAMA-8 22 EKİM

Klavyeden a, b, c degerleri girilen iki bilinmeyenli bir denklemin (ax2+bx+c = 0) x1 ve x2 koklerini hesaplayarak ekrana yazdıran bir program yazınız.

------------------------------------------------------------------

PROGRAM ciftdenk;USES CRT;
VAR a, b, c, x1, x2, D : REAL;

BEGIN
CLRSCR;
WRITELN ('ax2+bx+c=0 denklemi reel sayilar icin tanimlidir');
WRITELN ('denkleminizi saglayan x degerlerini bulmak icin');
WRITELN (' a degerini' :12);
WRITELN (' b degerini' :12);
WRITELN ('ve c degerini giriniz' :12);
READLN (a,b,c);

D := b*2 - 4*a*c;

if D > 0 then
begin
x1 := (-b-sqrt(D))/2*a;
x2 := (-b+sqrt(D))/2*a;
writeln ('birinci x degeri', x1:12:2);
writeln ('ikinci x degeri', x2:12:2);
end

else if D < 0 then
writeln ('gercel kokler yoktur' :12)

else
begin
x1 := -b/-2*a;
x2 := x1;
writeln ('birinci x degeri:', x1:12:2);
writeln ('ikinci x degeri:', x2:12:2);
end;

READLN;

END.