Найти сумму факториалов нечётных чисел от 1 до 9 (с использованием подпрограмм)

@Smilodonn · Регистрация: 24.12.2009

Студворк — интернет-сервис помощи студентам

1. Нахождение суммы факториалов нечётных чисел от 1 до 9 (с использованием подпрограмм)
2. Дано натуральное n. Вычислить:
S=1*2+2*3*4+...+n*(n-1)
3. Дано натуральное n. Вычислить:
p=(1-1/(2^2))*(1-1/(3^2)*...*(1-1/(n^2))
4. Дано натуральное n. Вычислить:
P=1*(1-1/2)*(1-1/4)*(1-1/6)*...*(1-1/2*n)
Особо важны 2-4. Чем скорее тем лучше, в любом случае спасибо за старания.

@Puporev · 24.12.2009, 11:33

1. Нахождение суммы факториалов нечётных чисел от 1 до 9 (с использованием подпрограмм)

Pascal

uses crt;
function Fact(x:byte):longint;
var i:byte;
    f:longint;
begin
f:=1;
for i:=1 to x do
f:=f*i;
Fact:=f;
end;
var i:byte;
    s:longint;
begin
clrscr;
s:=0;
for i:=1 to 9 do
if odd(i) then s:=s+Fact(i);
write('S=',s);
readln
end.

2. Дано натуральное n. Вычислить:
S=1*2+2*3*4+...+n*(n-1)

Мне кажется в записи есть ошибка 2*3*4, должно быть 1*2+2*3+3*4+……

Pascal

{N+}//директива компилятора для работы с типом extended
uses crt;
var n,i:longint;
    s:extended;
begin
clrscr;
write('n=');readln(n);
s:=0;
for i:=2 to n do
s:=s+i*(i-1);
write('S=',s:0:0);
readln
end.

3. Дано натуральное n. Вычислить:
p=(1-1/(2^2))*(1-1/(3^2)*...*(1-1/(n^2))

Javascript

{N+}
uses crt;
var n,i:longint;
    p:extended;
begin
clrscr;
write('n=');readln(n);
p:=1;
for i:=2 to n do
p:=p*(1-1/(i*i));
write('P=',p:0:5);
readln
end.

4. Дано натуральное n. Вычислить:
P=1*(1-1/2)*(1-1/4)*(1-1/6)*...*(1-1/2*n)

Pascal

{N+}
uses crt;
var n,i:longint;
    p:extended;
begin
clrscr;
write('n=');readln(n);
p:=1;
for i:=1 to n do
p:=p*(1-1/(2*i));
write('P=',p:0:5);
readln
end.

@Smilodonn 0 / 0 / 0 Регистрация: 24.12.2009 Сообщений: 5
		1
	Найти сумму факториалов нечётных чисел от 1 до 9 (с использованием подпрограмм) 24.12.2009, 05:01. Показов 2704. Ответов 1 Метки нет (Все метки) 1. Нахождение суммы факториалов нечётных чисел от 1 до 9 (с использованием подпрограмм) 2. Дано натуральное n. Вычислить: S=12+234+...+n(n-1) 3. Дано натуральное n. Вычислить: p=(1-1/(2^2))(1-1/(3^2)...(1-1/(n^2)) 4. Дано натуральное n. Вычислить: P=1(1-1/2)(1-1/4)(1-1/6)...(1-1/2*n) Особо важны 2-4. Чем скорее тем лучше, в любом случае спасибо за старания. 0

Опции темы

Найти сумму факториалов нечётных чисел от 1 до 9 (с использованием подпрограмм)

Решение