|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
07.01.2019, 12:47 | #1 |
Регистрация: 03.01.2019
Сообщений: 4
|
Найти минимальное число
Пользователь вводит с клавиатуры ряд натуральных чисел ("0" означает конец ввода ).Определить минимальное число. Паскаль, массивы не использовать
|
07.01.2019, 14:03 | #2 |
Пользователь
Регистрация: 21.12.2018
Сообщений: 28
|
Какой язык?
Сделано ли что-нибудь? |
07.01.2019, 14:08 | #3 |
Старожил
Регистрация: 12.01.2011
Сообщений: 19,500
|
Тут не решатель задач. Если кто-то просто решит за вас, это вряд ли поможет вам разобраться.
покажите свои наработки, конкретные вопросы и т.п. http://www.programmersforum.ru/announcement.php?f=31 Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом. |
07.01.2019, 14:17 | #4 |
Регистрация: 03.01.2019
Сообщений: 4
|
Не работает
var X:Integer; Min: Integer; begin Min :=0; Writeln('Введите числа, 0 конец ввода '); repeat Readln(X); if x< min then Min := X; until x=0; if x=0 then until x =0 Write('Наименьшее число ', Min) end . Последний раз редактировалось Fedorivanch; 07.01.2019 в 14:55. |
07.01.2019, 15:05 | #5 | ||
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
Цитата:
Цитата:
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
||
07.01.2019, 15:32 | #6 |
Регистрация: 03.01.2019
Сообщений: 4
|
Второе что бы ввод остановить когда появился 0
|
07.01.2019, 16:06 | #7 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,619
|
Для поиска минимума начальное значение Min д.быть очень большим числом (максимальным для int). Второй until x =0 действительно ни к чему - выскочит из цикла уже при первом появлении нуля. Я бы написал так:
Код:
|
07.01.2019, 16:18 | #8 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
Или такой цикл
Код:
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
07.01.2019, 17:01 | #9 | |
Пользователь
Регистрация: 21.12.2018
Сообщений: 28
|
Код:
Идея в том, что первое число обрабатывается особым способом. И тогда не нужно никаких Цитата:
|
|
07.01.2019, 20:38 | #10 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,619
|
Такой вариант не гарантирует от ввода отрицательного числа, которое не есть натуральное. Тогда уж x и Min должны быть unsigned
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Среди простых чисел, не превосходящих заданного N, найти такое, в двоичной записи которого содержится минимальное число нулей. | Ace_400 | Общие вопросы C/C++ | 6 | 23.12.2017 22:01 |
[Delphi] С клавиатуры вводятся целые положительные числа.Найти максимальное и минимальное число и их частное. | neznayu kto | Помощь студентам | 2 | 23.04.2017 15:22 |
QBasic. Даны 3 числа. Найти минимальное число. | Vlad0697 | Помощь студентам | 1 | 16.05.2014 11:20 |
найти минимальное число,которое представляется сумой 4 квадратов натуральных чисел не | Dima170792 | Помощь студентам | 2 | 24.06.2011 09:10 |