Предыдущая страница реферата | 3  4  5  6  7  8  9  10  11  12  13 | Следующая страница реферата

                    а т.к. i=1 и не изменяется, то этот процесс бесконечен}

b:end.

Текст модуля.

Unit Tim;

Interface

Uses Crt,Dos;

Procedure keys(var n:integer);

Procedure table;

Procedure Enter_sandman;

Procedure menu;

Implementation

Procedure keys(var n:integer);{процедура нажатия клавиши}

var c:char;

begin

  if keypressed then

    begin

    c:=readkey;

       if c=#0 then c:=readkey;

    n:=ord(c);

    end;

end;

Procedure Enter_sandman; {музыка}

Const

  m:array [1..6] of integer=(165,330,392,233,220,330);

  t:array [1..6] of integer=(1100,600,600,600,1100,600);

Рекомендуем скачать другие рефераты по теме: сочинение капитанская, борьба реферат.



Предыдущая страница реферата | 3  4  5  6  7  8  9  10  11  12  13 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки