Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Дана последовательность целых чисел Дана последовательность целых чисел, заданная пользователем (кол-во чисел произвольное), нужно вывести их среднее арифметическое, полусумму наибольшего и наименьшего, количество равных по модулю чисел и число, которое встречается чаще остальных. Нужно написать программу. https://www.cyberforum.ru/ turbo-pascal/ thread1624162.html Turbo Pascal Прошу исправить мой модуль, написанный в АВС, так, чтобы его можно было скомпилировать в Turbo Pascal
Прошу исправить мой модуль, написанный в АВС, так, чтобы его можно было скомпилировать в Turbo Pascal. Пожалуйста var x,y,z,a,k1,k2,b:real; begin; x:=7; y:=4; z:=8; k1:=power(sin(abs(3*power(x,3)+5*sqr(y)+15*z)),3); {power() возводит свой первый аргумент в степень второго} k2:=sqrt(sqr(12*power(x,3)+6*sqr(y)-z)+3.14); a:=abs(k1/k2);
Turbo Pascal Найти количество и сумму всех четных элементов массива в одномерном массиве порядка N , заполненном числами с клавиатуры выполнить обработку элементов: найти количество и сумму всех парных элементов https://www.cyberforum.ru/ turbo-pascal/ thread1624144.html Turbo Pascal Пусть дана целочисленная квадратная матрица порядка n https://www.cyberforum.ru/ turbo-pascal/ thread1624111.html
Пусть дана целочисленная квадратная матрица порядка n. Найдите номера строк: 1) все, элементы которых – нули; 2) элементы, в каждой из которых, одинаковы; 3) все элементы, которых четны; 4) элементы, каждой из которых, образуют монотонную последовательность (монотонно убывающую или монотонно возрастающую); 5) элементы которых образуют симметричные последовательности. Добавлено через 29...
Выполнить заданные действия с целочисленным массивом Turbo Pascal
В заданном целочисленном массиве определить: а) есть ли в данном массиве два соседних отрицательных элемента? Найти номера первой (последней) пары; б) номер первого (последнего) положительного элемента, делящегося на 5 с остатком 2; в) номера всех элементов с минимальным значением. массив формировать с помощью генератора RANDOM
Turbo Pascal Найти сумму элементов массива, имеющих нечетные индексы https://www.cyberforum.ru/ turbo-pascal/ thread1624105.html
В заданном целочисленном массиве найти: а) сумму элементов имеющих нечетные индексы, и сами элементы по абсолютной величине больше заданного К (задается с клавиатуры); б) индексы (номера) тех элементов, значения которых больше значения предыдущего элемента (начиная со второго); в) количество положительных элементов массива, которые кратны 3 или 5 и оканчиваются цифрой 0. Массив формировать...
Turbo Pascal Заменить все четные элементы таблицы уменьшив их на 10 в одномерном массиве порядка N , заполненном числами с клавиатуры выполнить обработку элементов: заменить все четные элементы таблицы уменьшив их на 10 и вывести массив https://www.cyberforum.ru/ turbo-pascal/ thread1624022.html Turbo Pascal Вычислить значение выражения
Хелп гайз плиз я вообще полное дно в этом деле.Вариант 13
Turbo Pascal Меню Турбо Вижион Вставьте эту программу в меню Турбо Вижион Program P_Swaps1; Const NMax = 5000; MMax = 100; RMax = 5000; d = 10000; cd = 4; Var A : Array Of Boolean; P : Array Of Integer; R : Array Of Integer; N,M,Cnt : Integer; https://www.cyberforum.ru/ turbo-pascal/ thread1623910.html Turbo Pascal составить 2 программы с параметрами и без параметров Из массива A, содержащего 5 строк, внутри которых есть пробелы, получить массив B, содержащий те же строки, но без пробелов. Вывести данный и полученный массив на экран. Часть программы, убирающую из строки пробелы, оформить в виде процедуры. https://www.cyberforum.ru/ turbo-pascal/ thread1623876.html
Заменить элементы, стоящие на нечетных местах массива их модулями Turbo Pascal
Создать одномерный массив X случайным образом. Вывести его в строку. Затем заменить элементы, стоящие на нечетных местах их модулями. После этого вывести массив повторно. Для замены и вывода массива использовать процедуру.
Turbo Pascal создать массив чисел https://www.cyberforum.ru/ turbo-pascal/ thread1623747.html
создать массив чисел A. Вывести массив B, в котором B=min{A, A,... A}.
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7792 / 4616 / 2829
Регистрация: 22.11.2013
Сообщений: 13,112
Записей в блоге: 1
26.12.2015, 10:43 0

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

26.12.2015, 10:43. Показов 927. Ответов 3
Метки (Все метки)

Ответ

Забыли вывести количество просуммированных членов ряда (n), как того требует условие.
Строго говоря, математически задача может быть решена неверно, поскольку погрешность суммы не превышает модуля первого отброшенного члена ряда только для знакопеременных рядов, а ваш ряд знакопостоянный. Компенсируется ли малость суммы отброшенных членов экспонентой (2/3)^2n надо бы отдельно проверить (но лень).

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

Добавлено через 20 минут
Кроме того, поскольку точность вводится с клавиатуры и никто не мешает задать достаточно малую величину, неплохо предусмотреть защиту от зацикливания по причине достижения предела точности
Pascal
1
2
3
  p:=sum; sum:=sum+z;
until (z<=e) or (p=sum);
if z>e then WriteLn('Точность не достигнута');


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

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.12.2015, 10:43
Готовые ответы и решения:

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

Вычислить сумму ряда с заданной точностью
Program Lab; uses crt; var i:Integer; x,y,sum,e,a:real; begin clrscr; Readln(e); Readln(x);...

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

Вычислить сумму ряда с заданной точностью
Цикл с предусловием. Вычислить значение заданной функции непосредственно и как сумму ряда с...

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

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

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

Вычислить сумму ряда с заданной точностью
Дано действительное число Х. Вычислить с точностью 10^(-6)

Вычислить сумму ряда с заданной точностью
Не используя стандартные функции (кроме abs), вычислить сумму следующего ряда с заданной точностью...

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