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

@Angreifer · Регистрация: 15.03.2013

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

Даны натурально число n, действительное число x. Вычислить:
З.Ы нужно под г.

@BumerangSP · 15.03.2013, 12:41

C++

#include <iostream>
#include <cmath>
int f(const int& x)
{
     return x<=1 ? 1 : x*f(x-1);
}
int main()
{
     int n;
     double x, p(1);
     std::cin>>n>>x;
     for (int k=1; k<=n; ++k)
        p*=(1+sin(k*x)/f(k));
    std::cout<<p;
     return 0;
}

Добавлено через 5 минут
только здесь нет проверки на вводимое n: оно должно быть не меньше 1, т.к. если цикл не пройдет ни разу, ответ будет 1 вместо 0.

@Angreifer · 15.03.2013, 12:48 **[ТС]**

Спасибо)) А можно тоже самое, но на паскале? Форумы перепутал...

@Rumpelstiltskin · 15.03.2013, 21:13

ЗАДАНИЕ а)

Pascal

program pr1;
uses crt;
var s,x:real;
n,i,k:integer;
begin
clrscr;
writeln('введите Х');readln(x);
writeln('введите N');readln(n);
s:=0; k:=1;
for i:=1 to n do
begin
k:=k*i;
s:=s+(exp(i*ln(x))/k);
end;
writeln('Сумма= ',s);
readln;
end.

Добавлено через 10 минут
ЗАДАНИЕ в)

Pascal

program pr2;
uses crt;
var s,x:real;
n,i:integer;
begin
clrscr;
writeln('введите Х');readln(x);
writeln('введите N');readln(n);
s:=0;
for i:=1 to n do
s:=s+ (x+cos(i*x))/(exp(i*ln(2)));
writeln('Сумма= ',s);
readln;
end.

@Angreifer 0 / 0 / 0 Регистрация: 15.03.2013 Сообщений: 7
		1
	Даны натурально число n, действительное число x. Вычислить: 15.03.2013, 12:29. Показов 7964. Ответов 3 Метки нет (Все метки) Даны натурально число n, действительное число x. Вычислить: З.Ы нужно под г. Миниатюры 0

@Angreifer 0 / 0 / 0 Регистрация: 15.03.2013 Сообщений: 7
	15.03.2013, 12:48 [ТС]	3
	Спасибо)) А можно тоже самое, но на паскале? Форумы перепутал... 0

	15.03.2013, 21:13

Опции темы