Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль

Купить рекламу на форуме 15-35 тыс рублей в месяц

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail


Оплата за обучение в Kata Academy только после твоего трудоустройства в IT, начни карьеру Middle Java-разработчика


Ответ
 
Опции темы Поиск в этой теме
Старый 05.12.2021, 18:12   #1
LargeFury
 
Регистрация: 03.11.2021
Сообщений: 8
По умолчанию Ряд Тейлора

Для заданных x, eps, вводимых с клавиатуры:
b) вычислить сумму тех слагаемых, которые по абсолютному значению больше eps.
(Задачу выполнить для двух разных eps, которые отличаются на порядок, для каждого
случая вычислить количество слагаемых).
c) Сравнить результаты с точным значением соответствующей функции (сумма
определяет приближенное значение) для x Є (-R,R) (R=1)
Изображения
Тип файла: png Снимок.PNG (4.0 Кб, 27 просмотров)
LargeFury вне форума Ответить с цитированием
Старый 05.12.2021, 19:13   #2
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 3,789
По умолчанию

Люблю такие задачки! Встретимся во ФРИЛАНСЕ. Беру недорого
digitalis вне форума Ответить с цитированием
Старый 05.12.2021, 19:27   #3
LargeFury
 
Регистрация: 03.11.2021
Сообщений: 8
По умолчанию

мб хоть подсказку дадите?)
LargeFury вне форума Ответить с цитированием
Старый 05.12.2021, 21:03   #4
ViktorR
Участник клуба
 
Регистрация: 23.10.2010
Сообщений: 1,987
По умолчанию

Могу дать небольшую подсказку:
Т.А. Павловская, Программирование на ЯВУ Паскаль. Книга есть в списке литературы.
В этой книге есть подобный пример.
Как-то так, ...
ViktorR вне форума Ответить с цитированием
Старый 05.12.2021, 23:22   #5
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 3,789
По умолчанию

Это банально - читать, вникать. Вот бы заклинание: ррраз - и прога заколосилась.
Подсказку даю. Проинициализировать переменную нулём, организовать цикл while, и пока условие этой самой Вайли (в плане сравнения очередного слагаемого с eps) выполняется - крутить этот цикл.
Я бы написал, но вот newerow1989 обидится, что я у него перебиваю клиента. Он любит решать двоечникам их простые задачки.
Кстати, не указано: какой Плескаль хотится: турбо, фри или абеце.

Последний раз редактировалось digitalis; 05.12.2021 в 23:25.
digitalis вне форума Ответить с цитированием
Старый 12.12.2021, 08:37   #6
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,882
По умолчанию

Код:
var x, eps, s, xx: real;
    k: integer;
    zn: -1..1;
begin
   Write('x   = '); Readln(x);
   Write('eps = '); Readln(eps);
   s:=1;
   zn:=1;
   k:=1;
   xx:=1;
   repeat
      zn:=-zn;
      Inc(k);
      xx:=xx*x;
      s:=s+zn*k*xx;
   until Abs(k*xx)<eps;
   Writeln(s:2:8);
   s:=1/Sqr(1+x);
   Writeln(s:2:8);
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Ответ
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ряд Тейлора misery24-7 Паскаль, Turbo Pascal, PascalABC.NET 5 20.06.2012 18:57
Ряд Тейлора Oektann123 Помощь студентам 0 28.03.2012 18:04
Ряд Тейлора в С++ D.vers Помощь студентам 1 02.01.2012 12:45
вычислить функцию с по-щью разложения в ряд.(Ряд Тейлора) feelstor Помощь студентам 2 26.12.2011 02:44
ряд тейлора salwator C++ Builder 0 09.11.2011 19:22

Реклама для незарегистрированных, регистрация на форуме