IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Помогите написать прогу
999
сообщение 15.09.2009 17:53
Сообщение #1





Группа: Пользователи
Сообщений: 2
Пол: Мужской

Репутация: -  0  +


Как написать програму в которую вводится определёная последавтельность чисел и нужно найти самое большое число... Как вводить даные то ясно а сам алгоритм нахождения максимального числа не совсем...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
amega
сообщение 15.09.2009 18:02
Сообщение #2


?
***

Группа: Пользователи
Сообщений: 283
Пол: Мужской

Репутация: -  4  +


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

Ток у нас числа место студентов smile.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
999
сообщение 15.09.2009 18:53
Сообщение #3





Группа: Пользователи
Сообщений: 2
Пол: Мужской

Репутация: -  0  +


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

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

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

Спасибо понял
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Lapp
сообщение 16.09.2009 2:32
Сообщение #4


Уникум
*******

Группа: Модераторы
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


Можно вот так (для целых чисел)
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.

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


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Гость
сообщение 11.10.2009 21:52
Сообщение #5


Гость






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

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

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

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

Заранее спасибо огромное)
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
2 чел. читают эту тему (гостей: 2, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 15.05.2024 20:02
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"