Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Изобразить движение Солнца над землей https://www.cyberforum.ru/ pascalabc/ thread1092033.html Изобразить движение Солнца над землей, начиная с востока и заканчивая западом, меняя при этом яркость фонового окраску.	Pascal ABC Нарисовать прямоугольник со сторонами 20 и 30 пикселей, который движется по кругу Прямоугольник со сторонами 20 и 30 пикселей движется по кругу диаметром 220 пикселей, не меняя ориентации и меняя окраску на каждом витке.
Pascal ABC Отсортировать одномерный массив по возрастанию, используя процедуру перестановки местами значений двух величин https://www.cyberforum.ru/ pascalabc/ thread1091957.html Отсортировать одномерный массив по возрастанию, используя процедуру перестановки местами значений двух величин.	Pascal ABC Вычислить значение выражения Вычислить z=sign(x)+sign(y), где https://www.cyberforum.ru/ pascalabc/ thread1091956.html
Pascal ABC Скольжение двух линий вокруг круга по касательной Два відрізка довжиною 70 пікселів орієнтовані взаємноперпендикулярно, з'являються дотичними до невидимого кола, діаметром 200 пікселів, розміщеного в центрі екрану. Відрізки одночасно ковзають по поверхні кола, кожний новий оберт змінюючи колір.	Pascal ABC Разработать программу, которая по запросу упорядочивает данный массив либо в алфавитном порядке следования фамилий, либо уменьшения стажа работы Каждый элемент исходного массива представляет собой запись, содержащую следующие поля: Фамилия сотрудника; Номер отдела; Год Рождения; Год приема сотрудника на работу. Разработать программу, которая по запросу упорядочивает данный массив либо в алфавитном порядке следования фамилий, либо уменьшения стажа работы https://www.cyberforum.ru/ pascalabc/ thread1091946.html
Pascal ABC Даны длины четырех отрезков. Определить, можно ли в один из прямоугольников полностью поместить другой Даны длины четырех отрезков - две стороны первого и второго прямоугольников соответственно. Определить, можно ли в один из прямоугольников полностью поместить другой. Прямоугольники можно вращать, но так, чтобы одна из сторон каждого прямоугольника была параллельна оси абцисс. Входные данные: Во входном потоке заданы четыре натуральных числа - длины четырех отрезков. Значение всех исходных... https://www.cyberforum.ru/ pascalabc/ thread1091750.html	Pascal ABC Написать программу в которой пять олимпийских колец вылетают на белом фоне с разных направлений и переплетаются в центре экрана Нужно написать программу, в которой пять олимпийских колец вылетают на белом фоне с разных направлений и переплетаются в центре экрана. Программу нужно написать в Pascal. Заранее благодарен.
Pascal ABC Неправильный результат вычисления выражения Прошу помощи. Program lab3; Const eps=1e-6; var s,x:real; n,st,b:integer; begin Writeln ('введите x'); Readln(x); s:=exp(ln(x)*3)/5; writeln(s); n:=2; b:=1; https://www.cyberforum.ru/ pascalabc/ thread1091652.html	Pascal ABC Переделать программу под цикл с предусловием https://www.cyberforum.ru/ pascalabc/ thread1091637.html Здравствуйте,форумчане!Нужна помощь.Эту задачу надо подработать под цикл вайл: Var i,n: integer; s: real; Begin Writeln('Число слагаемых - '); readln(n); for i:=1 to n do s:=s+1/i; writeln('s = ',s); End., помогите пожайлуста!
Найти число, у которого сумма цифр больше Pascal ABC Дано два двухзначных числа. Найти число, у которого сумма цифр больше. Если сумма цифр этих чисел одинаковая, то вывести первое заданное число. Входные данные: Во входном потоке через пробел записаны два двухзначных числа. Выходные данные: В выходной поток вывести единственное целое число. Пример входного файла (input.txt): 78 45 Пример выходного файла (output.txt):	Pascal ABC Сумма и цикл https://www.cyberforum.ru/ pascalabc/ thread1091527.html Извиняюсь за беспокойство. Просто не пойму как сумму посчитать в задачке, поиск не помог, помогите или хотя бы киньте ссылку=) Вот сама задача: Вычислить сумму и распечатать для натурального n и действительного x: S=sum ((-1^i)x^2i)/i! Кому не понятны мои каракули, вот картинка: http://**********/d6b231e5.png

Puporev

Почетный модератор

64299 / 47594 / 32743

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

Сообщений: 115,181

08.02.2014, 16:53

Вычислить сумму ряда с заданной точностью - Pascal ABC - Ответ 5755681

08.02.2014, 16:53. Показов 1441. Ответов 12

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

Сообщение было отмечено Памирыч как решение

Решение

Pascal

Program lab3;
Const eps=5e-5;
var s,p:real;
     n:integer;
begin
p:=pi/3;
s:=p;
n:=1;
while abs(p)>eps do
 begin
  n:=n+1;
  p:=p*sqr(pi/3)/((2*n-1)*(2*n-2));
  s:=s+p;
 end;
writeln ('Сумма=',s:0:5);
writeln ('Количество членов ряда=',n);
writeln ('Полученная точность=',abs(p):0:5);
end.

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

Следующий ответ

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

08.02.2014, 16:53

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

Вычислить сумму ряда с заданной точностью
Что-то набросал, но выдает ошибку Вещественное деление на 0 в 15 строке*, да и вообще слабовато...

Вычислить сумму ряда с заданной точностью
При заданном х=0.3 вычислить сумму N членов ряда с точностью e<=0.0001 Сравнить результаты со...

Вычислить сумму ряда с заданной точностью
При заданном х=0.75 вычислить сумму N членов ряда с точностью e<=0.0001 Сравнить результаты со...

Вычислить сумму ряда с заданной точностью
Помогите, пожалуйста! Найдите ошибку. Вычислить сумму ряда с точностью eps=10-4 ...

	08.02.2014, 16:53

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

08.02.2014, 16:53

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

Вычислить сумму ряда с заданной точностью
Вычислите сумму ряда с точностью 0.0001 Если можно, код попроще.

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

Вычислить сумму ряда с заданной точностью
var k:integer; s,p:real; Function factorial(n:integer):integer; var f,k:integer; ...

Вычислить сумму ряда с заданной точностью
Ввести с клавиатуры x и точность вычисления Esp. Вычислить с заданной точностью сумму : ...

Наверх