Версия системы: Общие новости: Форум: Последний вопрос: Последний ответ: Последняя рассылка: Писем в очереди:
Отзывы о нас:
03.09.2010, 17:15 »
Elektreg гранд мерси, а я и не подумал через потокосцепление решать [вопрос № 179846, ответ № 262961] |
РАЗДЕЛ • Pascal / Delphi / LazarusСоздание программ на языках Pascal, Delphi и Lazarus. [администратор рассылки: Зенченко Константин Николаевич (Старший модератор)] Лучшие эксперты в этом разделе
![]() ![]() ![]() ![]() Отправлена: 09.11.2009, 16:31 Поступило ответов: 3 Составить подпрограмму-функцию для вычисления приближенного значения гиперболического тангенса по формуле Состояние: Консультация закрыта Здравствуйте, Кусмарцев Андрей Валерьевич. Приложение:
Здравствуйте, Кусмарцев Андрей Валерьевич. Код :: выделить код program q174097; const n=20; var k:integer; x,y:real; function th(x:real):real;{Начало функции} var ch,zn:real;{Числитель и знаменатель гиперболического тангенса(th)} ch1,ch2:real;{Числители числителей th} zn1,zn2:integer;{Знаменатели знаменателей th} begin ch:=x; ch1:=x; ch2:=1; zn:=0; zn1:=1; zn2:=1; for k:=1 to n do begin ch1:=ch1*x*x; {Вычисляем числитель числителя th} zn1:=zn1*(2*k)*(2*k+1); {Вычисляем знаменатель числителя th} ch:=ch+ch1/zn1; {Вычисляем числитель th} ch2:=ch2*x*x; {Вычисляем числитель знаменателя th} zn2:=zn2*(2*k-1)*(2*k); {Вычисляем знаменатель знаменателя th} zn:=zn+ch2/zn2; {Вычисляем знаменатель th} th:=ch/zn; {Гиперболический тангенс} end; end;{Конец функции} begin Write('Введите х:'); Readln(x); y:=(2*th(0.5)-3*th(x-0.1))/(5-th(4*x-1)); WriteLn('y(x)=',y:1:4); ReadLn; end. Последнее редактирование 09.11.2009, 21:17 [неизвестный]
Здравствуйте, Кусмарцев Андрей Валерьевич. Приложение:
![]() ![]()
![]() Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему. |