Составить схему алгоритма и написать программу вычисления суммы (произведения) конечного ряда - Pascal ABC (14768)

Формулировка задачи:

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


textual

Код к задаче: «Составить схему алгоритма и написать программу вычисления суммы (произведения) конечного ряда - Pascal ABC (14768)»

var k,i,j,z:integer;
    f,w:real;
begin
repeat
write('Введите k>-2 k=');
readln(k);
until k>-2;
w:=0;
z:=1;
for i:=-2 to k do
 begin
  z:=-z;
  f:=1;
  for j:=1 to i+3 do
  f:=f*j;
  if i<>4 then w:=w+z*f/(i-4);
 end;
write('w=',w:0:2);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

11   голосов, оценка 4.273 из 5

Источник