[Pascal] Циклы

[Codemaster_N1]

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

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

ты явно не догоняешь о чем идет речь.
что ты там с заданной точностью вычислял? тут о точности ничего не сказано.

ты хоть сам своими мозгами подумай, если ты считаешь, что факториал Extended'ом нельзя вычислять, то в каком типе ты его будешь считать? длинной арифметикой его посчитать то ты может и сможешь, а вот потом поделить единицу на это число, с заданной точностью у тебя 100% мозгов не хватит, так что если ты пишешь чушь всякую, то хоть мозгами подумай и не понтуйся.

реально кто докажет что я неправ? никто!

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

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

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

ты там говоришь, что

var
  F: Array[0..20] of Extended;

procedure _F_(const N: Byte);
var
  i: Byte;
begin
  F[0] := 1;
  for i := 1 to N do
    F[i] := i * F[i - 1];
end;

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

begin
  E(20);
  ReadLn;
end.

лучше будет, но увы, это решение ни насколько лучше не будет, так как никакого существенного выигрыша ни во времени ни в ресурсах оно не даёт.

а о том, что говорит Greblin, то пусть он попробует стандартными средствами языка Паскаль получить 20! без потери точности. Вот он говорит, а сам не понимает, что говорит (а вернее понимает, но не скажет же, что он неправ, он же себя гением считает - а тут такой облом). Мне это напоминает приказ Ленина: "в ближайщее время научиться изготавливать саха из опилок". Чушь полная, а сказал вроде умный человек.
И поделить единицу на 20! длинной арифметикой никто из вас здесь присутствующих не сможет. Это факт, и никто не докажет обратное, ибо истина неопровержима...

На этом я свой разговор с Вами считаю законченным, хотя Вы, конечно, вправе хамить здесь, пока не забанят.

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

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

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

ну так давай скажи в какой тип влезет. не знаешь такого? и длинной арифметикой единицу на 20! ты поделить не сможешь.

ну так что тогда понтоваться то так, если сами решить не можете?

[netrino]

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

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

ты там говоришь, что

var
  F: Array[0..20] of Extended;

...

лучше будет...

Такого я не говорил ) Честно говоря для меня сюрприз, что вы не знаете как правильно вычислять сумму ряда. Предложенный вами способ также избыточен. И по-моему Greblin имел ввиду то же, что и я, а именно, что вычислять факториал тут вообще не нужно, это лишнее.

Модераторам просьба закрыть тему, так как тут пошёл флуд уже, а ответ ТС получил - в поиск, подобных тем много было.

[Codemaster_N1]

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

Такого я не говорил ) Честно говоря для меня сюрприз, что вы не знаете как правильно вычислять сумму ряда. Предложенный вами способ также избыточен. И по-моему Greblin имел ввиду то же, что и я, а именно, что вычислять факториал тут вообще не нужно, это лишнее.

Модераторам просьба закрыть тему, так как тут пошёл флуд уже, а ответ ТС получил - в поиск, подобных тем много было.

ржу

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

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

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

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

где ты тут "определенную точность" видишь? тут русским текстом написано, что нужно вычислить сумму 21 первых членов этого ряда!
Читать то хоть умеешь???

P. S. сумму ряда с "определенной точностью" я вычислять умею.

И всем: кто такой умный - давайте напишите решение этой задачи! что слабо? так зачем тогда так понтоваться, дошло аж до того, что придумали какую-то точность для ряда, о которой в условии нифига не сказано. Давайте сюда еще ускорение свободного падения на Марсе добавьте. Зачем чушь то писать? Читать научитесь и всё!

[p51x]

Отвечу только на "дошло аж до того, что придумали какую-то точность для ряда, о которой в условии нифига не сказано."
А давайте при задании вычислить "2*2" писать ответ 5? Ведь в задании про точность ничего не говорилось.

[danekne]

Ха-ха... Да ладно, что спорить из репутации увааажаемых спорщиков все видно - кто как пишет... Кстати, использование i как integer - тоже не очень рационально. Или хотите и со мной поспорить?

[Stilet]

netrino

С просьбой о закрытии согласен.