Консультация № 145899
03.10.2008, 20:25
0.00 руб.
0 5 1
Ув. Експерты даного раздела помогите пожалуйста с задачай, а то мне она немношко не по зубам
****
Пашитать суму членов ряда (http://s50.radikal.ru/i130/0810/2a/6030deee27dd.jpg) с точностю до члена ряда меньше Е, без пременения function.

Обсуждение

давно
Старший Модератор
31795
6196
03.10.2008, 21:40
общий
это ответ
Здравствуйте, Gyrik!

Программа в приложении.
Если что непонятно, задавайте вопросы в мини-форум.
Удачи!

Приложение:
const
e=0.0000001;{точность}
var
i:integer;{счетчик для факториала}
w,x,y,z:real;
begin
{вводим Х}
write('x:');readln(x);
{начальные значения всех переменных}
z:=1;
y:=-1;
w:=1;
i:=1;
repeat
{считаем новые значения}
y:=-y*i;
w:=w*x;
{считем ряд}
z:=z+w/y;
{счедующий множитель факториала}
inc(i);
{проверяем условие выхода}
until abs(w/y)<e;
{выводим результат}
write('result:',z:20:10);
readln;
end.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Неизвестный
03.10.2008, 22:03
общий

Все работает СПАСИБО !!!!!!!!!!!!!!!!!!!!
давно
Старший Модератор
31795
6196
03.10.2008, 22:14
общий
Ну и ладно, главное, чтобы Вы смогли всё это расказать преподавателю.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Неизвестный
05.10.2008, 18:34
общий
все понятно только одно меня смушает , что такое inc(i) ? (:
Еще раз спасибо за помошь ))))
давно
Старший Модератор
31795
6196
05.10.2008, 19:48
общий
i:=i+1;
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа