Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Найти минимальную сумму N, при которой в пятницу друзьям можно будет купить себе хотя бы одну бутылку Пепси-Колы Условие задачи Бутылка Пепси-Колы стоит K рублей, а пустая бутылка – L рублей. В понедельник несколько друзей купили несколько бутылок Пепси-Колы на все имевшиеся у них N рублей. На следующий день... https://www.cyberforum.ru/ turbo-pascal/ thread2147804.html Файловые структуры данных Turbo Pascal
Всем доброго времени суток ещё раз! Вот собственно моё задание : Даны следующие структуры данных : Студенты (Фамилия / Имя / Отчество / Группа / Оценки - > (Предмет / Оценки / Экзаменатор))...
Turbo Pascal Написать программу, которая считывает текст из файла и выводит на экран только предложения, не содержащие запятых Написать программу, которая считывает текст из файла и выводит на экран только предложения, не содержащие запятых. https://www.cyberforum.ru/ turbo-pascal/ thread2147376.html Turbo Pascal Написать программу, которая считывает английский текст из файла и выводит на экран слова, начинающиеся с гласных букв https://www.cyberforum.ru/ turbo-pascal/ thread2147375.html
Написать программу, которая считывает английский текст из файла и выводит на экран слова, начинающиеся с гласных букв.
Turbo Pascal Задачи на разработку программу с использованием созданной по условию процедуры
Для каждой из двух матриц:А(2 строки, 4 столбца) и В(3 строки, 3 столбца) вычислить и вывести количества отрицательных элементов. Также определить, в какой из них среднее арифметическое значение...
Turbo Pascal Разработка процедуры с дальнейшим использованием ее по заданию Составить процедуру для определения среднего арифметического значения элементов целочисленной матрицы. Используя эту процедуру, рассчитать по сводной экзаменационной ведомости средний балл в сессию... https://www.cyberforum.ru/ turbo-pascal/ thread2147156.html
Turbo Pascal Строки и множества https://www.cyberforum.ru/ turbo-pascal/ thread2147099.html
Как можно проще, прям самый простой вариант. 7 задание. Заранее спасибо:)
Turbo Pascal Вычислить z = z1+z2z3, где z1, z2, z3 – векторы комплексных чисел
Помогите переделать программу: Старое задание: вычислить z=z1+z2-z3, если z1, z2, z3 – векторы из пяти комплексных чисел var z:array of array of record re,im:real end; i,j:1..5; begin...
Turbo Pascal Мелодия в паскаль https://www.cyberforum.ru/ turbo-pascal/ thread2146895.html
Помогите составить простенькую мелодию из первой и второй октавы
Turbo Pascal Написать программу, которая печатает номер курса, на котором наибольший процент женщин https://www.cyberforum.ru/ turbo-pascal/ thread2146857.html
Имеется следующая информация о каждом из n студентов: <фамилия>, <имя>, <отчество>, <пол>, <возраст>, <курс>. Написать программу, которая вводит эту информацию и печатает номер курса на котором...
Turbo Pascal В массиве найти сумму чисел, расположенных на местах кратных 3
В массиве А1,а2,...,а40 найти сумму чисел , расположенных на местах кратных 3. Массив заполнен целыми числами , случайным образом из диапазона от -16 до 19. Помогите, пожалуйста
Turbo Pascal В массиве найти сумму чисел равных 4,7 https://www.cyberforum.ru/ turbo-pascal/ thread2146837.html
В массиве d1,d2,...,d50 найти сумму чисел равных 4,7. Массив заполнен вещественным числами, случайным образом из диапазона от -16,47 до 19,2. Помогите, пожалуйста
Модератор
9481 / 4805 / 3211
Регистрация: 17.08.2012
Сообщений: 15,045
02.12.2017, 20:12 0

Вычислить сумму членов ряда с точностью до члена ряда - Turbo Pascal - Ответ 11906020

02.12.2017, 20:12. Показов 5676. Ответов 2
Метки (Все метки)

Ответ

Не совсем так. Переменная n не описана. Это бы ладно, но она ещё и не инкрементируется. Начальное значение переменной nx задано неверно.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const eps = 0.002;
      x = 0.241;
var s, a, nx, z: real;
    n: longint;
begin
  n := 0;
  nx := 0;
  z := 1;
  a := 1;
  s := a;
  while abs(a) > eps do
    begin
      inc(n);
      nx := nx + x;
      z := z / n;
      a := cos(nx) * z;
      s := s + a
    end;
  writeln('S = ', s);
  readln
end.


Вернуться к обсуждению:
Вычислить сумму членов ряда с точностью до члена ряда Turbo Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.12.2017, 20:12
Готовые ответы и решения:

Вычислить сумму членов ряда с точностью до члена ряда
Пожалуйста помогите выполнить задание. Вычислить сумму членов для следующих рядов с точностью до...

Вычислить сумму ряда с точностью до члена ряда, меньшего заданной точности
Вычислить сумму членов для следующих рядов с точностью до члена ряда, меньшего Е (заданная...

Вычисление суммы членов бесконечного ряда с точностью до члена ряда, меньшего ε
Доброе утро, форум. Если кому не сложно, то помогите с программой, вернее найти ошибку в ней Само...

Найти сумму ряда S с точностью до члена ряда, по абсолютной величине меньшего eps
найти сумму ряда S с точностью до члена ряда, по абсолютной величине меньшего eps = 0.0001. в чем...

2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.12.2017, 20:12
Помогаю со студенческими работами здесь

Вычислить сумму членов ряда с точностью Е=10^-2 при заданном х=0,75
ссылка удалена

Вычислить сумму членов бесконечного ряда с точностью ε
Даны действительные числа X, E \left( 0&lt;x\leq 1,E&gt;0\right). Вычислить с точностью E:...

Вычислить сумму членов ряда с точностью E=10^-2 при заданном x=0.75

По заданной формуле члена ряда составить программу вычисления всех членов ряда
*_* оу спасибо !!!! По заданной формуле члена ряда составить программу вычисления всех членов...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru