Код (на всяк случай — и в аттаче): Uses DOS,CRT;
Function y(inA,inB,inT: Real) :Real;
Begin
y:=Exp(-inB*inT)*Sin(inA*inT+inB)-Sqrt(Abs(inB*inT+inA));
End;
Function s(inA,inB,inT: Real) :Real;
Begin
s:=inB*Sin(inA*Sqr(inT)*Cos(2*inT))-1;
End;
Var a,b,t: Real;
Begin
Write('a='); ReadLn(a);
Write('b='); ReadLn(B)/>;
Write('t='); ReadLn(t);
WriteLn;
WriteLn('y=',y(a,b,t):15:12);
WriteLn('s=',s(a,b,t):15:12);
End. Компилировалось на Free Pascal'е. Результат работы:
C:\>calcs
a=-0.5
b=1.7
t=0.44
y=-0.026633399372
s=-1.104783131034
calcs.pas.zip