Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
NXZ
20 / 1 / 0
Регистрация: 10.01.2011
Сообщений: 71
1

Вычислить произведение ряда

19.05.2011, 19:48. Просмотров 338. Ответов 6
Метки нет (Все метки)

Здравствуйте посмотрите задание
Вычислить произведение ряда
вот программа
Pascal
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
32
33
34
35
36
37
38
39
40
41
42
43
program nik;
uses crt;
var x,y,p,z:real;
i,g:integer;
begin
clrscr;
read(x);
p:=1;
for i:=1 to 4 do
begin
z:=1;
for g:=1 to 5 do
begin
y:=(exp(i*g))/(exp(x));
z:=z*y;
end;
p:=p*z;
end;
write(p);
end.
При значениях икса 0.2 и -3.5 происходит переполнение 
Если программу немного изменить 
program nik;
uses crt;
var x,y,p,z:real;
i,g:integer;
 
begin
clrscr;
read(x);
p:=1;
for i:=1 to 4 do
begin
for g:=1 to 5 do
begin
z:=1;
y:=(exp(i*g))/(exp(x));
z:=z*y;
end;
p:=p*z;
end;
write(p);
end.
Переполнение не происходит как это объяснить и математически этого не могу объяснить так как этот раздел математики вообще не проходил.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.05.2011, 19:48
Ответы с готовыми решениями:

Вычислить произведение ряда
Задали лабораторную, и не пойму как решить формулу где х = 2.7:(

Вычислить произведение ряда
(1+sin 1)*(1+sin2)...(1+sin10)

Вычислить произведение ряда
даны действительное число а и натураоьное число n. вычислить...

Вычислить произведение ряда
спасибо большое! помогите пожалуйста задачку решить! Составить программу на...

Вычислить произведение ряда
Дано действительное число x,натуральное n. Вычислить...

6
Puporev
Модератор
55047 / 42319 / 29225
Регистрация: 18.05.2008
Сообщений: 100,018
19.05.2011, 20:33 2
Первый вариант правильный, второй нет. Никакого переполнения у меня не происходит, числа правда большие в 63 и 96 степени, но вполне подходящие под real.
1
NXZ
20 / 1 / 0
Регистрация: 10.01.2011
Сообщений: 71
19.05.2011, 20:34  [ТС] 3
Puporev, Мне вот надо объяснить что будет происходить если я z:=1 поменяю местами
0
Puporev
Модератор
55047 / 42319 / 29225
Регистрация: 18.05.2008
Сообщений: 100,018
19.05.2011, 20:36 4
Если z засунуть внутрь цикла, то оно будет равно последнему значению y, а не произведению.
1
NXZ
20 / 1 / 0
Регистрация: 10.01.2011
Сообщений: 71
19.05.2011, 20:40  [ТС] 5
Puporev, а как будет выглядеть математическая модель?
0
Puporev
Модератор
55047 / 42319 / 29225
Регистрация: 18.05.2008
Сообщений: 100,018
19.05.2011, 20:47 6
Понятия не имею....
1
NXZ
20 / 1 / 0
Регистрация: 10.01.2011
Сообщений: 71
19.05.2011, 20:55  [ТС] 7
Puporev, я вот тоже,а без неё никуда)
0
19.05.2011, 20:55
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.05.2011, 20:55

Вычислить произведение ряда
Даны действительное число а, натуральное n. Вычислить: a(a-n)(a-2n)...(a-n(в...

Вычислить произведение ряда
Написать паскаль программу вычисления выражения

Вычислить произведение ряда
пусть а0=а1;ak=a(k-1)+(a(k-1)/2^(k-1)), где k=2,3,... найдите произведения...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru