Технический форум - Показать сообщение отдельно

Bogdanghost · 04.09.2013, 18: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.
первый раз в паскале((
да,функция,извиняюсь

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)-2x)+arccos(2.5exp(ln(e)(-0.5)*sqr(x))); Writeln('F',F:3:3); end. первый раз в паскале(( да,функция,извиняюсь

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070