Создать приложение, вычисляющее значения переменных по заданным расчетным формулам и наборам исходных дан

[lubov_morkov]

надо решить срочно, Создать приложение, вычисляющее значения переменных по заданным расчетным формулам и наборам исходных данных. На экран вывести значения вводимых исходных данных и результаты вычислений, сопровождая ввод и вывод поясняющими комментариями.

Y=e в степнени (-bt)* sin(at+b)- под корнем |bt+a|
s=bsin(at в степени (2)cos2t)-1


значения
a=-0.5
b=1.7
t=0.44

[SuperVisor]

Наработки в студию. Иначе - прямая дорога во фриланс или надейтесь на помощь молодых энтузиастов (коих по пальцам пересчитать)..

[Mr.Qwerty]

lubov_morkov, держи :

Program ex_x;
uses Crt;//подключение модуля
var a,b,t,y,s:real; //объявление переменных
begin
ClrScr; //очистка экрана
Writeln('Введите a,b,t'); //запрос на введение переменных
Readln(a,b,t); //чтение введенных данных
y:=exp(ln(e)*((-b*t)*sin(a*t+b)))-sqrt(abs(b*t+a)); //вычисление y
s:=b*sin(sqr(a*t)*cos(2*t))-1; //вычисление s
Writeln('y=',y,'; s=',s); //вывод данных
Readln; //ожидание действия
end.

Наработки в студию. Иначе - прямая дорога во фриланс или надейтесь на помощь молодых энтузиастов (коих по пальцам пересчитать)..

- значит я такой))

[SuperVisor]

Сообщение от Mr.Qwerty

- значит я такой))

По истории сообщений пользователя видно, что он, (а точнее она) - бездарность, сдающая информатику за счет наших умов. Дак вот: каждый такой ум, ничего не знающий и ничего не понимающий - залог деградации нашего общества и страны в целом (хоть я и не великий патриот, но обязан обратить на это внимание)... Готов поспорить, что если бы все думали так же, как и я, не взирая на доброту душевную, то из ВУЗов бы сейчас повылетало 70% учащихся - 70% той мерзости, что живут за счет других, ничего не умеют, ничего не знают и в жизни своей сами ничего не добиваются - нахлебники и идиоты.
Да, грубо. Да, язвительно. Но истина не оспорима, как не крути.