Morseovka
Kdo bude vítěz letos?
NOMINUJTE - stránky v kategoriích:
Nejlepší:
Tablo
- Školní
časopis na webu -
Školní webové
stránky -
Třídní
stránky -
Profesorské
stránky
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
Tisknout -
Poslat(@) -
Uložit->Moje referáty -
Přidat referát