Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Pionerigor
0 / 0 / 0
Регистрация: 17.12.2009
Сообщений: 9
1

Найти произведение

29.04.2010, 19:22. Просмотров 713. Ответов 0
Метки нет (Все метки)

Найти произведение р=(1-(1/2))(1-(1/4))...(1-(1/2^n)).
Сомножители брать с точностью eps>0.

решение:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
b,p,a,e:real;
niz,x,xx:integer;
begin
x:=1;
xx:=10;
niz:=1;
e:=0.0000001;
p:=1;
b:=1;
repeat
niz:=niz+niz;
b:=a;
a:=1-1/niz;
p:=p*a;
inc(x);
until abs(b-a)<=e;
writeln('p=',p:0:2);
readln;
end.
подскажите как подправить
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.04.2010, 19:22
Ответы с готовыми решениями:

если числа X и Y равны ,то найти их сумму, иначе найти их произведение
если числа X и Y равны ,то найти их сумму, иначе найти их произведение.

Дан текст, в котором имеются цифры: Найти их произведение, найти минимальную цифру.
Дан текст, в котором имеются цифры: Найти их произведение. Найти минимальную цифру.

В массиве A(m,n) в каждом столбце найти минимум, умножить каждый минимум на 5 и найти произведение этих чисел.
В массиве A(m,n) в каждом столбце найти минимум, умножить каждый минимум на 5 и найти произведение...

найти произведение
дано целое число N(&gt;0). Найти произведение 1.1*1.2*1.3 *...(N множитилей). program pro; ...

Найти произведение
Найти произведение положительных нечётных чисел, меньших k, k&lt;30

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.04.2010, 19:22

Найти произведение ряда
Для заданного натурального k и действительного x подсчитать следующие выражения. Простейшим...

Найти произведение ряда
Я не могу решить, кто нить знает как ? 1. 2. 3.

Найти количество и произведение
Дан двумерный массив чисел . Найти максималь-ный и минимальный элементы массива и их индексы...


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

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

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