Люди добрые!Пожалуйста помогите!Умоляю!Мне нужны программы вычисляющие:
1)Число\Константу Пи (4-4/3+4/5-4/7+4/9...4/n) (n=нечётное)
2)Число\Константу e (e=(1+1/n)^n) или (e=1/0!+1/1!+1/2!+1/3!+1/4!+1/5!...1/n!)
3)1+1/2+1/3+1/4+1/5...1/n (Максимум для n=300)
4)1-1/2+1/3-1/4+1/5...1/n (Максимум для n=300)
Заранее Спасибо Огромное!

А воспользоваться FAQ и поиском ?
Решалось неоднократно.

!

во избежание п1.3

Я вычислял под грифом "вычисление" =и ничего!Что делать?

Вот это читал?
Общие вопросы по математике.

По-моему ты ошибаешься там я не увидел то что ожидал?Или?

Что ты ожидал? "Уважаемый Perfez, вот тут для Вас была написана программа, мы знали, что она Вам пригодится"? Или все-таки ты соизволишь посмотреть на:
? Exp(1) это как раз и будет число e, правда?

Добавлено через 1 мин.
P.S. Поменяй заголовок, тебя Правила тоже касаются.

const eps = 0.0000001; { Задаем точность }=Максимум сколько?

Добавлено через 6 мин.

Можно уточнить до 100 символов после точки?

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

Извини,я ошибься...в который раз=Все эти примеры должны решаться с помощью длинной арифметики.Я проверил макс после точки это=10 символов

Для 10 хватит и real!

а... ну да, как же я не догадалась, что это на длинную арифметику?! каждому ежику должно быть понятно, если написано "вычислить" - значит, с точностью до 100 знаков!
Длинная арифметика

Думаешь я не додумался до этого=Длинное деление+Длинное сложение=и делу венец=Не получается...

Ага.
ПОЧЕМУ не получается - я тоже должна догадаться?
Может, хотя бы покажешь, ЧТО ты написал?

Podpravka....

<deleted by author>

Ti mojesh dat` qotoviy Pas file kak primer...pojaluysta

А то что я привел, это по-твоему что? C++? Или, может, Бейсик?

Скопируй и через NotePad сохрани в PAS. Сейчас прямо, ЗА тебя еще это будем делать... Может и сдать ЗА тебя?

Теги TRANSLIT кстати, специально для таких вот как ты придумали, кому лень переключать раскладку.

Добавлено через 2 мин.
Артемий2, и что будет, когда ты вот так напишешь, как показал? Ты запускал программу вообще?

Перемутил, извиняюсь, не заметил...

Vot resheniye zadachi number 4:

!

Еще раз не воспользуешься тегами translit получаешь премод на неделю

Добавлено через 12 мин.

FPC 2.0.4 ruqayetsya na oshibku 201 runtime error=Cho delat`?

Постась первой строкой {$mode objfpc} например ...

По поводу транстила, допускаю что ты не заметил, сейчас я делаю тебе последнее китайское предупреждение.

Spasibo

А у меня FPC 2.0.4 никак не ругается, а только выдает правильный ответ. Что Я делаю не так? (кстати, {$MODE ObjFPC} только ухудшит ситуацию, ничего полезного оно не сделает, это должно работать с любыми режимами, даже в {$MODE Tp})...

На какой строке ошибка?

Зацикливается второй цикл (который с вложеным)...

Добавлено через 3 мин.
аттач

Nu ya ne znayu...poprobuy...xotya {$MODE ObjFPC} pomoqayet?

Посмотрел на ошибку, поменял все Integer на LongInt и все ОК

И что тебе это дало? SizeOf(Integer) = SizeOf(LongInt) для FPC ...

А вот отключил контроль стека зря...

sizeof(integer) == 2
sizeof(longint) == 4

У меня по умолчанию Delphi Compatible, но это все равно ничего не меняет, даже в {$MODE TP} работает как положено... Я тебе больше скажу, оно и в Турбо Паскале ошибок не выдает в том виде, как я привел программу в посте №16 (правда, считает в 10 раз дольше)

Да время всему помощь.Сел сегодня и написал три программы.Оставшуюся одну задачу помог решить Вольво.Респект ему огромный.И конечно же всем кто хотя заглянул сюда.Кстати чуть не забыл,из решённых мною задач 1-ая выдаёт неправильный ответ(это глупо понимаю)=алгоритм неправилен что ли?(я в калькуляторе проверяю ответ но ответ не соответствует официальной версии константы/числа Пи.Помогите разобраться в чём тут дело,пожалуйста???
1)Число\Константу Пи (4-4/3+4/5-4/7+4/9...4/n) (n=нечётное)
(файл к нему=pi.pas)
Нажмите для просмотра прикрепленного файла
4)1-1/2+1/3-1/4+1/5...1/n (Максимум для n=300)
(файл к нему=plusminus.pas)(по-моему абсолютно правильное решение)
Нажмите для просмотра прикрепленного файла

Добавлено через 6 мин.
А да ещё кстати кто-то может конвертировать листинг программы С в Pascal.Очень прошу!

Файл перенесен в attach
Нажмите для просмотра прикрепленного файла

Perfez, при всех говорю: хватит писать мне в личку!!!!!! Ты что - не видишь подписи?!
Тебе и так все усиленно помогают

тебе по каким формулам pi надо посчитать?
определись уж

М

В настройках ты можешь добавить автора в свою книгу и запретить ему писать тебе сообщения.

По формуле Гаусса,пожалуйста

А да забыл ещё:
3)1+1/2+1/3+1/4+1/5...1/n (Максимум для n=300)
(файл к нему=1.pas)(по-моему абсолютно правильное решение)
Нажмите для просмотра прикрепленного файла

<program deleted by author>

М

В следующий раз такие большие исходники приаттачивай, а не копируй, подсветка синтаксиса притормаживает при таких объемах... volvo