CB i rad 244

244

XIV. ZDOBYWAMY UPRAWNIENIA AMATORSKIE

W przypadku występowania dużej liczby błędów w odbiorze, należy bezwzględnie zmniejszyć tempo (wrócić do tempa poprzedniego).

NAUKA ODBIORU ZNAKÓW MORSE’A

Program napisano w języku programowania TURBO PASCAL (7.0).

{ by Piotr Domagalski, Brodnica 1993-08-23

Program odtwarza w alfabecie Morse’a na głośniczku komputera wprowadzony z klawiatury lub z zewnętrznego pliku tekst.

Uruchomienie: <morse> - odtwarza tekst wprowadzony z klawiatury lub <morse> <nazwa_pliku_tekstowego> - odtwarza tekst z pliku tekstowego }

PROGRAM Nauka_alfabetu_Morse’a;

USES Crt;

CONST ferq=1000;

time: Word=100;

PROCEDURĘ UstawPrędkość;

BEGIN

ClrScr;

WriteLnfObecny czas trwania kropki: ’,time,’ms’);

Write(’Nowy czas trwania kropki: ’);

ReadLn(time);

ClrScr;

END;

PROCEDURĘ Dźwięk(t: Word);

BEGIN

Sound(ferq);

Delay(t);

NoSound;

END;

PROCEDURĘ Graj(co: String);

VAR1: Byte;

BEGIN

FOR 1:=1 TO Length(co) DO BEGIN

CASE co[l] OF Dźwięk(time);

Dźwięk(time*3);

END;

Delay(time);

END;

END;