Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Задача на сумму ряда

Автор: Zharatustra 21.12.2007 0:55

Надо вычислить сумму ряда с точность до 10 в -3. в программе использовать процедуры. программа почему-то не работает... Ормула в приложенном файле.

текст программы

program n1;                                                                    
var i,j:integer;
s2,s,x,f:real;
procedure ryad(x1:real; var s1:real);
const eps=0.001;
var d,y:real;
k:integer;
begin
s1:=0;
x:=2;
k:=1;
d:=0;
repeat
for i:=1 to k do
f:=f*i;
y:=exp(2*k*ln(x));
s1:=s1+d;
until (abs(d))<=eps;
end;
begin
for i:=1 to 5 do
begin
ryad(s,x);
s2:=s2+s;
end;
writeln (s2:10:5);
readln;
end.




Прикрепленные файлы
Прикрепленный файл  102.bmp ( 90.68 килобайт ) Кол-во скачиваний: 367

Автор: andriano 21.12.2007 3:05

А как оно должно работать?
Распиши комментарии ко всем используемым переменным и к строкам внутреннего цикла и, думаю, сам разберешься. (хороший оптимизатор весь внутренний цикл должен был бы выбросить)