Вычислить значения функции для заданных значений параметров q и z с заданной погрешностью ę

@1Sn1KeRS1 · Регистрация: 26.03.2019

Задание к работе :
1. Записать расчетные формулы для вычисления слагаемого и суммы. В предлагаемых задачах на суммирование рядов, чтобы не усложнять анализ точности, под ε подразумевается абсолютная оценка последнего учитываемого числа ряда, которая в случае знакочередующегося ряда совпадает с истиной абсолютной погрешностью. Если не будет других указаний, положить ε=10^-4, x=0(0,1)1.
2. Составить блок-схему алгоритма для выставления заданной суммы в указанной диапазоне изменения параметра x с заданным шагом.
3. Составить программу решения задачи.
4. Отладить программу.

Задание : sigma(n=0, infinity)1/(q+n)^z.

Просто нужна программа, пожалуйста, помогите! Очень срочно нужно!!

Добавлено через 17 минут
Моя программа - Сказали что ошибка в "Dr"

Pascal

Porgram lab14;
Var z:integer;
q,n,Dr,S:real;
begin
writeln('Введите x');
readln(q,n);
Dr:=1;
S:=1;
z:=1;
while abs(Dr)  > 0.0001 do 
begin
DR:=Dr*1/power(q+n,z);
S:=S+Dr;
z:=z+1;
end;
writeln(S);
end.

@axbor · 29.03.2019, 14:24

что здесь q?

@1Sn1KeRS1 · 31.03.2019, 13:55 **[ТС]**

Я его как то решил)))
здесь "q" по мне это по заданию (q+n)^z

@Cyborg Drone · 03.04.2019, 15:38

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> \sum_{n=0}^{\infty}\frac{1}{(q+n)^z}<br />$

Правильно?

Тогда программа у Вас полностью неверная: по формуле изменяется n, а не z, как у Вас.

Добавлено через 31 минуту
В первом приближении, без контроля ввода и рекуррентного соотношения, можно так:

Pascal

var
  n: integer;
  q, z, dr, s: real;
 
begin
  write('q = ');
  readln(q);
  write('z = ');
  readln(z);
  s := 0;
  n := 0;
  while abs(dr) <= 0.0001 do
    begin
      dr := 1 / power(q + n, z);
      s := s + dr;
      n := n + 1
    end;
  writeln('S = ', s)
end.

Добавлено через 1 час 7 минут
Можно применить простейшее рекуррентное соотношение. Выражение в скобках в знаменателе при n=0 равно q, а каждое следующее выражение больше на 1, чем предыдущее. Следовательно, переменную n можно упразднить, а каждое следующее выражение в скобках получать из предыдущего прибавлением 1. Кроме того, 1/(q+n)^z=(q+n)^-z.

Pascal

var
  q, z, dr, s: real;
 
begin
  write('q = ');
  readln(q);
  write('z = ');
  readln(z);
  z := -z;
  s := 0;
  while abs(dr) <= 0.0001 do
    begin
      dr := power(q, z);
      s := s + dr;
      q := q + 1
    end;
  writeln('S = ', s)
end.

Добавлено через 14 минут
Да, и вот ещё что... Не расслабляйтесь. Это далеко не полное решение. У Вас в задании указано, что требуется протабулировать функцию для аргумента x от 0 до 1 с шагом 0.1. Однако, Ваша функция не содержит переменную x. Уточните у преподавателя, по каким аргументам табулировать функцию: только по q, только по z, или по q и z.

@axbor 3 / 2 / 1 Регистрация: 06.01.2019 Сообщений: 32
	29.03.2019, 14:24	2
	что здесь q? 0

@1Sn1KeRS1 0 / 0 / 0 Регистрация: 26.03.2019 Сообщений: 43
	31.03.2019, 13:55 [ТС]	3
	Я его как то решил))) здесь "q" по мне это по заданию (q+n)^z 0

Опции темы