Симферопольский Форум: Нужна помощь в написании проги - Симферопольский Форум

C:\>echo a=-0.5; b=1.7; t=0.44; e(-b*t)*s(a*t+B) / -sqrt(sqrt((b*t+a)*(b*t+a))) | bc -l
-.94651884707427292064

C:\>echo a=-0.5; b=1.7; t=0.44; b*s(a*t*t*c(2*t))-1 | bc -l
-1.10478313103357901093

import math

a = -0.5
b = 1.7
t = 0.44

def s_calc(a,b,t):
    s = b * math.sin(math.pow((a * t), 2) * math.cos(2 * t))-1
    return s

def y_calc(a,b,t):
    y = math.pow(2.7, (-b*t)) * math.sin(a*t + B) - math.sqrt(abs(b * t + a))
    return y

Andreios (09 августа 2013 - 16:01) писал:

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.

C:\>calcs
a=-0.5
b=1.7
t=0.44

y=-0.026633399372
s=-1.104783131034