Question

Помогите в программе Pascal (линейный, ветвление и циклический) Разработайте  схему  алгоритма  для  вычисления произведения P = (-1) * 2 * (-3) * 4 * (-5) *... * n. Используйте два цикла: один для вычисления произведения нечетных чисел P1, второй - для вычисления произведения четных чисел P2.

Answer 1

Var 
a,n,x,p1,p2:integer;
begin
readln(n);
x:=-1;
a:=0;
p1:=1;
p2:=1;
while abs(a)<n do begin
x:=x*(-1);
a:=(abs(a)+1)*x*(-1);
if abs(a)mod 2=0 then
p2:=p2*a
else
p1:=p1*a;
end;
writeln(p1);
writeln(p2);
end.

Answer 2

Конечно, вот схема алгоритма на языке Pascal для вычисления произведения P = (-1) * 2 * (-3) * 4 * (-5) * ... * n с использованием двух циклов: одного для вычисления произведения нечетных чисел P1 и второго для вычисления произведения четных чисел P2.

pascalCopy code
program CalculateProduct;
var
  n, i: integer;
  P1, P2: real;

begin
  P1 := 1;  // Инициализируем P1 единицей, так как первый множитель -1
  P2 := 1;  // Инициализируем P2 единицей, так как первый множитель 2

  write('Введите n: ');
  readln(n);

  for i := 1 to n do
  begin
    if i mod 2 = 1 then
    begin
      // Если i - нечетное, то умножаем P1 на (-i)
      P1 := P1 * (-i);
    end
    else
    begin
      // Если i - четное, то умножаем P2 на i
      P2 := P2 * i;
    end;
  end;

  // Вычисляем итоговое произведение P
  P := P1 * P2;

  writeln('Результат: ', P);
end.

Этот код использует два цикла: один для вычисления произведения нечетных чисел (P1), а другой - для вычисления произведения четных чисел (P2). Затем они умножаются вместе, чтобы получить окончательный результат P.