Вычислить и вывести на экран произведение n членов ряда

@RxY · Регистрация: 18.03.2016

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

Вычислить и вывести на экран произведение n членов ряда, где x и n – любые целые числа, введенные с клавиатуры

@Ivandur · 22.03.2018, 12:18

Pascal

var x,xx,fact:real;
begin
write('Введите x');
readln(x);
write('Введите n');
readln(n);
p:=1;
fact:=2;
xx:=x*x;
for i:=1 to n 
   begin
   p:=p*xx/fact;
   xx:=xx*x;
   fact:=fact*(i+1);
   end;
writeln('p=',p);
end.

@Cyborg Drone · 24.03.2018, 01:30

Ужас. Ivandur, проверяйте программы перед тем, как выкладывать на форум.

Лучше так:

Pascal

var
  x, a, p: real;
  i, n: integer;
 
begin
  write('x = ');
  readln(x);
  repeat
    write('n > 0;  n = ');
    readln(n)
  until n > 0;
  a := x * x / 2;
  p := a;
  for i := 3 to n + 1 do
    begin
      a := a * x / i;
      p := p * a
    end;
  writeln('p = ', p);
  readln
end.

@RxY 0 / 0 / 0 Регистрация: 18.03.2016 Сообщений: 1
		1
	Вычислить и вывести на экран произведение n членов ряда 22.03.2018, 11:47. Показов 1695. Ответов 2 Метки нет (Все метки) Вычислить и вывести на экран произведение n членов ряда, где x и n – любые целые числа, введенные с клавиатуры Изображения 0

	24.03.2018, 01:30

Вычислить и вывести на экран произведение n членов ряда

Решение