Hl.strana - Maturitní otázky - Referáty (Moje referáty) - Plesy (Tipy,Firmy) - Vysoké školy - Kurzy - !SHOP!

Morseovka

Info -

Tisknout -

Poslat(@) -

Uložit->Moje referáty - Přidat referát

program Morse;
const
Tab: array['A'..'Z'] of string[6] = (
'._','_...','_._.','_..','.','.._.','__.','....',
'..','.___','_._','._..','__','._','___','.__.','xxx',
'._.','...','_','.._','..._','xxx','xxx','__._','__..');
var
s : string;
i : byte;

begin
writeln('Morse -- prevede text do Morseovy abecedy.');
write('Zadej retezec: '); readln(s);
for i:= 1 to length(s) do
case s[i] of
'A'..'Z','a'..'z': write(Tab[Upcase(s[i])],'|');
' ': write('|');
end;
end.

PŘIDEJTE SVŮJ REFERÁT