Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Выполнить следующие задания, используя алгоритмы нахождения делителей числа https://www.cyberforum.ru/ turbo-pascal/ thread797595.html Найти все совершенные числа, меньшие n (n – натуральное число). Число – совершенное, если оно равно сумме всех своих делителей, за исключением самого числа.	Turbo Pascal Выполнить следующие задания путем ограничения перебора значений Для заданного натурального N определить наименьшее число S, которое можно представить в виде суммы а^n + b^n по крайней мере двумя различными способами (а, b – натуральные числа; пред- ставления, отличающиеся порядком слагаемых, различными не считаются).
Turbo Pascal Выполнить задания путем перебора значений https://www.cyberforum.ru/ turbo-pascal/ thread797593.html Построить таблицу всех различных разбиений заданного натурального числа N на сумму трех натуральных слагаемых (разбиения, отличающиеся порядком слагаемых, различными не считаются).	Turbo Pascal Определить, что будет напечатано программой Помогите пожалуйста с решением задачи, заранее спасибо!!! Что будет напечатано программой: program aba; Var a,b: integer; Begin read(a,b,a); writeln(a,b,a) end; если для ввода заданы числа 1, 2 и 3? https://www.cyberforum.ru/ turbo-pascal/ thread797588.html
Turbo Pascal Вставить число k перед каждым элементом массива , большим k (элементы случ-ые) Помогите, пожалуйста. До завтра нужна программа: Вставить число k перед каждым элементом массива , большим k (элементы случ-ые) Число k вводится с клавиатуры. Очень расчитываю на вашу помощь, заранее спасибо.	Turbo Pascal Опишите на русском языке или на одном из языков программирования алгоритм подсчёта среднего значения отрицательных элементов в целочисленном массиве д https://www.cyberforum.ru/ turbo-pascal/ thread797549.html Опишите на русском языке или на одном из языков программирования алгоритм подсчёта среднего значения отрицательных элементов в целочисленном массиве длины 30 в предположении, что в нем есть хотя бы один отрицательный элемент.
Turbo Pascal Координаты трех точек треугольника https://www.cyberforum.ru/ turbo-pascal/ thread797541.html Пусть даны координаты трех точек на плоскости. Если они могут быть вершинами РАВНОСТОРОННЕГО ТУПОУГОЛЬНОГО треугольника, вычислите его площадь. Спасибо!	В матрице nхm найти максимальный элемент и произвести сортировку элементов строки Turbo Pascal 1)В матрице nхm найти максимальный элемент и произвести сортировку элементов строки в которой он находится по возрастанию, и сортировку элементов столбца в котором он находится по убыванию. поможете? polini, обращаю ваше внимание на правила форума: один вопрос - одна тема. ваши задания вынесены в отдельные темы: https://www.cyberforum.ru/turbo-pascal/thread798423.html...
Turbo Pascal Определить, является ли значение функции целым числом https://www.cyberforum.ru/ turbo-pascal/ thread797515.html Добрый вечер) Составьте блок схему и программу для определения, является ли значение функции y=(a-b)/(a+b) целым числом, значение чисел "a" и "b" вводятся с клавиатуры))) Спасибо*	Turbo Pascal Заданы массивы А(7),В(4),С(12) Определить, в каком массиве больше среднее арифметическое положительных чисел.Подсчет среднего арифметического положительных чисел массива оформить в виде подпрограммы. https://www.cyberforum.ru/ turbo-pascal/ thread797506.html
Выведите на экран результат контрольных работ по физике Turbo Pascal Вводятся оценки за контрольные работы по физике и математике. Выведите на экран фразы: «Молодец», если их сумма равна или больше 9, в противном случае выведите «Подтянись». Спасибо!	Turbo Pascal Записать результат в файл https://www.cyberforum.ru/ turbo-pascal/ thread797477.html есть программа...результат её нужно записать в файл F1 который создал на диске F...как это сделать? uses crt; var s,s1:string; c:char; a:array of string; b:array of byte; n,i,j:byte; f:boolean; begin clrscr;

Germanant

107 / 107 / 110

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

Сообщений: 978

28.02.2013, 23:30

Вычисления суммы ряда с точностью до члена ряда, не превышающего по абсолютной величине 0,001 - Turbo Pascal - Ответ 4195693

28.02.2013, 23:30. Показов 2889. Ответов 1

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

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

Решение

Pascal

const E=0.001;
 var S,c:real;
     n:integer;
Function Pow(x,n:real):real;
begin
If n=0 then begin Pow:=1;end else
if x=0 then begin Pow:=0;end else
Pow:= exp(N * ln(X));
end;
 
begin
 s:=0;
 n:=0;
 repeat
  c:=(2*n-1)/pow(2,n);
  S:=s+c;
  inc(n);
  until abs(c)<e;
writeln(s:1:4);
readln;
end.

Вернуться к обсуждению:
Вычисления суммы ряда с точностью до члена ряда, не превышающего по абсолютной величине 0,001 Turbo Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

28.02.2013, 23:30

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

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

Составить программу для вычисления суммы членов бесконечного ряда с точностью до члена ряда
Составить программу для вычисления суммы членов бесконечного ряда с точностью до члена ряда,...

Выполнить суммирование членов бесконечного ряда до тех пор, пока последний член ряда по абсолютной величине не будет меньше абсолютной точности
Выполнить суммирование членов бесконечного ряда до тех пор, пока последний член ряда по абсолютной...

Выполнить суммирование членов бесконечного ряда тех пор, пока последний член ряда по абсолютной величине не будет меньше абсолютной точности
Выполнить суммирование членов бесконечного ряда тех пор, пока последний член ряда по абсолютной...

	28.02.2013, 23:30

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

28.02.2013, 23:30

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

Выполнить суммирование членов бесконечного ряда до тех пор, пока последний член ряда по абсолютной величине не будет меньше абсолютной точности
1. Выполнить суммирование членов бесконечного ряда до тех пор, пока последний член ряда по ...

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

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

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

Вычисление суммы ряда с точностью до члена ряда
Здравствуйте. Помогите найти ошибку. Вычисление суммы ряда у меня производится верно, но когда...

По заданной формуле (k+1)²+3)/k члена ряда с номером k составить программу вычисления суммы всех членов ряда
По заданной формуле ((k+1)²+3)/k члена ряда с номером k составить программу вычисления суммы всех...

Наверх