Гиперболический косинус

Sergey5230 · 24.11.2011, 12:12

надо написать гиперболический косинус в delphi 7
Заранее спасибо!!!

Sergey5230 · 24.11.2011, 12:13

число задается с клавиатуры и посчитать гиперболический косинус

shrek=) · 24.11.2011, 13:22

В паскале это будет так!
А уж из паскаля перенести на Delphi особого труда не составит!

Код:

var
x,ch:real;
begin
write ('Input x ');
readln (x);
ch:=(exp(x)+exp(-x))/2;
writeln ('Ch(',x:3:3,')=',ch);
readln
end.

Vladimir_S · 24.11.2011, 13:49

Цитата:

Сообщение от shrek=)

А уж из паскаля перенести на Delphi особого труда не составит!

Ох, Миша - есть подозрение, что очень даже составит! Если уж человек с такими задачками по форумам шарится, значит там совсем по нулям. Грустно...

Sergey5230 · 25.11.2011, 13:09

нет перенести в delphi я смогу

24.11.2011, 12:12	#1 (permalink)
Sergey5230 Новичок Регистрация: 24.11.2011 Сообщений: 5 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Гиперболический косинус надо написать гиперболический косинус в delphi 7 Заранее спасибо!!!

24.11.2011, 13:22	#3 (permalink)
shrek=) Студент БГПУ Регистрация: 06.02.2010 Сообщений: 420 Записей в дневнике: 3 Сказал(а) спасибо: 1 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 470	В паскале это будет так! А уж из паскаля перенести на Delphi особого труда не составит! Код: var x,ch:real; begin write ('Input x '); readln (x); ch:=(exp(x)+exp(-x))/2; writeln ('Ch(',x:3:3,')=',ch); readln end.

24.11.2011, 12:13	#2 (permalink)
Sergey5230 Новичок Регистрация: 24.11.2011 Сообщений: 5 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	число задается с клавиатуры и посчитать гиперболический косинус

25.11.2011, 13:09	#5 (permalink)
Sergey5230 Новичок Регистрация: 24.11.2011 Сообщений: 5 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	нет перенести в delphi я смогу

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