Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Составьте список группы из N спортсменов, принимавших участие в гонках на спортивных машинах Составьте список группы из N спортсменов, принимавших участие в гонках на спортивных машинах. Для каждого гонщика укажите фамилию, имя, название страны, номер автомашины, наличие наград на предыдущих соревнованиях, результаты гонки. Информацию о каждом спортсмена опишите в программе в виде записи. Совокупность записей объединить в файл. Составьте программу, которая обеспечивает ввод полученной... https://www.cyberforum.ru/ pascal/ thread1598132.html	Pascal Разбить исходный текст на строки длиной не более 50 символов Помогите пожалуйста решить задачку в Паскале.Нужно решить,работая с текстовыми строками. Разбить исходный текст на строки длиной не более 50 символов.Перенос на новую строку осуществлять на месте пробела(слова не переносить).
Pascal Указать минимальное количество первых букв, по которым можно различить слова Помогите пожалуйста решить задачку в Паскале.Нужно решить,работая с текстовыми строками. Указать минимальное количество первых букв, по которым можно различить слова из заданного набора(слова разделить запятыми) https://www.cyberforum.ru/ pascal/ thread1597876.html	Pascal Определить, содержится ли в заданном предложении введенное слово Определить, содержится ли в заданном предложении введенное слово. Написать программу на Pascal https://www.cyberforum.ru/ pascal/ thread1597798.html
Pascal Имеется текстовый файл В. Написать программу, которая игнорируя исходное деление этого файла на строки Имеется текстовый файл В. Написать программу, которая игнорируя исходное деление этого файла на строки, переформатирует его, разбивая на строки так, чтобы каждая строка оканчивалась точкой, либо содержала ровно 60 литер, если среди них нет точки.	Pascal Дан файл f, содержащий сведения о веществах. Выбрать данные о проводниках с заданным удельным весом https://www.cyberforum.ru/ pascal/ thread1597777.html Дан файл f, содержащий сведения о веществах: 1) название 2) удельный вес 3) проводимость (проводник, полупроводник, изолятор) а) выбрать данные о проводниках с заданным удельным весом; б) выбрать данные об изоляторах, удельный вес которых находится в заданном интервале.
Pascal Дана последовательность, содержащая от 2 до 30 слов, в каждом из которых от 2 до 10 латинских букв Дана последовательность, содержащая от 2 до 30 слов, в каждом из которых от 2 до 10 латинских букв; между соседними словами - не менее одного пробела, за последним словом точка. Напечатать все слова, отличные от последнего слова, предварительно преобразовав каждое из них по следующему правилу: удалить из слова все предыдущие вхождения последней буквы. https://www.cyberforum.ru/ pascal/ thread1597774.html	Pascal Задача с использованием структуры «файл» Дан файл, содержащий различные даты. Каждая дата — это число, месяц и год. (pascal) Найти самую позднюю дату. На сколько лет, месяцев и дней она отличается от сегодняшней даты? Помогите пожалуйста)
Pascal Напечатать слова, длина которых максимальна. https://www.cyberforum.ru/ pascal/ thread1597369.html Составить программу для решения задачи. Дана последовательность, содержащая от 1 до 30 слов, в каждом из которых от 1 до 5 строчных латинских букв; между соседними словами - запятая, за последним словом - точка. Напечатать слова, длина которых максимальна.	Pascal Слово с наибольшим количеством букв в строке Задано произвольный строку: Определение слова с наибольшим количеством букв. https://www.cyberforum.ru/ pascal/ thread1597364.html
Использование функций при работе со строками Pascal Даны две строки s1 и s2. Пусть w – первое из слов строки s1, которое есть и в строке s2. Найти слово, предшествующее первому вхождению w в s2. Нужно что бы решение каждой подзадачи описывалось подпрограммой Библиотечные функции для работы со строками не использовать.	Pascal Использование подпрограмм при работе с двумерными массивами Определить количество классов эквивалентных столбцов данной прямоугольной матрицы. Столбцы считать эквивалентными, если равны множества их элементов. основная программа должна состоять из последовательности вызовов подпрограмм Размеры матриц задать константами. https://www.cyberforum.ru/ pascal/ thread1597228.html

Cyborg Drone

Модератор

9869 / 5237 / 3306

Регистрация: 17.08.2012

Сообщений: 16,006

05.12.2015, 23:43

Вычислить сумму членов ряда с точностью до члена ряда, меньшей E - Pascal - Ответ 8444335

05.12.2015, 23:43. Показов 6245. Ответов 2

Метки (Все метки)

Ответ

Samhain, неверно.

Во-первых, Вас сбила с толку латинская литера "x". В данном ряде переменная x должна быть ни в коем случае не действительной, а целой, и не меньшей, чем -1, поскольку факториал от действительного числа либо от целого отрицательного числа не определён.

Во-вторых (а, скорее, как следствие из "во-первых"), неверно найден первый член последовательности.

Также не предусмотрели проверку на допустимость входных аргументов. Просто табу, вообще-то, недостаточно. За ошибку можно не считать, но всё же лучше, если программа достойно выдерживает общение с самым привередливым преподавателем.

Pascal

var s, si, e: double;
    i, x: longint;
begin
  repeat
    write('Integer x >= -1;  x = ');
    readln(x)
  until x >= -1;
  if x = 0
    then s := 0
    else begin
      repeat
        write('Real eps > 0;   eps = ');
        readln(e)
      until e > 0;
      if x = -1
        then begin
          si := x;
          s := si;
          i := 2
        end
        else begin
          si := 1;
          for i := 2 to x do si := si / i;
          s := 0;
          i := 1
        end;
      repeat
        si := x / (x + i) * si;
        s := s + si;
        inc(i)
      until abs(si) < e
    end;
  write('s = ', s);
  readln
end.

Вернуться к обсуждению:
Вычислить сумму членов ряда с точностью до члена ряда, меньшей E Pascal

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

05.12.2015, 23:43

Готовые ответы и решения:

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

Найти сумму ряда до члена ряда с заданным номером, и найти сумму ряда с заданной точностью
№1. Дано натуральное число n. Вычислить \sum_{i=1}^n\frac{1+i}{i!} №2. Вычислить формулу...

Вычислить сумму членов бесконечного ряда с заданной точностью
Вычислить сумму членов бесконечного ряда с заданной точностью: eps = 0,5*10^-4 при x = 0,10. ...

Вычислить сумму членов ряда от первого до члена с наименьшим номером, не превышающего то абсолютному значению 0,01.
Член ряда с номером n определяется выражением n/(n^3+n^2-3).Вычислить сумму членов ряда от первого...

	05.12.2015, 23:43

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

05.12.2015, 23:43

Помогаю со студенческими работами здесь

Рекурсия: вычислить сумму членов бесконечного ряда с заданной точностью
Пользуясь рекурентной формулой вычислить сумму членов бесконечного ряда с заданной точностью e,...

Вычисление суммы членов ряда с точностью до члена ряда, меньшего ε
Составить программу для вычисления суммы членов ряда с точностью до члена ряда, меньшего ε( по...

Вычислить сумму членов ряда с точностью E
Вычислить сумму членов ряда с точностью E. s=1+x/1!+x^2/2!+x^3/3!+... Помогите, пожалуйста,...

По заданному целому числу n вычислить сумму всех членов ряда до n-го члена включительно
1. По заданному целому числу n вычислить сумму всех членов ряда до n-го члена включительно: 1 +...

Наверх