33
`
Hə
yox
Onda həllin proqramı;
Proqram kv_tənlik;
var
a, b, c, x
1
, x
2
, alfa, beta, k: real;
begin
writeln (‘a, b, c- ni daxil edin’) ;
read (a, b, c ) ;
d = sqr (b) – 4
*
a
*
c;
if d < 0 then
begin
alfa = - b /(2
*
a) ;
beta = sqrt (abs (d) /(2
*
a)) ;
writeln (‘alfa =’ , alfa , ‘beta = ‘, beta)
end
else
begin
K = sqrt (d) ;
x
1
= (- b + K) / (2
*
a) ;
x
2
= (- b – K) / (2
*
a) ;
writeln (‘x
1
=’, x
1,
‘x
2
= ’, x
2
)
end
end.
Dostları ilə paylaş: