Технический форум - Помогите с программированием в Паскале

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Помогите с программированием в Паскале (http://www.tehnari.ru/f41/t61290/)

KatyP!ATD

15.12.2011 19:26

Помогите с программированием в Паскале

Вложений: 1

Написать программу вычисления выражения:

Vladimir_S

15.12.2011 21:27

Цитата:

Сообщение от KatyP!ATD (Сообщение 635566)

Написать программу вычисления выражения:

Написал.

Код:

VAR

 i,N:Integer;

 S,a:Real;

BEGIN

 S:=0;

 Write('N= ');

 Readln(N);

 a:=1;

 S:=a;

 For i:=2 to N do

  begin

   a:=-a*(i-1)/i;

   S:=S+a;

  end;

 Writeln('S= ',S:7:5,'  Ln(2)= ',Ln(2):7:5);

 Readln;

END.

Ln(2) там для сравнения, поскольку при возрастании N ряд к нему сходится.

Часовой пояс GMT +4, время: 19:26.