09.12.2019, 02:06 [+3 UTC]
в нашей команде: 4 047 чел. | участники онлайн: 2 (рекорд: 21)

:: РЕГИСТРАЦИЯ

задать вопрос

все разделы

правила

новости

участники

доска почёта

форум

блоги

поиск

статистика

наш журнал

наши встречи

наша галерея

отзывы о нас

поддержка

руководство

Версия системы:
7.78 (18.11.2019)
JS-v.1.34 | CSS-v.3.35

Общие новости:
28.04.2019, 09:13

Форум:
29.11.2019, 17:59

Последний вопрос:
08.12.2019, 23:49
Всего: 151207

Последний ответ:
08.12.2019, 18:03
Всего: 259544

Последняя рассылка:
08.12.2019, 17:45

Писем в очереди:
0

Мы в соцсетях:

Наша кнопка:

RFpro.ru - здесь вам помогут!

Отзывы о нас:
03.09.2010, 17:15 »
Elektreg
гранд мерси, а я и не подумал через потокосцепление решать [вопрос № 179846, ответ № 262961]

РАЗДЕЛ • Pascal / Delphi / Lazarus

Создание программ на языках Pascal, Delphi и Lazarus.

[администратор рассылки: Зенченко Константин Николаевич (Старший модератор)]

Лучшие эксперты в этом разделе

Зенченко Константин Николаевич
Статус: Старший модератор
Рейтинг: 690
puporev
Статус: Профессионал
Рейтинг: 480
Gluck
Статус: 9-й класс
Рейтинг: 476

Перейти к консультации №:
 

Консультация онлайн # 174097
Раздел: • Pascal / Delphi / Lazarus
Автор вопроса: Кусмарцев Андрей Валерьевич
Отправлена: 09.11.2009, 16:31
Поступило ответов: 3

Составить подпрограмму-функцию для вычисления приближенного значения гиперболического тангенса по формуле
th(x)=(∑20k=0(x2k+1)\((2k+1)!))\(∑20k=1((x2k)\(2k)!))
исспользуя данную подпрограмму написать программу вычесления функции
y(x)=(2th(0.5)-3th(x-0.1))\(5-th(4x-1)) ув. эксперты помогите пожалуйста

Состояние: Консультация закрыта

Ответ # 256326 от Vassea

Здравствуйте, Кусмарцев Андрей Валерьевич.
Программы в приложении. В функции отдельно вычисляется числитель и знаменатель, после чего функции присваивается значение частного

Приложение:


Консультировал: Vassea
Дата отправки: 09.11.2009, 17:26

Рейтинг ответа:

0

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

Ответ # 256327 от LfiN (Специалист)

Здравствуйте, Кусмарцев Андрей Валерьевич.
Комментарии в программе.

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 [неизвестный]

Консультировал: LfiN (Специалист)
Дата отправки: 09.11.2009, 17:29

Рейтинг ответа:

0

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

Здравствуйте, Кусмарцев Андрей Валерьевич.
В данном варианте решения числитель и знаменатель рассчитываются в одном цикле.

Приложение:


Консультировал: Roman Chaplinsky / Химик CH (Модератор)
Дата отправки: 09.11.2009, 17:50

Рейтинг ответа:

+1

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

Мини-форум консультации № 174097

Roman Chaplinsky / Химик CH
Модератор

ID: 156417

# 1

= общий = | 09.11.2009, 19:26 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер

LfiN:
Вы свою программу на работоспособност проверяли?

zn1,zn2:integer;{Знаменатели знаменателей th}

Такой факториал в integer в жизни не поместится (у ТурбоПаскаля он даже в real не очень влазит smile )

LfiN
Специалист

ID: 246813

# 2

= общий = | 09.11.2009, 21:08 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер

Химик CH:
Благодарю за замечание. В программе исправил, а сюда из блокнота неисправленный текст вставил.

LfiN
Специалист

ID: 246813

# 3

= общий = | 09.11.2009, 21:08 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер

Модераторы:
Прошу исправить мой ответ на такой

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.

 

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Яндекс Rambler's Top100

главная страница | поддержка | задать вопрос

Время генерирования страницы: 0.14121 сек.

© 2001-2019, Портал RFPRO.RU, Россия
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.78 от 18.11.2019
Версия JS: 1.34 | Версия CSS: 3.35