Вводится последовательность чисел. 0 - конец последовательности. НАйти 2 наименьших числа.
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| topoR |
Сообщение
#1
|
![]() Группа: Пользователи Сообщений: 8 Пол: Мужской Репутация: 0 |
Помогите решить задачу
Вводится последовательность чисел. 0 - конец последовательности. НАйти 2 наименьших числа. -------------------- Всё, что не убивает нас, - делает нас сильнее...
|
![]() ![]() |
| volvo |
Сообщение
#2
|
|
Гость |
В чем проблема? Изначально min_1, min_2 = максимально возможному значению, которое может быть введено... Если числа целые - то MaxInt, например...
А потом делаешь следующее: если очередное введенное с клавиатуры число (назовем его X) не 0, то сравниваешь его сначала с min_1 (это наименьшее из чисел), и если новое число строго меньше него, то min_2 := min_1; Если же min_1 < X < min_2, то min_2 := X; Внимание! Все эти сравнения производятся только, если X отличается от значений КАК min_1, ТАК и min_2 !!! Иначе ничего делать не надо, переходишь ко вводу следующего числа... Это алгоритм (сорри, если сумбурно, но я его составлял с готовой программы, поэтому...) Попробуй разобраться, в нем и хотя бы начни делать что-то... Не получится - приходи Сообщение отредактировано: volvo - |
topoR Последовательность чисел 12.04.2007 4:58
Lapp
Изначально min_1, min_2 = максимально возможному … 12.04.2007 5:52
volvo Похоже в задании есть некоторая двусмысленность...… 12.04.2007 5:51
volvo :) Догадайся, где здесь узкое место? Для этого над… 12.04.2007 5:55
Lapp
:) Догадайся, где здесь узкое место? Для этого на… 12.04.2007 6:00
topoR Блин, люди, я в паскале человек относительно новый… 12.04.2007 5:57
topoR
program unknown;
uses crt;
var min_1, min_2, n,… 12.04.2007 6:22
Lapp
Не работает по-моему :((
Угу.
Ты забыл расставит… 12.04.2007 6:53
topoR Программа работает, спасибо :) Ошибку полностью ос… 12.04.2007 7:02
topoR Вот еще одна задачка.. Такого же типа.
Дана после… 12.04.2007 18:12![]() ![]() |
|
Текстовая версия | 8.11.2025 16:59 |