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

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

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

> Наибольшее из N чисел
сообщение
Сообщение #1


Новичок
*

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

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


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

Program maximum;
Var    N, max, next, k: integer;
Begin
  Write('Введите количество чисел'); Readln(n);
  Write('Введите число'); Readln(max);
  k:=1;
  repeat
    Write('Введите число'); Readln(next);
    K:=k+1;
    If next>max then max:=next
  Until k=n;
  Writeln(max);
  Readln
End.

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов(1 - 3)
сообщение
Сообщение #2


Гость






Цитата
Но если числа вводятся рандомом?
Так "если" или "вводятся"? Что за привычка давать расплывчатые задания???

Кстати, твое решение тоже не особо оптимальное: ни один преподаватель (тем более работодатель), находящийся в здравом уме, не пропустит такую программу. Хотя бы вот так:

Program maximum;
Var N, max, next, k: integer;
Begin
Write('Введите количество чисел'); Readln(n);
max := -maxInt;
for k := 1 to n do begin
Write('Введите число'); Readln(next);
If next>max then max:=next
end;
Writeln(max);
Readln
End.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

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


а если они вдруг начнут вводиться рэндомом (всякое в жизни бывает), то достаточно в приведенном volvo коде изменить
Код
Write('Введите число'); Readln(next);

на
Код
next:=random(100)-50; {это для примера. чтобы были и положительные, и отрицательные}
writeln(next); {чтобы отслеживать, что у нас там навводилось}


а если вводим вручную... может, заранее не просить количество чисел? спрашивать "хотите ввести еще одно?".

Сообщение отредактировано: мисс_граффити -


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Новичок
*

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

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


Большое вам спасибо за ответы.
Тут нам сегодня дали около сотни задач на 5 тем. Если будут вопросы по некоторым, буду обращаться, надеюсь поможете. Спасибо ещё раз!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





- Текстовая версия 28.03.2024 23:34
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name