Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal День года задан в виде пары целых чисел День года задан в виде пары целых чисел (m, d), где m – месяц (1≤m≤12), d – день (1≤d≤31). Программа сначала определяет, правильная ли это дата, и выдает число n, равное 1, 2, …, 6 или 7 в зависимости от того, на какой день недели (понедельник, вторник,…, субботу или воскресение) приходится этот день. Считаем, что год – невисокосный и 1 января – понедельник. ПОМОГИТЕ ПОЖАЛУУУУУЙСТА:cry: https://www.cyberforum.ru/ turbo-pascal/ thread1076642.html	Напечатать индексы всех седловых точек матрицы Turbo Pascal Дана матрица А. Разработать программу, которая позволяет выполнить с матрицей следующие действия: Элемент матрицы назовем седловой точкой, если он является наименьшим в строке и одновременно наибольшим в своем столбце или, наоборот, является наибольшим в своей строке и наименьшим в своем столбце. Для заданной целой матрицы порядка nxm напечатать индексы всех ее седловых точек.
Turbo Pascal Фибоначчи Числа Фибоначчи: F0 = 0, F1 = 1, а любое следующее число Фибоначчи равно сумме двух предыдущих: Fn = Fn – 1 + Fn – 2. Известно, что при достаточно больших n справедливо приближенное равенство {F}_{n}=\frac{1}{\sqrt{5}}*{(\frac{1+\sqrt{5}}{2})}^{n} Определите наименьший номер n, начиная с которого равенство выполняется с точностью до заданного eps. Помогите пожалуйста((((((((((((((( https://www.cyberforum.ru/ turbo-pascal/ thread1076568.html	Turbo Pascal Ввести строку. Определить количество слов, содержащих букву Z https://www.cyberforum.ru/ turbo-pascal/ thread1076541.html Ввести строку. Определить количество слов, содержащих букву Z.
Turbo Pascal В введенном тексте сочетание “and” заменить на “or” В введенном тексте сочетание “and” заменить на “or”.	Turbo Pascal Ввести строку. Удалить первое слово Ввести строку. Удалить первое слово. https://www.cyberforum.ru/ turbo-pascal/ thread1076530.html
Turbo Pascal Найти сумму ряда 1/(34)+2/(45)+3/(5*6)+.. https://www.cyberforum.ru/ turbo-pascal/ thread1076528.html	Найти сколько чисел равных 10 Turbo Pascal Вводится последовательность из N целых чисел. Найти, сколько в ней чисел равных 10.
Turbo Pascal Дан одномерный массив a(n). Отсортировать по возрастанию положительные элементы массива https://www.cyberforum.ru/ turbo-pascal/ thread1076471.html Дан одномерный массив a(n). Отсортировать по возрастанию положительные элементы массива.	Turbo Pascal Даны три последовательности из n,m,h элементов.Найти сумму минимальных значений трех последовательностей Даны три последовательности из n,m,h элементов.Найти сумму минимальных значений трех последовательностей https://www.cyberforum.ru/ turbo-pascal/ thread1076470.html
Turbo Pascal дана последовательность состоящая из n символов Дана последовательность , состоящая из n символов . определить количество гласных букв	Turbo Pascal Найти числа, меньшие n, которые можно представить в виде сумм квадратов двух натуральных чисел https://www.cyberforum.ru/ turbo-pascal/ thread1076465.html Дано натуральное число n. Среди чисел 1,2,3...n найти все те,которые можно представить в виде сумм квадратов двух натуральных чисел.Определить процедуру , позволяющую распознавать полные квадраты

Puporev

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

64303 / 47600 / 32742

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

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

20.01.2014, 19:52

Вычислить значение суммы - Turbo Pascal - Ответ 5668064

20.01.2014, 19:52. Показов 1100. Ответов 1

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

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

Решение

Pascal

uses crt;
var n,k:integer;
    s,c,z:real;
begin
clrscr;
write('n=');
readln(n);
c:=1;
z:=1/2;
s:=c/z;
for k:=2 to n do
 begin
  c:=c*k;
  z:=z+1/(k+1);
  s:=s+c/z
 end;
write('S=',s:0:3);
readln
end.

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

20.01.2014, 19:52

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

Вычислить значение суммы
Вычислить значение суммы S=\sum_{n=0}^m \left(a+\frac{1}{x} \right)^n для m = 10,\ x...

Вычислить значение суммы
1) \sum 1/(2i)^2 2)\sum_{i=1}^{n} x/2^i

Вычислить значение суммы
Сделать на паскале: для с вычислить значение суммы:...

Вычислить значение суммы
1) вычислить \sum_{i=1}^{n} \frac{x-i}{i^2} 2) Вывести на печать номера элементов кортежа,...

	20.01.2014, 19:52

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

20.01.2014, 19:52

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

Вычислить значение суммы
вычислить значение суммы с заданной точностью e (e=0.01) при известном значении х. Значение х...

Вычислить значение суммы
Помогите составить программу для вычисления сумм (по примеру)

Вычислить значение суммы.
Решить уравнение. S= \sum_{k=1}^{m}(a/k^3+2 + sin*(3*k+1)) если возможно, с объяснением. ...

Вычислить значение суммы
ПОМОГИТЕ ПОЖАЛУЙСТА!!!! HELP MY PLEASE!!!!

Наверх