Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: 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 ]
здесь нет условия
2 | Автор: mrosk123 | 2021-07-21, 09:44   |  Репутация: [ + 0 ]
2 | Автор: mrosk123 | 2021-07-21, 09:44   |  Репутация: [ + 0 ]
+
3 | Автор: ARUTER | 2022-05-15, 19:21   |  Репутация: [ + 0 ]
  • Страница 1 из 1
  • 1
Поиск: