Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Вычислить и вывести на экран значение n члена последовательности для каждого x (в заданном интервале) https://www.cyberforum.ru/ pascal/ thread1571061.html Вычислить и вывести на экран значение n члена последовательности для каждого x c шагом h=0.1 Результат работы программы представить в виде следующей таблицы: № Значение x Значение функции bn(x) 1 2 … Замечание. Для решения задачи разработать метод, в который передаются значения х и n, и которым возвращается значение bn.	Pascal Добавить в программу функцию или процедуру Добавьте сюда функцию или процедуру uses crt; var n,i:integer; b: array of real; begin writeln( 'введите n=' ); readln(n); b:=9;; writeln(b: 5 : 5 ); for i:= 2 to n do
Pascal Сформировать в прямоугольном массиве 6x7 календарь заданного месяца https://www.cyberforum.ru/ pascal/ thread1570811.html Вводится номер дня недели первого числа заданного месяца и номер месяца. Сформировать в прямоугольном массиве 6x7 календарь этого месяца. Число дней определять правильно, считая, что в феврале 28 дней. Например, введем день недели первого числа равный 6 (суббота), а месяц 3 (март). Получится 0 3 10 17 24 31 0 4 11 18 25 0 0 5 12 19 26 0 0 6 13 20 27 0 0 7 14 21 28 0 1 8 15 22 29 0 2 9 16...	Pascal Задача на двумерный массив Вводится массив, состоящий из 3 столбцов и произвольного количества строк. Этим массивом задается функция от 2-х переменных следующим образом: первые 2 столбца - это значения аргументов, а 3-й столбец - значение функции. Вводятся также значения аргументов X и Y. Найти значение функции при данных X и Y либо напечатать, что функция не определена. Динамическими массивами не пользоваться. https://www.cyberforum.ru/ pascal/ thread1570810.html
Pascal Дружные братья Есть три брата. Известно, сколько у каждого из них конфет. Два брата поссорятся, если количество конфет у них отличается больше чем на К. Они могут дарить один другому конфеты. Какое наименьшее количество конфет они должны подарить друг другу, чтобы не поссориться. Если это невозможно сделать - вывести число -1 Для введенных: 1 6 3 2 вывод 2	Pascal Процедуры Write и WriteLn https://www.cyberforum.ru/ pascal/ thread1570565.html Подскажите пожалуйста почему 1992 Мы начинаем! в одной строке? Программа:Begin Write (1992); WriteLn (' Мы начинаем!'); WriteLn (68); WriteLn; WriteLn (' Шестью шесть ', 66, '. Арифметика:',(64)3)
Pascal Определить факт наличия чётной цифры в числе Составить линейную программу, печатающую значение true, если указанное высказывание является истинным, и false — в противном случае: В заданном натуральном четырехзначном числе N имеется четная цифра. pascal https://www.cyberforum.ru/ pascal/ thread1570314.html	Найти минимальный элемент массива и его номер Pascal Составить программу Заполнить одномерный целочисленный массив, десятью произвольными числами из диапазона от 0 до 25 ,найти минимальный элемент массива и его номер, заменить все отрицательные элементы массива на противоположные.
Pascal Напишите пропущенные команды Напишите пропущенные команды. Ввести массив В, из 18 элементов целого типа, заданных случайным образом на промежутке , нумерация начинается с 1 и вывести элементы массива с 1-го по 7-й в столбец. Program Primer; ___________________; j: integer; BEGIN https://www.cyberforum.ru/ pascal/ thread1570202.html	Pascal Составить программу ввода и вывода двумерного массива https://www.cyberforum.ru/ pascal/ thread1570195.html Составить программу ввода и вывода двумерного массива а, с размерностью 10х15
Pascal Программирование задач с использованием функций Даны два массива А(10), В(10). В массивах А(10) и В(10) все элементы предшествующие первому нулевому элементу заменить на 0,5 Заранее спасибо!!!:)	Pascal нужно задачу https://www.cyberforum.ru/ pascal/ thread1570059.html Program FourAn; uses crt,graph; type BaseType=real; FourAngle=object x1,y1,x2,y2,x3,y3,x4,y4, A,B,C,D,D1,D2,Alpha,Beta,Gamma, Delta,P,S: BaseType; Procedure Init; Procedure Storony; Procedure Diagonali;

Puporev

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

64291 / 47589 / 32740

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

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

04.11.2015, 14:36

Найти сумму ряда до члена ряда с заданным номером, и найти сумму ряда с заданной точностью - Pascal - Ответ 8290528

04.11.2015, 14:36. Показов 4144. Ответов 1

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

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

Решение

Pascal

s:=0;
t:=1;
for i:=1 to n do
 begin
  t:=t/i;
  s:=s+(1+i)*t;
 end;

Pascal

n:=0;
t:=1;
s:=0;
while((1+n)*t)>0.001 do
 begin
  n:=n+1;
  t:=t/n;
  s:=s+(1+n)*t;
 end;

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

04.11.2015, 14:36

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

Вычислить сумму членов ряда с точностью до члена ряда, меньшей E
Вычислить сумму членов ряда: Z=x/(x+1)!+x^2/(x+2)!+x^3/(x+3)!+... с точностью до члена ряда,...

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

Найти сумму ряда с заданной точностью
Дано натуральное число n. Вычислить ...

Найти сумму ряда с заданной точностью
Найти сумму ряда с точностью e=10-4, общий член которого (см. рисунок) ...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

04.11.2015, 14:36

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

Найти сумму ряда с заданной точностью
\sum_{k=1}^\infty \frac{(-1)^k{(k+1)x}^k}{3^k} n и Е (Е=10-6)

Найти сумму ряда с заданной точностью
Доброе утро. ~ Напишите, пожалуйста, программу: Найти сумму ряда с точностью E=10-4, общий...

Найти сумму данного бесконечного ряда с заданной точностью
Найти сумму данного бесконечного ряда с заданной точностью , т.е. продолжать процесс суммирования...

Найти с заданной точностью сумму ряда Тейлора для sin(x)
В общем, ребята, никак не могу решить задачу. Голову ломал недели две, но так и не пришел к омута...

Наверх