Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Сумма чисел (Закомментируйте пожалуйста программу!)
Сумма чисел
var e, sum, slag, x, a, b, h:real;
k, i, n:integer;
begin
e:=0,01;
write('a='); readln(a);
write('b='); readln(b);
write('n='); readln(n);
h:=(b-a)\n;
x:=a;
for i:=0 to n do
begin
x:=a+i*h;
k:=1;
slag:=-1;
sum:=-1;
while abs(slag)>e do
begin
slag:=slag*(-x\k);
sum:=sum+slag;
k:=k+1;
end;
writeln('x=',x',';','f(x)=',sum);
end;
end.
Помогите пожалуйста восстановить условие задачи!!
1 | Автор: Udalowam | 2015-02-01, 09:40   |  Репутация: [ + 0 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Сумма чисел (Закомментируйте пожалуйста программу!)
Страница 1 из 11
Поиск: