Составить программу вычисления функции ** языке паскаль (a+b)/ (e^-x+Sin(x)) T={...

Question

Составить программу вычисления функции на языке паскаль

(a+b)/ (e^-x+Sin(x))

T={ (a+b)/(x+1)

e^-x+Sin(x)

условие: x<2.8; 2.8<=x<6; x>=6 исходные данные: a=2.1; b=-0.29 шаг изменения: x принадлежит [0;7]; дельта x=0.5

Answer 1

program lol;
var
a,b,x:real;
shag:real;
T:real;
begin
Shag:=0.5;
a:=2.1;
b:=-0.29;
x:=0;
While x<=7 do<br>begin
If x<2.8 then<br>T:=(a+b)/exp(-x)+sin(x);
If (2.8<=x) and (x<6) then<br>T:=(A+B)/(x+1);
If X>=6 then
t:=exp(-x)+Sin(X);
Writeln('при Х=',x,'  T=',t:4:2);
X:=x+shag;

end;

end.

 

 

 

надеюсь помог.Если что нетак пиши