Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на языке Pascal

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 2.943 RSS
←   Январь 2006   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://prog.rusfaq.ru/pascal
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

2.943 подписчиков
0 за неделю
←   Все выпуски   →

RusFAQ.ru: Программирование на языке Pascal


Информационный Канал Subscribe.Ru
РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal

Выпуск № 124
от 10.01.2006, 17:33

Администратор:Калашников О.А.
В рассылке:Подписчиков: 143, Экспертов: 37
В номере:Вопросов: 2, Ответов: 2

Вопрос № 32671: Нужно вычислить e^x не используя стандартную функцию EXP(x) по формуле e^x=1+x/1! + x^2/2! = x^3/3! + ... для значения x=5 и сравнить с результатом стандартной функции. Составил прогу, но что-то не так. Подскажите, кому не трудно, ...
Вопрос № 32672: Такой вопрос. Нужна програмка рисующая многоугольник и заливающая его однотоновой заливкой методом построчного сканирования. Спасибо. Может есть готовая?...

Вопрос № 32.671
Нужно вычислить e^x не используя стандартную функцию EXP(x)

по формуле e^x=1+x/1! + x^2/2! = x^3/3! + ... для значения x=5 и сравнить с результатом стандартной функции. Составил прогу, но что-то не так.

Подскажите, кому не трудно, где ошибка. Спасибо

Приложение:

Отправлен: 04.01.2006, 21:10
Вопрос задал: MAR (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Stamm
Здравствуйте, MAR!
ex1:=(stepen(y,y))/Factorial(y);
-----Вместо первого y нужно подставить x.
ex1:=(stepen(x,y))/Factorial(y);

while y>1 do begin
x1:=x1*x;
y:=y-1;
stepen:=x1;
end;
---------Здесь надо строку stepen:=x1; вынести за цикл
while y>1 do begin
x1:=x1*x;
y:=y-1;
end;
stepen:=x1;

Вроде больше нет ошибок.
Есть мелкие поправки.
for n:=1 to n do begin
fact:=fact*n;
Factorial:=fact;
end;
здесь можно n начинать с 2.....
P.S. По-моему, если используешь тип double, нужно в Options--->>>Compiler ставить галку на 8087/80287. Это для того, чтобы большие числа обрабатывать, вроде.
---------
В день - один, ну два подвига, не больше...
Ответ отправил: Stamm (статус: 10-ый класс)
Отправлен: 04.01.2006, 23:07

Вопрос № 32.672
Такой вопрос. Нужна програмка рисующая многоугольник и заливающая его однотоновой заливкой методом построчного сканирования. Спасибо. Может есть готовая?
Отправлен: 04.01.2006, 21:17
Вопрос задал: MAR (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Stamm
Здравствуйте, MAR!
Есть готовый модуль для работы с графикой Graph.tpu. Подключаем его в программу (uses graph). Переменная GD нам нужна, чтобы инициализировать графический режим.[InitGraph(gd,gd,'')]. Здесь вместо пустых кавычек надо написать расположение файла EGAVGA.BGI, если он находиться не в одной директории с TP. Далее идет установка цвета и стиля закраски[SetFillStyle(1,2)]. Первый параметр отвечает за стиль закраски(от 1 до 11 можете поэксперементировать). Второй - за цвет( от 0 до 15). И сама функция рисования закрашенного прямоугольника Bar. Где первые два параметра это координаты верхней левой точки(x и y), а последние два - правой нижней точки. Причем начало координат находиться в левом верхнем углу. Т.е. при движении вниз y увеличивается(не так как мы привыкли). А с X все как привыкли.

Приложение:

---------
В день - один, ну два подвига, не больше...

Ответ отправил: Stamm (статус: 10-ый класс)
Отправлен: 04.01.2006, 22:55

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

© 2001-2006, Портал RusFAQ.ru, Россия, Москва.
Идея, дизайн, программирование: Калашников О.А.
Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31
Авторские права | Реклама на портале 		Яндекс Rambler's Top100
Subscribe.Ru
Поддержка подписчиков
Другие рассылки этой тематики
Другие рассылки этого автора		 Подписан адрес:
Код этой рассылки: comp.soft.prog.pasplus
Архив рассылки		 Отписаться Вебом Почтой
Вспомнить пароль
В избранное