
Вопрос задан 18.02.2019 в 05:29.
Предмет Информатика.
Спрашивает Казора Настя.
Помогите решить, второй месяц не могу разобрать вариант в, нужно решение примера и алгоритм к нему



Ответы на вопрос

Отвечает Уткин Антон.
Вот я выполнил работу в Excele.
Прилагаю скриншот и книгу Excel
Прилагаю скриншот и книгу Excel



Отвечает Маслова Татьяна.
А чего тут соображать, то ?
var n: integer;
x: real;
{ нахождение суммы ряда }
function Sum(x: real; n: integer) : real;
var i,k: integer;
s: real;
begin
s:=0; k:=2;
for i:=1 to n do
begin
s:=s+(x+cos(i*x))/k;
k:=k*2;
end;
Result:=s;
end;
{ основная программа }
begin
write('задайте n: '); readln(n);
write('задайте x: '); readln(x);
writeln('сумма ряда равна: ',Sum(x,n):6:4);
end.
var n: integer;
x: real;
{ нахождение суммы ряда }
function Sum(x: real; n: integer) : real;
var i,k: integer;
s: real;
begin
s:=0; k:=2;
for i:=1 to n do
begin
s:=s+(x+cos(i*x))/k;
k:=k*2;
end;
Result:=s;
end;
{ основная программа }
begin
write('задайте n: '); readln(n);
write('задайте x: '); readln(x);
writeln('сумма ряда равна: ',Sum(x,n):6:4);
end.


Топ вопросов за вчера в категории Информатика

Информатика 2132

Информатика 63

Информатика 14

Информатика 32

Информатика 19

Информатика 15

Информатика 175

Информатика 31

Информатика 48
Последние заданные вопросы в категории Информатика
Предметы
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili