DELAY - procedura     kašnjenje u milisekundama
Sintaksa: PROCEDURE DELAY(VAR promjenljiva:<RedniTip>[,kasni: LONGINT]);

Tabela d.11. DELAY - procedura

Listing programa

Opis

PROGRAM Kasni;

Zaglavlje

USES

 

  WinCRT;

 

VAR

 

  frekvencija : INTEGER;

Frekvencija

BEGIN

 

  FOR frekvencija := 800 TO 1500 DO

Opseg 

    BEGIN

 

      SOUND(frekvencija);

Zvuk

      DELAY(50);         

Kasni 50 ms

    END;

 

    NOSOUND;             

Isključi zvuk

READLN; END.

 

Listing programa:


PROGRAM pDELAY;
VAR
  frekvencija : INTEGER;
BEGIN
  FOR frekvencija := 800 TO 1500 DO
    BEGIN
      SOUND(frekvencija); 
      DELAY(50);          
    END;
    NOSOUND;              
  READLN;
END.

Index