Вычисление числа Пи и E(до точности)

Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи

Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

2 страниц

< 1 2

Вычисление числа Пи и E(до точности), Вычисление числа Пи и E(до точности) в Pascale!

Опции

klem4	11.02.2007 11:27 Сообщение #21
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44	Постась первой строкой {$mode objfpc} например ... По поводу транстила, допускаю что ты не заметил, сейчас я делаю тебе последнее китайское предупреждение. -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'

Perfez	11.02.2007 11:32 Сообщение #22
Бывалый Группа: Модераторы Сообщений: 231 Пол: Женский Репутация: 6	Цитата(klem4 @ 11.02.2007 12:27) Постась первой строкой {$mode objfpc} например ... По поводу транстила, допускаю что ты не заметил, сейчас я делаю тебе последнее китайское предупреждение. Spasibo

volvo	11.02.2007 11:35 Сообщение #23
Гость	Цитата FPC 2.0.4 ruqayetsya na oshibku 201 runtime error=Cho delat`? А у меня FPC 2.0.4 никак не ругается, а только выдает правильный ответ. Что Я делаю не так? (кстати, {$MODE ObjFPC} только ухудшит ситуацию, ничего полезного оно не сделает, это должно работать с любыми режимами, даже в {$MODE Tp})... На какой строке ошибка?

klem4	11.02.2007 11:49 Сообщение #24
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44	Цитата На какой строке ошибка? Зацикливается второй цикл (который с вложеным)... Добавлено через 3 мин. аттач Эскизы прикрепленных изображений -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'

Perfez	11.02.2007 11:54 Сообщение #25
Бывалый Группа: Модераторы Сообщений: 231 Пол: Женский Репутация: 6	Цитата(volvo @ 11.02.2007 12:35) А у меня FPC 2.0.4 никак не ругается, а только выдает правильный ответ. Что Я делаю не так? (кстати, {$MODE ObjFPC} только ухудшит ситуацию, ничего полезного оно не сделает, это должно работать с любыми режимами, даже в {$MODE Tp})... На какой строке ошибка? Nu ya ne znayu...poprobuy...xotya {$MODE ObjFPC} pomoqayet?

klem4	11.02.2007 11:54 Сообщение #26
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44	Посмотрел на ошибку, поменял все Integer на LongInt и все ОК -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'

volvo	11.02.2007 11:58 Сообщение #27
Гость	Цитата поменял все Integer на LongInt и все ОК И что тебе это дало? SizeOf(Integer) = SizeOf(LongInt) для FPC ... А вот отключил контроль стека зря...

klem4	11.02.2007 12:03 Сообщение #28
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44	Цитата И что тебе это дало? SizeOf(Integer) = SizeOf(LongInt) для FPC ... sizeof(integer) == 2 sizeof(longint) == 4 -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'

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

Perfez	11.02.2007 13:48 Сообщение #30
Бывалый Группа: Модераторы Сообщений: 231 Пол: Женский Репутация: 6	Да время всему помощь.Сел сегодня и написал три программы.Оставшуюся одну задачу помог решить Вольво.Респект ему огромный.И конечно же всем кто хотя заглянул сюда.Кстати чуть не забыл,из решённых мною задач 1-ая выдаёт неправильный ответ(это глупо понимаю)=алгоритм неправилен что ли?(я в калькуляторе проверяю ответ но ответ не соответствует официальной версии константы/числа Пи.Помогите разобраться в чём тут дело,пожалуйста??? 1)Число\Константу Пи (4-4/3+4/5-4/7+4/9...4/n) (n=нечётное) (файл к нему=pi.pas) pi.pas ( 1.24 килобайт ) Кол-во скачиваний: 310 4)1-1/2+1/3-1/4+1/5...1/n (Максимум для n=300) (файл к нему=plusminus.pas)(по-моему абсолютно правильное решение) plusminus.pas ( 910 байт ) Кол-во скачиваний: 315 Добавлено через 6 мин. А да ещё кстати кто-то может конвертировать листинг программы С в Pascal.Очень прошу! Файл перенесен в attach Pi.CPP ( 6.01 килобайт ) Кол-во скачиваний: 278 Сообщение отредактировано: volvo - 11.02.2007 16:48

мисс_граффити

11.02.2007 15:07

Сообщение #31

просто человек

Группа: Модераторы
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация:

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

Цитата

** Formulae:
**
** Pi/4 = arctan(1/2)+arctan(1/3) (Hutton 1)
** Pi/4 = 2*arctan(1/3)+arctan(1/7) (Hutton 2)
** Pi/4 = 4*arctan(1/5)-arctan(1/239) (Machin)
** Pi/4 = 12*arctan(1/18)+8*arctan(1/57)-5*arctan(1/239) (Gauss)

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

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

--------------------

Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!

Perfez	11.02.2007 15:30 Сообщение #32
Бывалый Группа: Модераторы Сообщений: 231 Пол: Женский Репутация: 6	Цитата(мисс_граффити @ 11.02.2007 16:07) тебе по каким формулам pi надо посчитать? определись уж По формуле Гаусса,пожалуйста А да забыл ещё: 3)1+1/2+1/3+1/4+1/5...1/n (Максимум для n=300) (файл к нему=1.pas)(по-моему абсолютно правильное решение) 1.pas ( 778 байт ) Кол-во скачиваний: 278

volvo

11.02.2007 16:44

Сообщение #33

Гость

<program deleted by author>

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

« Предыдущая тема · Задачи · Следующая тема »

2 страниц

< 1 2

1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)

Пользователей: 0

Режим отображения: Стандартный · Переключить на: Линейный · Переключить на: Древовидный

Подписка на тему · Сообщить другу · Версия для печати · Подписка на этот форум

Текстовая версия

15.09.2025 1:27

Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"