Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Ele
0 / 0 / 0
Регистрация: 04.09.2011
Сообщений: 7
#1

Найти произведение ряда - Turbo Pascal

29.02.2012, 19:43. Просмотров 344. Ответов 1
Метки нет (Все метки)

а(а+1)*...*(а+(n-1))
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.02.2012, 19:43
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти произведение ряда (Turbo Pascal):

Найти произведение ряда - Turbo Pascal
Даны действительное число а, натуральное число n. Вычислить тремя способами: a×(a+1)x...x(a+n-1) Пытался написать, но всё напутал: ...

Найти произведение ряда - Turbo Pascal
Помогите пожалуйста с решением задачи. Составьте пользовательскую процедуру или функцию для вычисления:

Найти произведение ряда - Turbo Pascal
Дано натуральное п, действительное х. Вычислить:

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

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

Найти произведение ряда - Turbo Pascal
Даны действительное число a и натуральное число n. Вычислить : p=a*(a-n)*(a-2*n)*...*(a-n2). Использовать цикл с предусловием. ...

1
Kasiopeya
35 / 14 / 8
Регистрация: 26.02.2012
Сообщений: 30
29.02.2012, 20:14 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
a,res:real;
n,i:integer;
begin
write('A=');
readln(a);
write('N=');
readln(n);
res:=a;
for i:=1 to n-1 do
  res:=res*(a+i);
write('a(a+1)*...*(a+(n-1))= ',res:0:2);
readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.02.2012, 20:14
Привет! Вот еще темы с ответами:

Найти произведение ряда - Turbo Pascal
задание разработать алгоритми программу для решения задачи с использованием указателей. Дано натуральное число n, действительные числа...

Найти произведение ряда - Turbo Pascal
Даны натуральное число n, действительное число х. Вычислить n П(k/(k+1)-cos^k|x| k=1

Найти произведение ряда - Turbo Pascal
P= a(a+1)* ... *(a+n-1) Составить 2 программы с разными циклами(for, while, repeat) Help!

Найти произведение ряда - Turbo Pascal
P= a(a-n)(a-2n)*...*(a-n2)


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

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

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