Найдите ошибку (Паскаль) В задании нужно было найти сумму чисел e^1+e^2+...e^n program...

0 голосов
28 просмотров

Найдите ошибку (Паскаль)
В задании нужно было найти сумму чисел e^1+e^2+...e^n

program upr1;
var i,n:integer;
e,s: real;
begin
readln (n);
s:=0;
for i:= 1 to n do
e:= power (e,i);
s:= s+e;
writeln (s);
end.


Информатика (205 баллов) | 28 просмотров
Дано ответов: 2
0 голосов
Правильный ответ

Переменной е не задано начальное значение, есть функция еxp(x) возвращает е в степени х, а еще s:=s+e находится за пределами цикла хотя должна быть в нем.

(318 баллов)
0

program upr1;
var i,n:integer;
s,exp,e: real;
begin
readln (n);
s:=0;
exp:=e;
begin
e:= power (e,i);
for i:= 1 to n do
s:= s+e;
end;
writeln (s);
end.

0

Исправил, но кажется, опять не так

0

program upr1;
var i,n:integer;
s: real;
begin
readln (n);
s:=0;
for i:= 1 to n do
s:= s+exp(i);
writeln (s);
end.

0 голосов

Эм, а ты n вводишь? Или это константа, не описано ж значение

(76 баллов)