Главное меню

Вход на сайт

Кто на сайте?

Сейчас 156 гостей и ни одного зарегистрированного пользователя на сайте

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

Image

Решение
     
var G,a,b,t:real;
begin
writeln('');
write('Vvedite a=');
readln(a);
write('Vvedite b=');
readln(b);
write('Vvedite t=');
readln(t);
write('cost =');
writeln(cos(t):2:2);
if cos(t)>0.7 then
   G:=abs(a*b*t+sin(t))
else
if cos(t)<=0 then
G:=a-sqr(t)
else
if cos(t)=0.5 then
G:=ln(abs(b-t))
else
writeln('Znachenie cos(t) ne popadaet ni v odnu oblast');
writeln('G=',G:4:4);
readln;
end.

У Вас недостаточно прав для добавления комментариев.
Вам необходимо зарегистрироваться на сайте