08.07.2020, 16:04 [+3 UTC]
в нашей команде: 4 663 чел. | участники онлайн: 4 (рекорд: 21)

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

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

все разделы

правила

новости

участники

доска почёта

форум

блоги

поиск

статистика

наш журнал

наши встречи

наша галерея

отзывы о нас

поддержка

руководство

Версия системы:
7.89 (25.04.2020)
JS-v.1.45 | CSS-v.3.39

Общие новости:
13.04.2020, 00:02

Форум:
07.07.2020, 19:11

Последний вопрос:
08.07.2020, 16:02
Всего: 152721

Последний ответ:
08.07.2020, 02:59
Всего: 260323

Последняя рассылка:
08.07.2020, 15:45

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

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

Наша кнопка:

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

Отзывы о нас:
13.05.2019, 20:58 »
dar777
Это самое лучшее решение! [вопрос № 195561, ответ № 278135]
16.08.2009, 17:47 »
Петрович_
Спасибо вам, ребята, за такой прекрасный сайт!!! Огромная БЛАГОДАРНОСТЬ Зенченко Константину Николаевичу, за помощь в решении таких трудных (для меня) проблем. Счастья, здоровья и удачи!
11.04.2012, 07:53 »
Александр МАГ
Мне кажется, чтотакие простые задачи, как определение вхождения в интервал, надо мягко отметать, отсылая к учебнику. Это ребята ленятся выполнять учебные задания и потом выдают результат как свой. Таким способом программированию никогда не научатся. Но. видимо. такой цели и нет.

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

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

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

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

Зенченко Константин Николаевич
Статус: Старший модератор
Рейтинг: 306
puporev
Статус: Профессор
Рейтинг: 74
Лысков Игорь Витальевич
Статус: Мастер-Эксперт
Рейтинг: 0

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

Консультация онлайн # 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.14581 сек.

© 2001-2020, Портал RFPRO.RU, Россия
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.89 от 25.04.2020
Версия JS: 1.45 | Версия CSS: 3.39