Тема
:
Помогите решить уравнение. Паскаль
Показать сообщение отдельно
04.09.2013, 18:10
#
4
(
permalink
)
Bogdanghost
Новичок
Регистрация: 04.09.2013
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация:
10
Program lab1;
Var F,x,e,arccos,arcsin: real;
Begin
Writeln('x');
Readln(x);
F:=sqrt(exp(ln(x)*4)-2*x)+arccos(2.5*exp(ln(e)*(-0.5)*sqr(x)));
Writeln('F',F:3:3);
end.
первый раз в паскале((
да,функция,извиняюсь
Bogdanghost
Посмотреть профиль
Найти ещё сообщения от Bogdanghost
Ads
Яндекс
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация:
55070