[Pascal] Циклы

[koshkarjov]

Задача:
Программа должна предусматривать ввод исходных данных с клавиатуры и вывод результата на экран.
Определить число e – основание натуральных логарифмов с помощью ряда:

для всех значений n от 1 до 20. Для каждого случая напечатать n и соответствующее приближение e.

Вопрос:
Как реализовать данный цикл? Можно пример?

[Greblin]

Можно. Нажимаете кнопочку Поиск, вводите "Сумма ряда" и... магия - целая куча примеров

[Codemaster_N1]

function F(const N: Byte): Extended;
var
  i: Byte;
  R: Extended;
begin
  R := 1;
  for i := 1 to N do
    R := R * i;
  F := R;
end;

function E(const N: Byte): Extended;
var
  i: Integer;
  R: Extended;
begin
  R := 1;
  for i := 1 to N do
  begin
    WriteLn('for N = ', i, ':   ', R :5:5);
    R := R + 1 / F(i);
  end;
  E := R;
end;

begin
  E(20);
  ReadLn;
end.

[p51x]

2 Codemaster_N1
Вам не кажется, что излишне каждый раз заново пересчитывать факториал?

[Greblin]

Не только не излишне, но и в корне неправильно, ибо уже 13! ни в какой longint не влезет

[Codemaster_N1]

p51x, никак не кажется. здесь вычисление одного значения не час занимает, а несколько микросекунд, поэтому абсолютно пофигу сто раз я посчитаю или один раз. Поверь наслово, ты никак не почувствуешь разницу между 10мс и 1000мс.

Greblin, и что? заменой Longint на Extended эта проблема запросто решается. И что умничать то? У тебя самого то хоть ума хватит написать процедуру нецелочисленного деления двух длинных чисел? Нет? Ну и нефиг дешевые понты тут кидать.

P. S. Я привел простейший пример, ибо человек, написавший задание, не знает даже, что такое цикл.

P. P. S. Представляю сколько было бы еще криков, если бы факториал рекурсией написал бы

function F(const N: Byte): Extended;
begin
  if N <= 1 then F := 1
  else F := N * F(N - 1);
end;

но увы, умники, от этого программа никак хуже не станет работать и несколько килобайт занятой памяти ни на что не повлияет.

а вы тут кричите так, как будто у вас на компьютере 1КБ ОЗУ и процессор на 1КГц...

[Greblin]

Codemaster_N1
Про мои способности Вы, пожалуйста, не судите, не Вам про них говорить. А вот к своим знаниям добавьте, что extended даёт существенную ошибку точности
Если бы надо было факториал писать, то никаких вопросов не было бы, но писать надо не факториал, а ряд, каждый следующий член которого выражается через предыдущий.

[Codemaster_N1]

про ошибку точности я и без тебя знаю, может ты еще расскажешь как числа с плавающей запятой в памяти представляются? хотя врядли ты это знаешь...
в условии задачи нужно приближенно число e вычислить, поэтому пофигу абсолютно на потерю точности при подсчете факториала, умник.
я еще раз повторяю: вы понтуетесь здесь про ресурсы, потерю точности и т. п. - а я вам еще раз повторяю, что в этой задаче на это абсолютно пофигу!!! если такие умные, то напишите свою типа "правильную" программу и проверьте. только вот, Greblin, каким образом ты иррациональное число e точно представишь, это действительно загадка для всего мира. гением себя видать считаешь?

Greblin, полюбуйся на потерю точности:

[netrino]

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

про ошибку точности я и без тебя знаю, может ты еще расскажешь как числа с плавающей запятой в памяти представляются? хотя врядли ты это знаешь...

Чего вы умничаете? Вам, или даже скорее ТС, указали на недочёты программы, при чём резонно, отчего же вы так нервничаете?

[Greblin]

Рассказывать я Вам ничего не собираюсь, ибо считаю это бесполезной тратой времени.
Будьте уверены, что и число e, и многих другие ряды с наперёд заданной точностью вычислял, и я, и большинство здесь присутствующих вычисляли, о чём я и указал ТС в посте 2
На этом я свой разговор с Вами считаю законченным, хотя Вы, конечно, вправе хамить здесь, пока не забанят.