{ 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.