Консультация № 191071
25.05.2017, 17:23
0.00 руб.
1 1 1
Здравствуйте! Прошу помощи в следующем вопросе: составить схему алгоритма и написать программу вычисления суммы (произведения) конечного ряда. При разработке программы предусмотреть пропуск слагаемых (множителей) равных нулю или бесконечности. (на языке Pascal)

Прикрепленные файлы:
96e7c209e19fe4d5dc6a7b35330f4a973f4a005f.PNG

Обсуждение

давно
Старший Модератор
31795
6196
01.06.2017, 17:23
общий
это ответ
Здравствуйте, Ксюша!

Смотрите код.
[code lang=pascal h=250]var
k,n:integer;
a,b,f:real;
function pow(a,b:integer):real;
begin
if b=0 then pow:=1
else
if b>0 then pow:=a*pow(a,b-1)
else pow:=pow(a,b+1)/a;
end;
begin
write('enter n:');
readln(n);
a:=0;
f:=1;
for k:=1 to n do
begin
f:=f*k;
if k<>3 then b:=pow(k-3,k-5)*(k+7)/f
else b:=0;
a:=a+b;
end;
writeln('result:',a);
end.[/code]

ps:вопросы задавайте в мини-форуме.
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа