Синформатикой,нужно ,: (решение с параметром,язык pascal) №1)дано натуральное n, вычислить: а) -2/1! +3/2! + (-1)^n *(n+1)/n! (n после единицы это степень) б) 1! /1+ 2! / (1+1/2) ++ n! / (1+1/2++1/n) №2) дано натуральное n, действительное х, вычислить: а) x^1 / 1! + x^2 /2++ x^n / n! б)(1/2 - cosx)(2/3-(cos^2)* n/(n+1) - (cos^n)* x))
сашагушцщц
2
18.05.2019 12:50
0
Другие вопросы по теме Информатика
dmahov228
29.09.2019 00:50
fox2121
29.09.2019 00:50
rabotastudent5
10.08.2019 09:20
olgayabs76oxczon
15.03.2019 02:45
81MrTNTminer81
15.03.2019 03:40
Умник00Семь
15.03.2019 03:40
Salahaddin001
19.12.2020 11:47
Sowa2006
19.12.2020 11:47
dasha8743
19.12.2020 11:47
Лейла0044
19.12.2020 11:47
Популярные вопросы
- В Past simple иди Continuous 1. He (not to open) the window before classes yesterday2....
1 - (қазахский язык) ТЖБ Barinly-one love...
3 - Побудуйте в одній системі координат графіки функцій y =2,5x та y =5та знайдіть координати...
1 - Діти, граючи у футбол, розбили вікно м’ячем у сусідньому домі. Потім з’ясувалося,...
2 - Легко Крахмальная дрянь - 1) синекдоха 2) перифраз 3) метонимия Подлый воротник...
1 - Как вы думайте, почему наше государство уделяет большое внимание праву человека...
2 - На координатной плоскости отметьте точки: A(-2; 1), B(4; 5); C(0; 5); D(3; -2)....
1 - У ліве коліно сполучених посудинах налито воду, у праве-гас. Висота стовпа гасу...
3 - решить задачи 172-176...Очень нужно...
3 - Напишіть рівняння реакцій між:*приклад є ів...
1
// №1 а)
function Fact(n:integer):integer;
var
rez, i:integer;
begin
rez := 1;
for i := 1 to n do
rez := rez * i;
Fact := rez;
end;
function Pow(a, x:integer):integer;
var
rez, i:integer;
begin
rez := 1;
for i := 1 to x do
rez := rez * a;
Pow := rez;
end;
var
n, i:integer;
R:real;
begin
r := 0;
write('n = '); readln(n);
for i := 1 to n do
begin
r := r + Pow(-1, i mod 2) * (i + 1) / Fact(i);
end;
writeln('R = ', r);
end.
// №1 б)
function Fact(n:integer):integer;
var
rez, i:integer;
begin
rez := 1;
for i := 1 to n do
rez := rez * i;
Fact := rez;
end;
function Summ(n:integer):real;
var
i:integer;
rez:real;
begin
rez := 1;
for i := 2 to n do
rez := rez + 1/i;
Summ := rez;
end;
var
n, i:integer;
R:real;
begin
r := 0;
write('n = '); readln(n);
for i := 1 to n do
begin
r := r + Fact(i)/Summ(i);
end;
writeln('R = ', r);
end.
// №2 а)
function Fact(n:integer):integer;
var
rez, i:integer;
begin
rez := 1;
for i := 1 to n do
rez := rez * i;
Fact := rez;
end;
function Pow(a:real; x:integer):real;
var
i:integer;
rez:real;
begin
rez := 1;
for i := 1 to x do
rez := rez * a;
Pow := rez;
end;
var
n, i:integer;
R, x:real;
begin
r := 0;
write('n = '); readln(n);
write('x = '); readln(x);
for i := 1 to n do
begin
r := r + Pow(x, i) / Fact(i);
end;
writeln('R = ', r);
end.
// №2 б)
function Pow(a:real; x:integer):real;
var
i:integer;
rez:real;
begin
rez := 1;
for i := 1 to x do
rez := rez * a;
Pow := rez;
end;
var
n, i:integer;
R, x:real;
begin
r := 1;
write('n = '); readln(n);
write('x = '); readln(x);
for i := 1 to n do
begin
r := r * (i / (i + 1) - Pow(cos(x), i)) ;
end;
writeln('R = ', r);
end.