Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Найти наименьшую сумму чисел в последовательности Дано n чисел,нужно найти наименьшую сумму последовательных чисел. Например: 5 -2 1 -5 3 9 -5 -2 5 -9 10 Ответ: -11. Важен сам алгоритм действий.Буду очень благодарен. https://www.cyberforum.ru/ pascal/ thread1273934.html Pascal Определить, какое из трех множеств содержит наибольшее количество элементов
Нужно составить программу, которая определит какое из трех множеств содержит наибольшее количество элементов. Возможен вариант, что количество элементов во множествах могут быть одинаковы.
Pascal Что такое сфера действия переменной Добрый день есть задание проанализировать код на паскале используя метрику МакКлура. Суть: 1. Для каждой управляющей переменной i вычисляется значение t её сложностной функции C(i) по формуле: C(i) = (D(i) * J(i))/n. Где D(i) — величина, измеряющая сферу действия переменной i. J(i) — мера сложности взаимодействия модулей через переменную i, n — число отдельных модулей в схеме разбиения. ... https://www.cyberforum.ru/ pascal/ thread1273606.html Pascal Написать программу, которая бы определяла принадлежит ли точка закрашенной области Написать программу, которая бы определяла принадлежит ли точка закрашенной области https://www.cyberforum.ru/ pascal/ thread1273548.html
Пирамидальная сортировка на основе бинарного дерева Pascal
Доброго времени суток. Есть такое задание. Дан масив нужно его посортировать при помощи пирамидальной сортировки не масивом а именно с помощью бинарного дерева. Заранее спасибо.
Pascal Матрица должна быть такой же как исходная, за исключением четных элементов Даны две матрицы 5 на 5. Данные внесены через рандом в диапазоне -20..20. Получить две новые матрицы. Первая матрица должна быть такой же как исходная, за исключением четных элементов, которые представляют собой сумму соответствующих элементов двух исходных матриц. Вторая матрица должна быть такой же, как и исходная, за исключением всех нечетных элементов, которые представляют собой разность... https://www.cyberforum.ru/ pascal/ thread1273316.html
Pascal Заменить каждый 3 нечетный элемент столбца матрицы единицами https://www.cyberforum.ru/ pascal/ thread1273313.html
Матрица 10 на 10. Данные внесены рандомно в диапазоне -100..100. И нужно заменить каждый 3 нечетный элемент столбца матрицы единицами. Вывести исходную и преобразованную матрицу. const n = 10; var a: array of integer; i, j: integer; begin randomize;
Записать указанное действие и виде одного условного оператора переменной х присвоить корень уравнения Pascal
Записать указанное действие и виде одного условного оператора переменной х присвоить корень уравнения.
Pascal Написать программу, которая для заданного целого числа а печатает таблицу https://www.cyberforum.ru/ pascal/ thread1273209.html
а а3 а6 а6 а3 а
Pascal Коэффициенты интерполяционного многочлена https://www.cyberforum.ru/ pascal/ thread1273097.html
всем добра! Есть задачка, которую не могу решить:hysteric: Нашла код, который делает что-то похожее (а может быть и то, что мне надо), но печаль в том, что я не могу подстроить его под задачу.. (чтобы ввод из файла был, и коэфф. правильно считал, и т.д.) Задачка выглядит так: Кусочно-линейная интерполяция Даны значения неизвестной функции y_0, y_1, ..., y_n. в узлах равномерной сетки: ...
Pascal Определить, попадает ли точка в круг
Хм..... определить попадает ли точка A c координатами XA и YA внутрь круга с радиусом R. Центр круга совпадает с началом координат. Помогите :-)
Pascal Ввести A и В, если А<B,то y:=7, y2:=A, y3:=A+B. В противном случае t1:=2A,t2:=A-B https://www.cyberforum.ru/ pascal/ thread1273043.html
Еще раз прошу помощи,спасибо тем кто помог с прошлыми задачами... Но осталась одна..... Ввести A и В, если А<B,то y:=7, y2:=A, y3:=A+B. В противном случае t1:=2A,t2:=A-B. Вывести переменные в столбик. Спасибо вам.. кто помогает..
Фрилансер
3417 / 2814 / 3000
Регистрация: 08.02.2012
Сообщений: 8,550
Записей в блоге: 1
12.10.2014, 14:38 0

Вычислить и выдать на экран приближенное значение бесконечной суммы - Pascal - Ответ 6711537

12.10.2014, 14:38. Показов 1823. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено plakapenka как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Const eps=0.15;
Var x,s,a:real;
    i:integer;
Begin
    write('x: ');readln(x);
    a:=1;
    Repeat
      inc(i);
      a:=a*(x*x/((2*i-1)*(2*i)));
      s:=s+a;
    Until abs(a)<eps;
    writeln('S = ',s:0:4);
    readln;
End.


Вернуться к обсуждению:
Вычислить и выдать на экран приближенное значение бесконечной суммы Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.10.2014, 14:38
Готовые ответы и решения:

Вычислить и выдать на экран приближенное значение бесконечной суммы
Вычислить и выдать на экран приближенное значение бесконечной суммы с точностью до ε....

Вычислить и выдать на экран приближённое значение бесконечной суммы
Вычислить и выдать на экран приближённое значение бесконечной суммы с точностью до (Эпсилон=0,14)....

Вычислить приближенное значение бесконечной суммы
Совсем не сталкивалась с такими задачами, может кто-то помочь решить? Вычислить приближенное ...

Вычислить приближенное значение бесконечной суммы с точностью e
Задание гласит: Вычислить приближенное значение бесконечной суммы с точностью e=0.0005 (пример...

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

Вычислить приближенное значение бесконечной суммы с заданной точностью
Делал такую программу: Вычислить приближенное значение бесконечной суммы с точностью до e=0.0005...

Дано действительное число Х. Вычислить приближенное значение бесконечной суммы с заданной точностью
Дано действительное число Х. Вычислить приближенное значение бесконечной суммы с заданной точностью

Вычислить значение бесконечной суммы
Нужно сделать в паскале. Задание состоит из двух частей: 1) Ввести ОДНО значение х...

Вычислить приближенно значение бесконечной суммы
Помогите пожалуйста написать программу Задача: Вычислить приближенно значение бесконечной суммы...

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