Цитата:
Сообщение от xFENIXx
Будте добры, помогите пожалуйста!! заранее спасибо!
Вычислить значение функции y=(e^-x1+e^-x2)/2, где х1=(b+корень из |b^2-4ac|)/(2a), x2=(b- корень из|b^2-4ac|/(2a).
|
:
Код:
Var
a,b,c:Real;
Function Y:Real;
var
x1,x2:real;
begin
x1:=(b+Sqrt(Abs(Sqr(b)-a*c*4)))/(a*2);
x2:=(b-Sqrt(Abs(Sqr(b)-a*c*4)))/(a*2);
Y:=(Exp(-x1)+Exp(-x2))/2;
end;
Begin
Repeat
Write('a = ');
Readln(a);
If a=0 then Writeln('a can not be zero!');
Until a<>0;
Write('b = ');
Readln(b);
Write('c = ');
Readln(c);
Writeln;
Writeln('Y = ',Y:0:5);
Readln
End.