Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Дан текстовый файл, содержащий более трех строк. Удалить из него три последние строки Дан текстовый файл, содержащий более трех строк. Удалить из него три последние строки https://www.cyberforum.ru/ pascal/ thread910446.html Создать новый текстовый файл, содержащий k последних строк исходного файла Pascal
Дано число k (< 10) и текстовый файл, содержащий более k строк. Создать новый текстовый файл, содержащий k последних строк исходного файла.
Pascal Проверка вводимых данных Условие задачи. Перевод вещественных 10-х чисел в 2 с. с. и 8 с. с. Программа написана. Но если ввести набор чисел внутри которых будет присутствовать -, то проверка не работает, нужно дописать... https://www.cyberforum.ru/ pascal/ thread910390.html Pascal Вывести список в отсортированном виде Помогите пож сделать сортировку списка в паскале. Даны 10 человек (ФИО, пол, год рождения). Вывести список в отсортированном виде. Список хранится в фале txt. https://www.cyberforum.ru/ pascal/ thread910328.html
Метод итерации Pascal
Должна быть функция и цикла быть не должно. Рекурсия и есть цикл. Нужно исправить,помогите пожалуйста. С погрешностью 0.001 уточнить, методом деления отрезка пополам, корень уравнения...
Pascal Отсутствующие гласные https://www.cyberforum.ru/ pascal/ thread910207.html
Надо задать множество гласных и проверять попадание символов строки в него, выводить такой символ, а потом исключать из множества, чтобы дважды (или больше раз) не показывать на экране. Вот мой...
Pascal Получить удвоенную сумму всех положительных членов последовательности A 1, A2 , ..., An Даны натуральное число n, действительные числа A1,A2,...,An.Получить удвоенную сумму всех положительных членов последовательности A 1, A2 , ..., An помогите пожалуйста((( Добавлено через 21... https://www.cyberforum.ru/ pascal/ thread910066.html Разработать алгоритм и программу нисходящим способом Pascal
Разработать алгоритм и программу нисходящим способом ,предполагая заданной матрицу А из 5 строк и 5 столбцов или одномерные массивы указанной длины. Если разность максимального и минимального...
Pascal Вычисление выражения с использованием процедур https://www.cyberforum.ru/ pascal/ thread909841.html
Помогите написать выражение с использованием процедур. Для организации вычислений по заданной формуле составить программу с использованием функции или подпрограммы.Для этого в фомуле выявить...
Pascal Найти произведение элементов строки в которой находится максимальный элемент матрицы Дана вещественная матрица А(5,5).Найти произведение элементов строки в которой находится максимальный элемент матрицы. https://www.cyberforum.ru/ pascal/ thread909078.html
Pascal процедура удаления данных из типизированного файла
помогите пожалуйста дописать код, имеется база данных электродвигателей, нужно обеспечить удаление имеющихся данных по заданному условию (по конкретному типу двигателя). задача еще не полностью...
Pascal Сформировать массив из произведений элементов столбца матрицы и найти в нем минимальный элемент Дана матрица a(5, 5). Распечатать массив b(5), каждый элемент которого равен произведению элементов столбца матрицы с соответствующим номером, и найти в нем минимальный элемент https://www.cyberforum.ru/ pascal/ thread908766.html
Фрилансер
73 / 73 / 51
Регистрация: 25.10.2011
Сообщений: 317
23.06.2013, 23:53 0

Дано вещественное число A (> 1). Вывести наименьшее из целых чисел N, для которых сумма 1 + 1/2 + . + 1/N будет больше A, и саму эту сумму - Pascal - Ответ 4762633

23.06.2013, 23:53. Показов 10878. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено zuza как решение

Решение

на просторах интернета:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
  a,s:real;
  n:longint;
begin
  repeat
    write('Введите число A=');
    readln(a);
  until a>1;
  n:=1;
  s:=n;
  while s<=a do
    begin
      inc(n);
      s:=s+1/n;
    end;
  writeln('Наименьшее N=',n,' сумма S=',s:0:5);
  readln;
end.


Вернуться к обсуждению:
Дано вещественное число A (> 1). Вывести наименьшее из целых чисел N, для которых сумма 1 + 1/2 + . + 1/N будет больше A, и саму эту сумму Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.06.2013, 23:53
Готовые ответы и решения:

Дано вещественное число A (>1). Вывести наименьшее из целых чисел N, для которых сумма 1+…+1/N будет больше A, и сумму
Добрый вечер всем. Нужна помощь в задании по Pascal ABC Само задание: Дано вещественное число...

Вывести наименьшее из целых чисел K, для которых сумма 1 + 1/2 + … + 1/K будет больше A, и саму эту сумму.
Надо решить две задачки выручите пожалуйста! 1.Дано вещественное число X и целое число N (&gt; 0)....

Вывести наибольшее из целых чисел N, для которых сумма будет больше A
Помогите пажалуйста с программой, очень срочно надо. Задача: Дано вещественное число A (&gt;1)....

Даю вещественно число A(>1). Вывести наименьшее из целых чиселN, для которых сумма 1+1/2+...+1/N будут больше A, и саму эту сумму
Даю вещественно число A(&gt;1). Вывести наименьшее из целых чиселN, для которых сумма 1+1/2+...+1/N...

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

Вывести наибольшее из целых чисел, для которого заданная сумма будет меньше заданного числа, и саму эту сумму
Дано числа А&gt;1. Вывести наибольшее их целых чисел К, для некоторых сумма 1+1/2+...+1/К будет меньше...

Дано число A (>1). Вывести найбольшее из целых чисел К, для которых сумма 1+1/2+.+1/k будет меньше А и саму эту сумму
Дано число A (&gt;1). Вывести найбольшее из целых чисел К, для которых сумма 1+1/2+...+1/k будет...

Вывести наибольшее из целых чисел К, для которых сумма 1+1/2+.+1/K будет меньше А, и саму эту сумму
Здравствуйте, помогите пожалуйста написать программы на языке паскаль.Заранее благодарю. 2)...

Вывести наименьшее из целых чисел N, для которых сумма будет больше A
Дано вещественное число А(&gt;1). Вывести наименьшее из целых чисел N, для которых сумма 1+1/2+......

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