сервис вопросов и ответовПОМОГИТЕ ПОЖАЛУЙСТА С ИНФОРМАТИКОЙ,НУЖНО ОЧЕНЬ СРОЧНО,: (решение задач с параметром,язык PASCAL) №1)дано натуральное n, вычислить:
5-9 класс|
|
а) -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)*x)).....( n/(n+1) - (cos^n)* x))
Agafonov93
28 янв. 2014 г., 5:54:39 (10 лет назад)
Lens4
28 янв. 2014 г., 7:16:05 (10 лет назад)
// №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.
Ответить
Другие вопросы из категории
Объем свободной памяти на диске - 0,01 Гб, разрядность звуковой платы -
16. Какова длительность звучания цифрового аудиофайла, записанного с частотой
дискретизации 44100 Гц
Каков минимальный объем видеопамяти,необходимый для хранения графического изображения,занимающего область экрана 512х512 точек,где каждая точка может
иметь один из 256 цветов?
Читайте также
Здравствуйте!Помогите пожалуйста с информатикой!
1.В ящике имеется 3 чёрных и 5 белых шаров.Какое наименьшее число шаров нужно взять из ящика ( не заглядывая в него), чтобы среди вытянутых шаров:.
1)Оказался хотя бы 1 чёрный
2)Оказался хотя бы 1 белый
3)Оказались хотя бы 2 чёрных
4)Окаазались хотя бы 2 белых
Если можно с решением,логическим рядом.
2. В одной книге было написано 100 следующих утерждений.
"В этой книге роно одно неверное утверждение"
"В этой книге ровно два неверных утверждения"
............................................................................................
"В этой книге ровно сто неверных утверждений.
Какое из этих утерждений верное?
Судя по моим мыслям,это явно не 3, тогда это получается правда, что противоречит смыслу предложения. Тогда какое получается? Я не знаю.Помогите пожалуйста. Напишите всё с решением пожалуйста.
Ах да,чуть не забыла. Если кто -то знает бесплатный решебник ( без всяких файлообменников) напишите пожалуйста.
Здравствуйте!Помогите пожалуйста с информатикой! 1.В ящике имеется 3 чёрных и 5 белых шаров.Какое наименьшее число шаров нужно взять из ящика ( не
заглядывая в него), чтобы среди вытянутых шаров:. 1)Оказался хотя бы 1 чёрный 2)Оказался хотя бы 1 белый 3)Оказались хотя бы 2 чёрных 4)Окаазались хотя бы 2 белых Если можно с решением,логическим рядом. 2. В одной книге было написано 100 следующих утерждений. "В этой книге роно одно неверное утверждение" "В этой книге ровно два неверных утверждения" ............................................................................................ "В этой книге ровно сто неверных утверждений. Какое из этих утерждений верное? Судя по моим мыслям,это явно не 3, тогда это получается правда, что противоречит смыслу предложения. Тогда какое получается? Я не знаю.Помогите пожалуйста. Напишите всё с решением пожалуйста. Ах да,чуть не забыла. Если кто -то знает бесплатный решебник ( без всяких файлообменников) напишите пожалуйста.
ПОМОГИТЕ ПОЖАЛУЙСТА РЕШИТЬ 3 ЗАДАЧКИ, ОЧЕНЬ СРОЧНО НУЖНО. 1. В кодировке ASCII каждый символ кодируется одним байтом. Определите
информационный объем сообщения в этой кодировке:
помогите пожалуйста с заданием , нужно сделать в электронном виде 2 ребуса. Первый ребус это слово "сеансовий рівень",
второе "повідомлення".
помогите пожалуйста :)
ПОМОГИТЕ ПОЖАЛУЙСТА С ДВУМЯ ЗАДАЧАМИ НА ЯЗЫКЕ PASCAL: 1)даны 2 числа, заменить второе число нулем, если оно не меньше первого и оставить его
прежним,если это не так. 2)Даны 3 числа, возвести в квадрат те из них, значения которых не отрицательны, а отрицательные оставить без изменений
Вы находитесь на странице вопроса "ПОМОГИТЕ ПОЖАЛУЙСТА С ИНФОРМАТИКОЙ,НУЖНО ОЧЕНЬ СРОЧНО,: (решение задач с параметром,язык PASCAL) №1)дано натуральное n, вычислить:", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.