информационная безопасность
без паники и всерьез
 подробно о проектеRambler's Top100
Страшный баг в WindowsSpanning Tree Protocol: недокументированное применениеАтака на Internet
BugTraq.Ru
Русский BugTraq
 Анализ криптографических сетевых... 
 Модель надежности двухузлового... 
 Специальные марковские модели надежности... 
 Infosec-сообщество не поддержало... 
 Расово верная чистка IT-терминологии 
 ГПБ vs TV 
главная обзор 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 15:36  Число просмотров: 1142
Автор: DPP <Dmitry P. Pimenov> Статус: The Elderman
<"чистая" ссылка>
> Гы. Ну не знаю, мне не хочется ;-)

Писать текст на алгоритмическом языке было совсем не обязательно.
Идея именно в этом!
Можно было бы поставить даже отлично!
А проверять работоспособность пробовали?

Заренее оговоренное СТОП-значение пусть будет 0.
Попробуйте последовательность: 1, 10, 9, 8, 7, 6, 5, 4, 3, 2.
Второе наибольшее должно быть 9

>
> 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-2020 Dmitry Leonov   Page build time: 0 s   Design: Vadim Derkach