Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Выведите номера всех элементов, которые равны последнему элементу https://www.cyberforum.ru/ pascalabc/ thread1723175.html Заполните массив случайными числами в интервале и выведите номера всех элементов, которые равны последнему элементу.	Pascal ABC Заполните массив случайными числами в интервале [100,999] и переставьте их по возрастанию средней цифры 2) Заполните массив случайными числами в интервале и переставьте их по возрастанию средней цифры.
Pascal ABC Найдите количество элементов, которые оканчиваются на 8 и делятся на 3 https://www.cyberforum.ru/ pascalabc/ thread1723173.html 1) Введите массив из 5 элементов с клавиатуры и найдите количество элементов, которые оканчиваются на 8 и делятся на 3.	Pascal ABC Нарисовать мерцающий расширяющийся круг Нужно нарисовать круг, который мерцает и расширяется от центра до краев циклом, а потом сужается обратно. на каждое увеличение, он так же должен чередовать цвета. листая методичку, нашел как рисовать круг, нашел как отцентрировать курсор xc := GetMaxX div 2; yc := GetMaxY div 2; и подумал о том, что можно просто задать цикл, который бы двигал курсор по краю увеличивающейся окружности... https://www.cyberforum.ru/ pascalabc/ thread1723088.html
Pascal ABC Сформировать очередь студентов Задание: Сформировать очередь студентов (фамилия, группа, номер зачетки)., Элементами которого являются действительные числа. Написать процедуру Add, которая вставляет элемент в очередь и процедуру Delete, которая удаляет элемент из очереди.	Pascal ABC Создать файл со списком https://www.cyberforum.ru/ pascalabc/ thread1723035.html Задание: Создать файл (название файла - фамилия студента) из списка 7 предметов с их оценками (номер, название предмета и оценка). Вывести его содержимое на экран, изменить название предмета с номером, введенным с клавиатуры, заново прочитать файл.
Pascal ABC Двоичные палиндромы https://www.cyberforum.ru/ pascalabc/ thread1722989.html Введите массив из 5 элементов с клавиатуры и найдите количество элементов запись которых в двоичной системе -палиндром .	Pascal ABC Найти ошибку в вычислении выражения program lab2v; var yn,yk,dy,y,F,x,c:real; i,n:integer; begin write('Введите yn='); readln(yn); write('Введите yk='); readln(yk); write('Введите dy='); readln(dy);
Pascal ABC Для каждой строки заданной матрицы определить и вывести сумму элементов, которые принадлежат четным строкам https://www.cyberforum.ru/ pascalabc/ thread1722863.html Определить и вывести количество ненулевых элементов в каждом столбце заданной матрицы. Для каждой строки заданной матрицы определить и вывести сумму элементов, которые принадлежат строкам с четными номерами.	Pascal ABC Вычислить значение выражения https://www.cyberforum.ru/ pascalabc/ thread1722801.html Даны натуральные числа n и k. Вычислить : \sqrt{k+\sqrt{2k+...+\sqrt{k(n-1)+\sqrt{kn}}}}
Pascal ABC Решить ребус USSR+USA=РЕАСЕ Заранее говорю огромное спасибо )	Pascal ABC Рисование планеты где здесь ошибка не могу найти?можете помочь!? uses GraphABC; var z: integer; x:char; begin write ('выберите планету 1.солнце 2.земля'); read(x); begin for z:=1 to 200 do https://www.cyberforum.ru/ pascalabc/ thread1722704.html

Puporev

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

64288 / 47587 / 32739

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

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

28.04.2016, 16:50

Вычисление суммы ряда с использованием функции - Pascal ABC - Ответ 9082064

28.04.2016, 16:50. Показов 1004. Ответов 1

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

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

Решение

Pascal

function summa(x,e:real):real;
var t,s:real;
    n:integer;
begin
n:=0;
s:=ln(2*x);
t:=-1;
while abs(t)/2>e do
 begin
  inc(n);
  t:=-t*(2*n-1)/2/n/x/x;
  s:=s+t/2/n;
 end;
summa:=s;
end;
var x,e:real;
begin
repeat
write('x>1 x=');
readln(x);
until x>1;
repeat
write('0<e<1 e=');
readln(e);
until (e>0)and(e<1);
write('Summa=',summa(x,e):0:5);
end.

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

28.04.2016, 16:50

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

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

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

Вычисление суммы ряда
Помогите составить блок-схему и программу суммы ряда: \frac{1}{1\times 1}+\frac{1}{2\times...

Вычисление суммы ряда
Вычислите сумму ряда S=1+1/x+1/2x+1/3x+...+1/nx , для n введённого с клавиатуры помогите плизз...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

28.04.2016, 16:50

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

Вычисление суммы ряда
Вычислить значения суммы ряда S при заданных с консоли начальном и конечном значениях аргумента...

Вычисление суммы ряда
Помогите пожалуйста, как можно скорее Короче говоря, у меня есть код одной программы, которая...

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

Вычисление суммы ряда
Помогите написать программу Y = 1 - 3 + 3^2 - 3^3 + . . . + 3^10

Наверх