DSC00450

$S<4 ^,eąvk— Pp³^

cii|^rp .• ^|^'ji*8M44* p    “'fĄ-

program równania;

! _-1 . !_i_J_X uses crt;

var

a,b,c:integer: x.x0,xl,x2,de1 ta:real; znak:char; begi n

writclń('^Pro9^ram oblicza równania ax+b=0 oraz ax2+bx+c=0

'Aby obliczyć równanie wybierz odpowiedni klawisz ); u 'l-oblicza równanie w postaci ax+b»0 );

'2-Oblicza równanie w postaci nx2+bx+c=0 );

writeln writeln writeln readln(źnak); case znak of ' 1': bogi n

writeCpodaj a«'); readln(a); writeCpodaj b=.'); readln(b); if aoO thcn x:»-b/a;

writeln('równanie równe jest x«',x:S:2); if (a=0)and(bo0) then writeln('równanie sprzeczne'); if (aoO)and(bcO) then

writelnCrównanie ma nieskończenie wiele rozwiązań');

readln;

end;

2': begin

write('Podaj liczbo a«'); readln(a);

write('Podaj liczb© b='); readln(b);

write('Podaj liczb© c='); readln(c);

Delta:»b*b-4*a*c;

IF (oelta=»0) THEN

BEGIN

xO:=-b/a:

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

END

ELSE

IF (Delta>0) THEN BEGIN

writein('Równanie ma 2 pierwiastki'): writelnCxlV,xl:5:2); writeln('x2=’,x2:5:2);

END

ELSE

IF (oelta<0) THEN

wri tein('Równanie nie ma pierwiastków');

readln

end;

end;

end.

4--i. - u.:.

PJE^aK j-nfJnruUcJoi    i^r^Of^YlCC

J
M ■ c	^/o^mLa

/^^Vtu)<j^> V)! CeY&fc ToĄć©

icid-^ -Ucc-* K/^ vuLi^ Ł

i -^<x

mitz

ik 'PO

oa.-ytAM.-cić oyLo'

^ :» 2;    --^XJ

W)Hll£ v><-^r0'PO

•v>: ~ 'A.* 1 \

1

•

j

i \m

f

l^WófuJ

<a*CX

3

t“

th

^1 J

JJT

jL-

] W |

)

I