Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Другие темы раздела
PascalABC.NET Вывести список переменных A и B Не могу сделать так, чтобы прога выводила много переменных A и B, для всех чисел от 1 до 500 (ну чтобы на каждое число выводило переменные, и тз этого был список) var x, a, b: longint; begin readln(x); a := 0; b := 0; while x > 0 do begin if x mod 2 = 0 then a := a + 1 https://www.cyberforum.ru/ pascalabc-net/ thread2183650.html Корректность записи в файл (chr чудит) PascalABC.NET
Написал небольшую программку, которая с помощью функции chr() дописывает в стоку случайный символ, но при попытке вывести строку в текстовый файл (.txt) появляются ошибки. Например символ "š" в блокноте превращается в "?", добавляются и убираются пробелы. Подскажите, как в моем случае корректно записать строку в файл, а затем корректно прочитать ее из файла.
PascalABC.NET Перевод из одной СС в другую через рекурсию Необходимо осуществить перевод из двоичной системы счисления в семеричную через рекурсию Был написан такой код, но нужно преобразовать это в рекурсию: uses CRT; var A, B: string; i, n: longint; begin write('Число в двоичной СС: '); https://www.cyberforum.ru/ pascalabc-net/ thread2183340.html PascalABC.NET Найти количество элементов матрицы, модуль разности между которыми и средним арифметическим элементов матрицы более 1 https://www.cyberforum.ru/ pascalabc-net/ thread2183143.html
Найти количество элементов вещественной матрицы a, модуль разности между которыми и средним арифметическим элементов матрицы более 1.
PascalABC.NET Получить массив В, состоящий из элементов массива А, которые кратны 2
Задан массив А(N). Получить из него массив В, состоящий из элементов массива А, которые кратны двум
PascalABC.NET Получить одномерный массив, состоящий из элементов массива А, которые превышают по модулю число https://www.cyberforum.ru/ pascalabc-net/ thread2183109.html
Задан массив А. Получить массив одномерный массив В, состоящий из элементов массива А, которые превышают по модулю число, введенное пользователем (предварительно необходимо определить количество элементов в массиве В).
PascalABC.NET Ход королем (Шахматы) https://www.cyberforum.ru/ pascalabc-net/ thread2183093.html
Как описать ход короля в шахматах, если начальные координаты= a1, b1. конечные= x,y. if (b=11) or (b=12) then //проверка фигуры(картинка с номером 11 и 12 из массива картинок)
PascalABC.NET Произведение компонент файла
Всем доброго времени суток! Задание такое: Составить программу работы с файлами: Дан файл f, компоненты которого являются действительными числами. Найти: а) сумму компонент файла f; б) произведение компонент файла f; в) сумму квадратов компонент файла f. Делаю через random, сумма и сумма квадратов работает нормально, произведение же всегда = 0, даже когда в рандоме 0 отсутствует....
PascalABC.NET Как написать код, который при вводе чисел х, y, r выводил бы в какую область попадаем? Доброго времени суток. Собственно, не понимаю, как написать код, который при вводе чисел х,y,r выводил бы в какую область попадаем https://www.cyberforum.ru/ pascalabc-net/ thread2182910.html PascalABC.NET Графика: Отрисовать выстрел и попадание снаряда в тарелку Друзья, добрый день. Подскажите: В верхнем левом углу стандартного графического окна отображается летающая тарелка (см. рисунок). Тарелка движется самостоятельно вдоль верхней границы окна. Тарелка меняет направление движения на противоположное, каждый раз соприкоснувшись с боковой границей графического окна. В нижнем правом углу этого окна отображается самолет (см. рисунок). Самолет... https://www.cyberforum.ru/ pascalabc-net/ thread2182732.html
PascalABC.NET Не получается покрасить вторую ногу на рисунке
uses graphabc; begin setpencolor(clblack); circle(250, 100, 50); line(150, 150, 350, 150); line(350, 150, 250, 350); line(250, 350, 150, 150); line(175, 200, 100, 250);
PascalABC.NET Как программно скачать документ из ВК? В ВК есть группа колледжа, где в теме обсуждений выкладывается расписание в виде файла .xls (exel) Пример => https://vk.com/doc98797080_458629110?hash=a004a75a11064fa89a&dl=b2ff77471b6f1b76b2 Как его можно скачать средствами .net? Пробовал использовать downloadFile из класса webClient, но на выходе получал пустой файл. https://www.cyberforum.ru/ pascalabc-net/ thread2182424.html
0 / 0 / 1
Регистрация: 01.02.2018
Сообщений: 268
0

Вывести наибольшее из целых чисел, для которого заданная сумма будет меньше заданного числа, и саму эту сумму - PascalABC.NET - Ответ 12084078

02.02.2018, 11:20. Показов 900. Ответов 1
Метки (Все метки)

Студворк — интернет-сервис помощи студентам
Дано числа А>1. Вывести наибольшее их целых чисел К, для некоторых сумма 1+1/2+...+1/К будет меньше А, и саму эту сумму.
А=2.96994


Pascal
1
2
3
4
5
6
7
8
9
10
const a=2.96994;
var s,b,min_k:real;
k:integer;
begin
b:=1;
k:=1;
s:=0;
while s<=a do  begin
                min_k := k;
                inc(k);
как решить?

Вернуться к обсуждению:
Вывести наибольшее из целых чисел, для которого заданная сумма будет меньше заданного числа, и саму эту сумму PascalABC.NET
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.02.2018, 11:20
Готовые ответы и решения:

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

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

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

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

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

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

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

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

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

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