program sum_calculation; var x, s, temp: real; n: integer; begin s := 0; for x := 0.1 to 2 do begin temp := 0; for n := 0 to 10 do begin temp := temp + power(x,(4∗n+1))power(x, (4 * n + 1))power(x,(4∗n+1)) / 4∗n+14 * n + 14∗n+1; end; s := s + temp; end; writeln′Сумма=′,s'Сумма = ', s′Сумма=′,s; end.
Программа вычисляет сумму заданного ряда для значений x от 0.1 до 2.0. Результат выводится на экран.
Программа на языке Паскаль:
program sum_calculation;var
x, s, temp: real;
n: integer;
begin
s := 0;
for x := 0.1 to 2 do
begin
temp := 0;
for n := 0 to 10 do
begin
temp := temp + power(x,(4∗n+1))power(x, (4 * n + 1))power(x,(4∗n+1)) / 4∗n+14 * n + 14∗n+1;
end;
s := s + temp;
end;
writeln′Сумма=′,s'Сумма = ', s′Сумма=′,s;
end.
Программа вычисляет сумму заданного ряда для значений x от 0.1 до 2.0. Результат выводится на экран.