Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Помогите написать прогу

Автор: 999 15.09.2009 21:53

Как написать програму в которую вводится определёная последавтельность чисел и нужно найти самое большое число... Как вводить даные то ясно а сам алгоритм нахождения максимального числа не совсем...

Автор: amega 15.09.2009 22:02

вот примерчик тебе, поймеш или нет незнаю.
Допустим за дверью у тебя стоят студенты, они заходят по очереди и не росту.
зашол первый студент, он один и его неским сравнивать значит он самый высокий. Потом заходи второй студент, у нас уже один есть и сравнием их, если он више то оставляем, если ниже то оправлем дальше.
Потом заходит следущий, сравниваем, если выше оставляем если нет отправляем . И так с каждим студентом.

Ток у нас числа место студентов smile.gif

Автор: 999 15.09.2009 22:53

Цитата(amega @ 15.09.2009 18:02) *

вот примерчик тебе, поймеш или нет незнаю.
Допустим за дверью у тебя стоят студенты, они заходят по очереди и не росту.
зашол первый студент, он один и его неским сравнивать значит он самый высокий. Потом заходи второй студент, у нас уже один есть и сравнием их, если он више то оставляем, если ниже то оправлем дальше.
Потом заходит следущий, сравниваем, если выше оставляем если нет отправляем . И так с каждим студентом.

Ток у нас числа место студентов smile.gif

Спасибо понял

Автор: Lapp 16.09.2009 6:32

Можно вот так (для целых чисел)

var
n,max: integer;

begin
max:=Low(integer); {сначала берем минимальное число из возможных}
repeat
ReadLn(n);
if not EoF(input) and (n>max) then max:=n; {это основной оператор}
until EoF(input); {заканчиваем вводом ctrl-Z на отдельной строке}
WriteLn('max = ',max)
end.

Тут нет защиты от пустого ввода.

Автор: Гость 12.10.2009 1:52

Новую тему не смог создать, т.к. не смог зарегиться письмо о активации аккаунта не приходит( Вот и пишу тут...

Помогите написать 2 проги...

1.Дана последовательность чисел. Все элементы, не равные нулю, перенести, сохраня их порядок, в начало последовательности, а нулевые - в конец.
(т.е. Дан массив, заполняется он рандомно где нибудь из 15 чисел, потом выполняется сортировка, и нулевые элементы должны вывестись в конце последовательности(необходимо сформировать новый массив с данной последовательностью).

2.Упорядочить строки целочисленной прямоугольной матрицы по возрастанию количества одинаковых элементов в каждой строке.

Заранее спасибо огромное)