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

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

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

> Вычисление числа Пи и E(до точности), Вычисление числа Пи и E(до точности) в Pascale!
Perfez
сообщение 10.02.2007 19:32
Сообщение #1


Бывалый
***

Группа: Модераторы
Сообщений: 231
Пол: Женский

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


Люди добрые!Пожалуйста помогите!Умоляю!Мне нужны программы вычисляющие:
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)
Заранее Спасибо Огромное!

Сообщение отредактировано: Perfez - 11.02.2007 15:14
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
Perfez
сообщение 11.02.2007 13:48
Сообщение #2


Бывалый
***

Группа: Модераторы
Сообщений: 231
Пол: Женский

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


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

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


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

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



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

Сообщений в этой теме
Perfez   Вычисление числа Пи и E(до точности)   10.02.2007 19:32
мисс_граффити   А воспользоваться FAQ и поиском ? Решалось неоднок...   10.02.2007 19:51
Perfez   А воспользоваться FAQ и поиском ? Решалось неодно...   10.02.2007 19:59
мисс_граффити   Вот это читал? Общие вопросы по математике.   10.02.2007 20:00
Perfez   По-моему ты ошибаешься там я не увидел то что ожид...   10.02.2007 20:12
volvo   Что ты ожидал? "Уважаемый Perfez, вот тут для...   10.02.2007 20:15
Perfez   Что ты ожидал? "Уважаемый Perfez, вот тут дл...   10.02.2007 20:18
мисс_граффити   а где-то было написано, что это нужно? или мы дол...   10.02.2007 20:30
Perfez   а где-то было написано, что это нужно? или мы дол...   10.02.2007 20:34
Bokul   Для 10 хватит и real!   10.02.2007 20:37
мисс_граффити   а... ну да, как же я не догадалась, что это на дли...   10.02.2007 20:39
Perfez   а... ну да, как же я не догадалась, что это на дл...   10.02.2007 20:55
мисс_граффити   Ага. ПОЧЕМУ не получается - я тоже должна догадать...   10.02.2007 21:13
Perfez   Ага. ПОЧЕМУ не получается - я тоже должна догадат...   10.02.2007 21:41
Perfez   Podpravka....   10.02.2007 22:16
volvo   <deleted by author>   11.02.2007 9:59
Perfez   Ti mojesh dat` qotoviy Pas file kak primer...p...   11.02.2007 10:34
volvo   А то что я привел, это по-твоему что? C++? Или, мо...   11.02.2007 10:42
Артемий2   Перемутил, извиняюсь, не заметил... :wacko: :)   11.02.2007 10:49
Perfez   Vot resheniye zadachi number 4: Еще раз не воспо...   11.02.2007 10:57
klem4   Постась первой строкой {$mode objfpc} наприме...   11.02.2007 11:27
Perfez   Постась первой строкой {$mode objfpc} наприм...   11.02.2007 11:32
volvo   А у меня FPC 2.0.4 никак не ругается, а только выд...   11.02.2007 11:35
Perfez   А у меня FPC 2.0.4 никак не ругается, а только вы...   11.02.2007 11:54
klem4   Зацикливается второй цикл (который с вложеным)...   11.02.2007 11:49
klem4   :) Посмотрел на ошибку, поменял все Integer на Lo...   11.02.2007 11:54
volvo   И что тебе это дало? SizeOf(Integer) = SizeOf(Lon...   11.02.2007 11:58
klem4   :blink: sizeof(integer) == 2 sizeof(longint...   11.02.2007 12:03
volvo   У меня по умолчанию Delphi Compatible, но это все ...   11.02.2007 12:10
Perfez   Да время всему помощь.Сел сегодня и написал три пр...   11.02.2007 13:48
мисс_граффити   Perfez, при всех говорю: хватит писать мне в личку...   11.02.2007 15:07
Perfez   тебе по каким формулам pi надо посчитать? определи...   11.02.2007 15:30
volvo   <program deleted by author> [mod]В следующи...   11.02.2007 16:44


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

 



- Текстовая версия 20.07.2025 18:55
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"