VPF::[Pascal] Cумма ряда. Проверить алгоритм.

Limpopo

Дата 18.12.2006, 23:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 20.9.2006

Репутация: 0
Всего: 1

исправил все сам smile

Процедура

Код


uses crt;
var
e , x ,s ,s2 : real ;
zna , i : integer ;
procedure pr ( x,e  : real ;  var s : real );
var
zna , i : integer ;
xn , c : real ;

  begin
i:= 2 ;
zna := -1;
s:= 1  ;
xn:= x ;
    repeat
c:=zna*i*(i+1)/2*xn;
xn:=xn*x;
s:=s+c;
zna:= -zna;
i:=i+1;
    until abs(c) < e ;
  end;
  begin
  readln(E);
  readln(x);
  pr (x,e,s);
  writeln(s);
  s2:=1/((1+x)*(1+x)*(1+x));
  writeln(s2);
  writeln(s-s2);
  readkey;
end.

функция

Код


uses crt;
var
e , x ,s ,s2 : real ;
zna , i : integer ;
function pr ( x,e  : real): real ;
var
zna , i : integer ;
xn , c : real ;
  begin
i:= 2 ;
zna := -1;
s:= 1  ;
xn:= x ;
repeat
c:=zna*i*(i+1)/2*xn;
xn:=xn*x;
s:=s+c;
zna:= -zna;
i:=i+1;
until abs(c) < e ;
pr:=s;
  end;
begin
readln(E);
readln(x);
pr (x,e);
writeln(s);


s2:=1/((1+x)*(1+x)*(1+x));
writeln(s2);
writeln(s-s2);
readkey;
end.

Это сообщение отредактировал(а) Limpopo - 20.12.2006, 18:19

Alexeis

Дата 19.12.2006, 01:34 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 23
Всего: 459

!
alexeis1

Модератор: а код будет кто выделять? Что первый день на форуме?

http://forum.vingrad.ru/index.php?showtopic=126445

Почему не указан язык в заголовке? Вы упорно не хотите следовать правилам.

Делаю вам последнее предупреждение. Дальше буду банить.

Добавлено @ 01:35
P.S. исправляйте пост сами иначе тему закрою.

Добавлено @ 01:36
Кроме того название не отражает суть!

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »