IPB
ЛогинПароль:

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

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

2 страниц V < 1 2  
 Ответить  Открыть новую тему 
> Вычисление числа Пи и E(до точности), Вычисление числа Пи и E(до точности) в Pascale!
сообщение
Сообщение #21


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


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

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


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #22


Бывалый
***

Группа: Пользователи
Сообщений: 231
Пол: Женский

Репутация: -  6  +


Цитата(klem4 @ 11.02.2007 12:27) *

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

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

Spasibo
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #23


Гость






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

На какой строке ошибка?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #24


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


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


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

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


Эскизы прикрепленных изображений
Прикрепленное изображение

--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #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?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #26


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


smile.gif

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


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #27


Гость






Цитата
поменял все Integer на LongInt и все ОК

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

А вот отключил контроль стека зря... yes2.gif
 К началу страницы 
+ Ответить 
сообщение
Сообщение #28


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


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


blink.gif

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


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #29


Гость






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


Бывалый
***

Группа: Пользователи
Сообщений: 231
Пол: Женский

Репутация: -  6  +


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

4)1-1/2+1/3-1/4+1/5...1/n (Максимум для n=300)
(файл к нему=plusminus.pas)(по-моему абсолютно правильное решение)
Прикрепленный файл  plusminus.pas ( 910 байт ) Кол-во скачиваний: 299


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

Файл перенесен в attach
Прикрепленный файл  Pi.CPP ( 6.01 килобайт ) Кол-во скачиваний: 279



Сообщение отредактировано: volvo -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #31


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

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

Репутация: -  55  +


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 надо посчитать?
определись уж
М

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



--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #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 байт ) Кол-во скачиваний: 285
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #33


Гость






<program deleted by author>

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

 К началу страницы 
+ Ответить 

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

 





- Текстовая версия 12.05.2021 3:30
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name