PascalABC.NET

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

Войти

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

Другие темы раздела
PascalABC.NET Вычислить сумму всех значений функции у, для которой выполняются неравенства вычислить сумму всех значений функции у, для которой выполняются неравенства y <4 или y> 12. нужно использовать функцию https://www.cyberforum.ru/ pascalabc-net/ thread967072.html	PascalABC.NET типизированные файлы 1.Имеется типизированный файл, элементами которого являются отдельные символы. Записать в другой файл все символы, кроме 'a' и 'z', из имеющегося файла (буквы 'a' и 'z' в исходном файле обязательно...
PascalABC.NET Добавление предела символов https://www.cyberforum.ru/ pascalabc-net/ thread966749.html Нужно добавить в код, предел в 150 символов, если строка длиннее то вывести что слишком длинная. var s,sn,sg: string; i: integer; begin write('s='); readln(s); sn:=''; for i:=1 to...	PascalABC.NET Вычислить значение выражения воп моя программа что с ней не так? при вводе х = 16 получается у = -2780.00, ответ оч ненравится Program _2; var x,y:real; begin write('x='); readln(x); if x<3.2 then y:=(xxx*x)+9 else... https://www.cyberforum.ru/ pascalabc-net/ thread966596.html
уравнение методом ньютона PascalABC.NET Уравнение x^2-5*sin(x)=0 с точностью ε=0,0001 и интервале изоляции корня методом Ньютона! У меня есть блок-схема но у меня по ней не получается, может в ней ошибка? Если можно напишите именно по...	PascalABC.NET Вычислить сумму и у меня никаких идей, что мне с этим делать. https://www.cyberforum.ru/ pascalabc-net/ thread966270.html
PascalABC.NET Исправить синтаксическую ошибку в коде Ребят я не могу разобраться,он просит точку с запятой после object,в чем беда не знаю ;( uses GraphABC,Crt; type Tmesto=Object x,y=integer; https://www.cyberforum.ru/ pascalabc-net/ thread966090.html	PascalABC.NET Как добавить иконку приложения? Подскажите, как добавить иконку приложения в Pascal ABC.NET
PascalABC.NET Сначала задано число N - количество элементов в массиве, N10000. и Сначала задано число N - количество элементов в массиве https://www.cyberforum.ru/ pascalabc-net/ thread966047.html 1) Сначала задано число N - количество элементов в массиве, N10000. Далее через пробел записаны N чисел - элементы массива. Все числа по модулю не превосходят 109. Выведите одно число –...	PascalABC.NET Построить следующие компьютерные модели: https://www.cyberforum.ru/ pascalabc-net/ thread965835.html Модель Архимеда нахождения приближенного значения числа .
PascalABC.NET Построить следующие компьютерные модели: 1. Модель предельного перехода a. Первый замечательный предел; b. Второй замечательный предел;	PascalABC.NET Объясните исходный код программы Пользователь вводит 2 числа, от 1000 до 9999 (или любой другой интервал), и программа показывает только те числа, которые содержат только три одинаковых цифры: 6555, 8788, 9939 (и так далее). ... https://www.cyberforum.ru/ pascalabc-net/ thread965356.html

Samhain

694 / 568 / 414

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

Сообщений: 1,029

02.10.2013, 14:45

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

02.10.2013, 14:45. Показов 1517. Ответов 1

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

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

Решение

Pascalpro,

Pascal

var s,a:real;
    n:integer;
begin
  repeat
    write('a = ');readln(a);
  until a>1;
  n:=1;s:=0;
  repeat
    s:=s+1/n;
    n:=n+1;
  until s>a;
  writeln('n = ',n,', s = ',s:0:4);
  readln
end.

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

02.10.2013, 14:45

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

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

Вывести наименьшее из целых чисел N, для которых сумма 1 + 1/2 + ... + 1/N будет больше A, и саму эту сумму.
VI.Операторы цикла 19. Показать, что для всех п = 1, 2, 3, N (15 + 25 + ... + n5) + (17 + 27 +...

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

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

02.10.2013, 14:45

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

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

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

Вывести наибольшее из целых N, для которых сумма 1+1\2+...+1\N будет меньше А, и саму эту сумму.
Здравствуйте. Помогите пожайлуста решить задачку. Заранее спасибо! Задача: Дано вещественное...

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

Наверх