Нужна помощь в написании проги

[kosmos]

КАМРАДЫ ПОМОГИТЕ написать программу,вычисляющую значения переменных y и s по известным значениям переменных a,b,t,(любые числа)

y=e^-bt * sin( at+B )/>-sqrt(|bt+a|)

s=b*sin(at^2*cos2t)-1

тесты для проверки: а=-0,5;b=1,7;t=0,44

 

 

думаю что пиво или сок будет по требованию)))

[Mikle]

Если Вам очень срочно и подойдет любой способ, то можно приспособить Excel и вбить туда формулы.

[Neinsager]

Ну так, например:

 

C:\>echo a=-0.5; b=1.7; t=0.44; e(-b*t)*s(a*t+ / -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

 

bc — такой себе калькулятор из командной сроки, в аттаче версия оного для Windows :)

 

P.S. Парсер форумовский корёжит текст... так что правильный код — во втором аттаче.

bc.exe.zip

bc.txt

[Andreios]

или на питоне к примеру:

 

 

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 +  - math.sqrt(abs(b * t + a))
   return y

 

простите, паскаля не знаю :)/>

[kosmos]

вроде просили на паскале.

 

В любом случае спасибо. линку скинул страждущему.

[Andreios]

К слову, форумный постер сходит с ума, и b меняет на B, и после скобок добавляет '/>'

[kosmos]

К слову, форумный постер сходит с ума, и b меняет на B, и после скобок добавляет '/>'

 

 

я если честно в этом нихт фирштейн))))

[Neinsager]

Ща и на Pascal'е будет...

[Neinsager]

Код (на всяк случай — и в аттаче):

 

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

[Neinsager]

И, во избежание ошибок, привнесённых парсером — вот формулы функций:

 

[kosmos]

огромный даньке)))

[Neinsager]

kosmos

Всё получилось у страждущего-то? :)