информационная безопасность
без паники и всерьез
 подробно о проектеRambler's Top100
Страшный баг в WindowsЗа кого нас держат?Spanning Tree Protocol: недокументированное применение
BugTraq.Ru
Русский BugTraq
 Анализ криптографических сетевых... 
 Модель надежности двухузлового... 
 Специальные марковские модели надежности... 
 Уголовное дело против Nginx 
 Microsoft сообщила о 44 миллионах... 
 Множественные уязвимости в VNC 
главная обзор RSN блог библиотека закон бред форум dnet о проекте
bugtraq.ru / форум / programming
Имя Пароль
ФОРУМ
все доски
FAQ
IRC
новые сообщения
site updates
guestbook
beginners
sysadmin
programming
operating systems
theory
web building
software
hardware
networking
law
hacking
gadgets
job
dnet
humor
miscellaneous
scrap
регистрация





Легенда:
  новое сообщение
  закрытая нитка
  новое сообщение
  в закрытой нитке
  старое сообщение
  • Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
  • Новичкам также крайне полезно ознакомиться с данным документом.
Интересно ;-) 16.10.03 13:24  Число просмотров: 1169
Автор: HandleX <Александр Майборода> Статус: The Elderman
<"чистая" ссылка>
> Пример: Напишите програмку, которая делает следующее -
> последовательно вводятся числа (количество введенных чисел
> немзвестно/неограничено), при вводе заранее оговоренного
> числа программа должна выдать второе по максимальности
> число (именно не самое максимальное, а второе по величине)
> и закончить работу.
>
> Так и хочется завести массив, считывать циклически
> введенные числа в последовательные ячейки массива, при
> вводе ключевого числа вывалиться из цикла ввода,
> отсортировать массив и выдать значение второго элемента.
> Проблема в том, что надо обойтись без массива, поскольку
> количество введенных чисел неограничено.
Гы. Ну не знаю, мне не хочется ;-)
Program Sort;
Var aValue, Max, oldMax, stopValue: Integer;
Begin
  Max := Low(Integer);
  Write('Введите значение для остановки>');
  ReadLn(stopValue);
  Repeat
    Write('Input value>');
    ReadLn(aValue);
    If aValue > Max Then 
    Begin
      OldMax := Max;
      Max := aValue;
    End;
  Until aValue = stopValue;
  WriteLn('oldMax = ', oldMax, ', Max = ', Max);
  WriteLn('Enjoy and good bye... There was no any arrays!');
End.

---
<programming> Поиск 








Rambler's Top100
Рейтинг@Mail.ru


  Copyright © 2001-2019 Dmitry Leonov   Page build time: 0 s   Design: Vadim Derkach