HOME ПРИМЕРЫ THANKS НОВИЧКАМ ДОКИ LINKS JavaScript Mail


 
В этот день много лет назад...
19 апреля. В 1680 году (338 лет назад) - Дневник пирата Рингроуза: На рассвете проснулся от холода: за ночь он промок от дождя и все тело онемело. В 10 утра, когда дождь уже кончился, его каноэ разбилось о скалу. В 12 дня ему удалось спасти жизнь пяти испанцам, попавшим к пиратам в плен; в час Рингроуз улучил минутку и зарисовал очертания берега. В 4 он продолжил путь. Вечером того же дня попал в плен к испанцам. В 9 часов был приговорен к смерти, в 10 его узнали спасенные утром испанцы, и Рингроуз получил помилование. В 11 испанцы отпустили его на все четыре стороны. В 12 он попытался уснуть, но не мог, потому что промок и дрожал от холода. Чтобы отвлечься, он стал записывать в дневник события прошедшего дня.
 
 

Turbo Pascal Documentation

Процедура Dec


     Функция: Уменьшает значение переменной.
     Описание: Dec(x[ , n])
     Примечания: Параметр x  представляет  собой  переменную
перечислимого  типа, а n - целочисленное выражение. Значение
x уменьшается на 1 (или на n в случае явного задания n).  То
есть Dес(x) соответствует x := x-1, а Dес(x,n) соответствует
x := x-n. Функция Dес порождает оптимизированный код и  осо-
бенно полезна в больших циклах.
     Прочее: См. также функции Inc, Pred.
     Пример:

var
  IntVar     : integer;
  LongIntVar : longint;
begin
   Dec(IntVar);                     { IntVar := IntVar - 1 }
   Dec(LongIntVar(Var, 5);  { LongIntVar := LongIntVar - 5 }
end.




HOME