Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на языке Pascal

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 2.943 RSS
←   Ноябрь 2009   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
28.11.2009
13:34:02
21:21:31
29
30


За последние 60 дней ни разу не выходила


Сайт рассылки: http://prog.rusfaq.ru/pascal
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

2.943 подписчиков
0 за неделю
←   Все выпуски   →

RFpro.ru: Программирование на языке Pascal


Хостинг портала RFpro.ru:
Московский хостер
Профессиональный платный хостинг на базе Windows 2008

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Чемпионы рейтинга экспертов в этой рассылке

Гуревич Александр Львович
Статус: Специалист
Рейтинг: 2014
∙ повысить рейтинг » 		_Ayl_
Статус: Студент
Рейтинг: 1413
∙ повысить рейтинг » 		Boriss
Статус: Академик
Рейтинг: 1140
∙ повысить рейтинг »

/ КОМПЬЮТЕРЫ И ПО / Программирование / Pascal (Паскаль)

Номер выпуска:969
Дата выхода:15.11.2009, 13:00
Администратор рассылки:Калашников О.А., Руководитель
Подписчиков / экспертов:357 / 183
Вопросов / ответов:1 / 3

Вопрос № 174097: Составить подпрограмму-функцию для вычисления приближенного значения гиперболического тангенса по формуле th(x)=(∑20k=0(x2k+1)\((2k+1)!))\(∑20k=1((x2k)\(2k)!)) исспо...

Вопрос № 174097:

Составить подпрограмму-функцию для вычисления приближенного значения гиперболического тангенса по формуле
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)) ув. эксперты помогите пожалуйста

Отправлен: 09.11.2009, 16:31
Вопрос задал: Кусмарцев Андрей Валерьевич, Посетитель
Всего ответов: 3
Страница вопроса »

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

Приложение:

Ответ отправил: Vassea, Практикант
Ответ отправлен: 09.11.2009, 17:26

Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 256326 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:
    • Вам помогли? Пожалуйста, поблагодарите эксперта за это!
    Отвечает LfiN, 8-й класс :
    Здравствуйте, Кусмарцев Андрей Валерьевич.
    Комментарии в программе.

    Код:

    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.
    По просьбе автора
    -----
    ∙ Отредактировал: Victor Pyrlik, Модератор
    ∙ Дата редактирования: 09.11.2009, 21:17 (время московское)

    Ответ отправил: LfiN, 8-й класс
    Ответ отправлен: 09.11.2009, 17:29

    Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 256327 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:
    • Вам помогли? Пожалуйста, поблагодарите эксперта за это!
    Отвечает Химик CH, Модератор :
    Здравствуйте, Кусмарцев Андрей Валерьевич.
    В данном варианте решения числитель и знаменатель рассчитываются в одном цикле.

    Приложение:

    -----
    Никогда не просите у химика просто СОЛЬ...

    Ответ отправил: Химик CH, Модератор
    Ответ отправлен: 09.11.2009, 17:50
    Латвия, Рига
    Тел.: +37128295428
    Абонент Skype: himik_c2h5oh

    Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 256328 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:
    • Вам помогли? Пожалуйста, поблагодарите эксперта за это!

    Оценить выпуск »
    Нам очень важно Ваше мнение об этом выпуске рассылки!

    Задать вопрос экспертам этой рассылки »

    Скажите "спасибо" эксперту, который помог Вам!

    Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
    на короткий номер 1151 (Россия)
    Номер ответа и конкретный текст СМС указан внизу каждого ответа.

    Полный список номеров »

    * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов)
    ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
    *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.

    © 2001-2009, Портал RFpro.ru, Россия
    Авторское право: ООО "Мастер-Эксперт Про"
    Автор: Калашников О.А. | Программирование: Гладенюк А.Г.
    Хостинг: Компания "Московский хостер"
    Версия системы: 2009.6.10 от 13.11.2009
    В избранное