zherukova00
02.04.2023 19:28

Написать код к !
написать функцию вычисления суммы ряда:

· стандартный диапазон значений x =0..9, шаг 0.1. убедиться, что на этом диапазоне элемент суммы ряда стремится к 0, при необходимости скорректировать диапазон;

· вычислить значения суммы ряда и контрольной функции, к которой он сходится, с точностью до 4 знаков после запятой;

· исходя из полученного значения n и формулы ряда объяснить различную скорость сходимости для разных x;
ряд: (x-1)/x+(x-1)^2/2x^2+(x-1)^3/3x^3+…+(x-1)^n/nx^n
функция: ln(x)
мои наброски, которые не сработали:
double sum(double x, double eps, int& n) {

double s, sn; // сумма и текущее слагаемое ряда
int a;
int b;
n = 1;

for (s = 0., sn = (x-1)/x ; abs(sn) > eps; n++) {
b = x * (1+n);
a = pow(x - 1, n);
s += sn;
sn = sn*a/b ;

}

return s;

}

// вычисление степенного ряда для x в диапазоне от 0.1 до 1 с шагом 0.1

int main() {

double x, y;

int nn;

for (x = 0.1; x < = 1.; x += 0.05) {

y = sum(x, 0.0001, nn);

printf("n=%d x=%0.1lf\t sum=%0.4lf\t log=%0.4lf\n", nn, x, y, log(x));

}
}

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
okcanaceninap06wvq
09.02.2020 03:47
1. Основная трудность при чтении египетских иероглифов в том, что большинство египтян не имели понимания древнегреческой системы иероглифов.
2. Египтяне использовали значки-определители для того, чтобы лучше было читать. Значки-определители служили для звучаний слов.
3. Потому что само чтение или писание древнегреческих иероглифов было сложно , так как в то время образования было ужасным.
4. Первым, кому удалось расшифровать египетские иероглифы, был французский учёный, Жан-Франсуа Шампольон(1790-1832). Он составил полный список иероглифов и их греческих эквивалентов, создав тем самым основу для перевода всех египетских иероглифических текстов.
5. Основным носителем информации в египте являлись глиняные таблички, папирусные свитки и наскальные надписи.
6. Стебли растения разрезали на полосы, которые переплетали между собой, прессовали и высушивали на солнце.
7. Хранили в глиняных кувшинах и шкатулках.
0,0(0 оценок)
Ответ:
colins1987
08.11.2020 12:18
// PascalABC.Net 3.0, сборка 1066
var
  s, wd: string;
  n, pt: integer;

begin
  Write('Введите строку: ');Readln(s);
  n := Length(s); pt := 1;
  repeat
    // Пропускаем все символы до первого непробельного
    while pt <= n do
      if s[pt] = ' ' then Inc(pt) else break;
    if pt <= n then begin
      // Выделяем очередное слово
      wd := '';
      while pt <= n do
        if s[pt] <> ' ' then begin wd := wd + s[pt]; Inc(pt) end
        else break;
      if (wd <> '') and (LowCase(wd[1]) in ['м'..'я']) then Writeln(wd)
    end
  until pt > n;
end.

Тестовое решение:
Введите строку: **А роза    упала   на    лапу Азора    **
роза
упала
на

А вот так версия 3.0 позволяет решить задачу "по-современному":

// PascalABC.Net 3.0, сборка 1066
begin
  var s:=ReadString('Введите строку: ');
  Writeln('Результат: ',s.ToWords(' ').Where(x->x[1] in ['м'..'я']))
end.

Тестовое решение:
Введите строку:  **А роза    упала   на    лапу Азора    **
Результат: [роза,упала,на]
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота