DSC00448

loavio>«; aAcp li;

BLsB ^

* * *

program równani e_kwadratowe;

uses crt; var

a,b,c:integer; x0,xl,x2.delta:real; begin

writelńcprogram wyznacza pierwiastki równania kwadratowego ax2+bx+c*=0 ),

writeC'Podaj a«*').‘

readln(a);

writeC'Podaj b«’);

readln(b);

write('Podaj c=»');

readln(c);

Delta:«b*b-4*a*c; if delta=0 then begin xO:»-b/a:

writein(‘Równanie ma jeden pierwiastek x0=',x0:5:2);

end

ELSE

if delta>0 then begin

xl:«*(-b-sqrt(delta))/(2*a); x2:«(-b+sqrt(delta))/(2*a);

writelnC Równanie ma 2 pierwiastki xl«',xl:5:2,'i x2=’,x2:5:2);

end

else

writelnC Równanie nie ma pierwiastków’):

Readln;

end.

CASi^    ÓP    dP

l    K>cuvt©&-.. £ akw o. V,

\y%. .W 1'    ....................j

......lit.......; k

| .....1

’" 1    0.    i—r, ~r—r

.'psa* tofcćfa    ;

£]vb;

--# • i -
yj;

V.

^N

L    ^rcqv.

m	_			ti^r: K.
	cvu. .		W
-AJ*-'			fo c	,r "tt ^ || T~ cąśB

cc ^ć. Aóbu    2 Wrj^j'

qVqjm^- sia, -)oóocP-^jj

m

&, Olr

m; i:

mm pif 'u ’, 'b-i; ijtófeL ['•> J;

j*gf] • ;

W/, fóh ('Pedaki j3I ^;

%

I '