Помогите пожалуйста решить.2, 3 и 5
Помогите пожалуйста решить.2, 3 и 5
Задать свой вопрос
Albina
Это контрольная!
Максим
Ваш вопрос будет помечен, как нарушение
Затока
Руслан
Для вас будет выслано предостережение в наиблежайшее время.
1 ответ
Константин Горешков
2.
Program Summa2
var S, x: real, i: integer
function Fact(var i:integer) // Функция вычисления факториала
var j: integer
Fact := 1;
for j := 1 to i do Fact := Fact*j;
end;
BEGIN
write ('Vvedite x'); readln (x);
S := 0;
for i := 1 to n do S := S + 1/Fact(i) + sqrt(абс(x));
write (S);
END.
3.
Program Summa3
var S: real, k, n: integer
var a, b: array of integer // Задаем динамические массивы
BEGIN
write ('Vvedite razmer massivov n'); readln (n);
setlength(a, n); // Устанавливаем размеры массивов
setlength(b, n); // a и b в n элементов.
a[1] := 1; b[1] := 1;
for k := 1 to n do
begin
a[k] := b[k-1] + a[k-1]; // Обретаем все a[k]
b[k] := a[k-1] + 2*b[k-1]; // И все b[k] при k = 1, ..., n
end;
S := 0;
for k := 1 to n do S := S + exp(k*ln(3))/k/sqrt(a[k]*a[k] + b[k]*b[k]);
write (S);
END.
5.
Program Summa5
var S, A, x, eps: real, k: integer
function Fact(var k:integer) // Функция вычисления факториала
var j: integer
for j := 1 to i do Fact = Fact*j;
end;
BEGIN
write ('Vvedite x'); readln (x);
write ('Vvedite epsilon'); readln (eps);
S := 0;
A := 1;
while абс(A-eps) gt; 0 do
begin
A := exp(2*k*ln(x)) / (2*Fact(k))
S := S + A;
end;
write (S);
END.
Program Summa2
var S, x: real, i: integer
function Fact(var i:integer) // Функция вычисления факториала
var j: integer
Fact := 1;
for j := 1 to i do Fact := Fact*j;
end;
BEGIN
write ('Vvedite x'); readln (x);
S := 0;
for i := 1 to n do S := S + 1/Fact(i) + sqrt(абс(x));
write (S);
END.
3.
Program Summa3
var S: real, k, n: integer
var a, b: array of integer // Задаем динамические массивы
BEGIN
write ('Vvedite razmer massivov n'); readln (n);
setlength(a, n); // Устанавливаем размеры массивов
setlength(b, n); // a и b в n элементов.
a[1] := 1; b[1] := 1;
for k := 1 to n do
begin
a[k] := b[k-1] + a[k-1]; // Обретаем все a[k]
b[k] := a[k-1] + 2*b[k-1]; // И все b[k] при k = 1, ..., n
end;
S := 0;
for k := 1 to n do S := S + exp(k*ln(3))/k/sqrt(a[k]*a[k] + b[k]*b[k]);
write (S);
END.
5.
Program Summa5
var S, A, x, eps: real, k: integer
function Fact(var k:integer) // Функция вычисления факториала
var j: integer
for j := 1 to i do Fact = Fact*j;
end;
BEGIN
write ('Vvedite x'); readln (x);
write ('Vvedite epsilon'); readln (eps);
S := 0;
A := 1;
while абс(A-eps) gt; 0 do
begin
A := exp(2*k*ln(x)) / (2*Fact(k))
S := S + A;
end;
write (S);
END.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
Облако тегов