Ряд Тейлора: 1/sqrt(1 - x*x)

@Jacking · Регистрация: 13.04.2013

Студворк — интернет-сервис помощи студентам

Попробовал написать программу, но почему-то неправильно высчитывает

Помогите пожалуйста найти ошибку

Delphi
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
procedure TForm1.Button1Click(Sender: TObject);
begin
  e:=StrTofloat(e1);
  x:=StrToFloat(x1);
  t:=power((1-x*x),-1/2);
  i:=1;
  r:=1;
  m:=1;
  if (x<>0)
    then
      begin
        repeat
            begin
            u:=m*(power(x,i))/(m+1);
            r:=r+u;
            i:=i+1;
            m:=m+2;
            end;
            until (abs(u)<e)
      end
    else
      r:=1;
label4.visible:=True;
label5.caption:=FloatToStr(r);
end;
 
end.

@volvo · 22.04.2013, 20:05

Сообщение от Jacking

почему-то неправильно высчитывает

Потому, что формула неверная. Приведенный ряд - это разложение $https://www.cyberforum.ru/cgi-bin/latex.cgi?\frac{1}{\sqrt{1-x}}$ а не $https://www.cyberforum.ru/cgi-bin/latex.cgi?\frac{1}{\sqrt{1-{x}^{2}}}$

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm1.Button1Click(Sender: TObject);
var
  s, next, eps, X : double;
  n : Integer;
begin
  eps := StrTofloat(e1);
  x:=StrToFloat(x1); // |x| < 1
 
  next := 1; s := 1;
  n := 1;
  repeat
    next := next * x * n / (n + 1);
    s := s + next;
    n := n + 2;
  until next <= eps;
  label5.caption:=FloatToStr(s);
  // для теста:
  showmessage(Format('%8.5f vs %8.5f', [s, 1 / sqrt(1 - x)]))
end;

@Jacking · 28.04.2013, 19:24 **[ТС]**

И правда, спасибо большое! В методичке, по которой я делал, была ошибка. И спасибо за доработку программы

Новые блоги и статьи Все статьи Все блоги /
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .

@Jacking 0 / 0 / 1 Регистрация: 13.04.2013 Сообщений: 8
	28.04.2013, 19:24 [ТС]
	И правда, спасибо большое! В методичке, по которой я делал, была ошибка. И спасибо за доработку программы 0