Помогите написать программу на Паскале..

Yury381 · 23.12.2010, 20:20

Дано натуральное число n. Вычислить вот то что вычислить:
Название: image025.gif
Просмотров: 258

Размер: 606 байт

Vladimir_S · 23.12.2010, 20:43

Цитата:

Сообщение от Yury381

Дано натуральное число n. Вычислить вот то что вычислить:
Вложение 26864

Во-первых, для вопросов по программированию у нас есть специальный раздел, куда Ваша тема и перенесена. Во-вторых, ссылки на сторонние фотохостинги здесь не приветствуются, а потому загляните сюда: http://www.tehnari.ru/f8/t32642/ . В-третьих, вот Вам программа:

Код:

VAR
 S:REAL;
 n:Word;
 k,sign:Integer;
BEGIN
 Write('n= ');
 ReadLn(n);
 S:=0;
 sign:=1;
 For k:=1 to n do
  begin
   sign:=-sign;
   S:=S+1.0*sign/(2*k+1)/k;
  end;
 WriteLn('S=',S:10:5);
 ReadLn;
END.

Yury381 · 23.12.2010, 20:50

спасибо буду иметь ввиду.

23.12.2010, 20:20	#1 (permalink)
Yury381 Новичок Регистрация: 23.12.2010 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите написать программу на Паскале.. Дано натуральное число n. Вычислить вот то что вычислить:

23.12.2010, 20:50	#3 (permalink)
Yury381 Новичок Регистрация: 23.12.2010 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	спасибо буду иметь ввиду.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070