Umístnení souboru www.TrSek.com/cover/pheo/morzeovka.pas{ MORZEOVKA.PAS Copyright (c) Pheo }
{ Morzeovka. Program prevedie text do Morseovej abecedy. }
{ }
{ Datum:19.04.2005 http://www.trsek.com }
Program Morse;
const tab:array['A'..'Z'] of string[6]=('.-','-...','-.-.','-..','.','..-',
'--.','....','..','.---','-.-','.-..','--','-.','---','.--.','--.-',
'.-.','...','-','..-','...-','.--','-..-','-.--','--..');
var s:string;
i:byte;
begin
writeln('Program prevedie text do Morseovej abecedy:');
write('Napis text velkymi pismenami:');
readln(s);
for i:=1 to length(s) do
case s[i] of
'A'..'Z':write(tab[s[i]],'³');
' ':write('==','³'); {ALEBO chr(179)}
'.':write('stop')
end;
readln;
end.