Как записать формулу

@WesT161 · Регистрация: 03.06.2012

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

Как записать формулу.
Как написать саму программу знаю, а вот как обозначить и записать формулу

$https://www.cyberforum.ru/cgi-bin/latex.cgi? \prod_{k=1}^{n}\frac{(-1)^{k+1}}{(2x+1)^k} $

@Kir-malishev · 02.02.2017, 22:00

Это произведнение ряда. Одной формулой не вычислить, нужен цикл.

Pascal

var
  k, n: integer;
  x, res: real;
 
begin
  writeln('Введите x и n');
  read(x, n);
  res := 1;
  for k := 1 to n do
    res := res * power(-1, k + 1) / power(2 * x + 1, k);
  writeln(res);
end.

Если Вам нельзя пользоваться стандартной функцией power, добавьте в блок описания:

Pascal

function Power(a: real; n: integer): real;
  var i: integer;
begin
  Result := 1;
  for i:=1 to n do
    Result := Result * a;
end;

@Cyborg Drone · 04.02.2017, 21:42

Плохое решение. Зачем здесь power? Подобные задачи решаются с помощью рекуррентного соотношения. Найдём это самое соотношение.

Для начала, примем x := 2x+1.

$https://www.cyberforum.ru/cgi-bin/latex.cgi? \left. \prod_{k=1}^{n}\frac{(-1)^{k+1}}{(2x+1)^k}=\right|_{x:=2x+1}=\prod_{k=1}^{n}\frac{(-1)^{k+1}}{x^k}=\prod_{k=1}^{n}a_k $

$https://www.cyberforum.ru/cgi-bin/latex.cgi? a_1=\frac{1}{x};\ \ \ \ a_k=\frac{(-1)^{k+1}}{x^k};\ \ \ \ a_{k-1}=\frac{(-1)^{k}}{x^{k-1}}; $

$https://www.cyberforum.ru/cgi-bin/latex.cgi? a_k=q\cdot a_{k-1};\ \ \ \ q=\frac{\frac{(-1)^{k+1}}{x^k}}{\frac{(-1)^{k}}{x^{k-1}}}=\frac{-1}{x};\ \ \ \ a_k=\frac{-a_{k-1}}{x} $

Пишем программу:

Pascal

var k, n: integer;
    x, p, a: real;
begin
  repeat //можно убрать, если проверка не требуется
    write('n > 0;  n = ');
    readln(n);
  until n > 0; //можно убрать, если проверка не требуется
  write('x = ');
  readln(x);
  if x = -0.5
    then writeln('Значение выражения не определено')
    else begin
      x := 2 * x - 1;
      a := 1 / x;
      p := a;
      for k := 2 to n do
        begin
          a := -a / x;
          p := p * a
        end;
      writeln('P = ', p)
    end
end.

Добавлено через 8 минут
Кстати, можно и через pover. В этом случае формула записывается в одну строку (в программе ниже это строка 13).

Pascal

uses math;
var n: integer;
    x: real;
begin
  repeat //можно убрать, если проверка не требуется
    write('n > 0;  n = ');
    readln(n);
  until n > 0; //можно убрать, если проверка не требуется
  write('x = ');
  readln(x);
  if x = -0.5
    then writeln('Значение выражения не определено')
    else writeln('P = ', -power(-1 / (2 * x + 1), n * (n + 1) div 2))
end.

Но, что-то мне подсказывает, что у WesT161 задание по циклам.

@WesT161 0 / 0 / 0 Регистрация: 03.06.2012 Сообщений: 9
		1
	Как записать формулу 02.02.2017, 21:13. Показов 19132. Ответов 2 Метки нет (Все метки) Как записать формулу. Как написать саму программу знаю, а вот как обозначить и записать формулу $https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> \prod_{k=1}^{n}\frac{(-1)^{k+1}}{(2x+1)^k}<br />$ 0

	04.02.2017, 21:42

Как записать формулу

Решение