Квадрат теңдеуді шешу алгоритмі.
ах2 + вх + с = 0
1. Не белгілі?
а, в, с – нақты сандар
2. Не істеу керек?
Кв.теңдеудің х1, х2 түбірлерін табу керек, түбірі болмаса «түбірі жоқ» деген хабар шығару керек.
3. Қалай жасау керек?
Дискриминант d=b2-4аc
D<0 түбірі жоқ
D=0 бір түбірі бар x1=-b/2a
d>0 екі түбірі бар х1=?, х2=?
,
|
program kvtendeu;
var a,b,c:integer;
x1,x2,d:real;
label 10;
begin
write('Кв.тенд.коэф. енгіз a,b,c ');
read(a,b,c);
d:=sqr(b)-(4*a*c);
if d<0 then begin writeln('түбірі жок ');goto 10;end;
if d=0 then begin writeln('Бір түбірі бар: ',-b/(2*a));goto 10;end
else writeln('Екі түбірі бар: ',-b+sqr(d)/(2*a),' ',-b-sqr(d)/(2*a));
10: end.
|