Úloha č. 8


Název úlohy: Morseova abeceda
Datum: 26.11.1997
Obtížnost: S
Předpokládané znalosti: práce s řetězci, cykly


Zadání
Jste na výletní lodi někde v Atlantiku a blíží se bouře. Vy potřebujete vyslat zprávu o blížící se bouřce a máte možnost tuto zprávu vyslat telegraficky s použitím Morseovy abecedy.
Napište program, jehož vstupem bude řetězec max. délky 80 znaků a ten bude přeložen do kódu Morseovy abecedy.

Bližší popis

  1. nechť písmena v kódu Morseovy abecedy jsou oddělena /, slovo pak // a celá věta znaky ///
  2. pro kódování použijte pomlčku "-" pro čárku a hvězdičku "*" pro tečku
  3. pozn. vaším úkolem bude samozřejmě někde sehnat, jak vypadá morseovka, já ji totiž moc neznám (opravdu)

Diskuse k řešení
  1. převod řešte procedurou
    procedure prevod(s: string; var kod: string); kde s je vstupním řetězcem a kod řetězcem, který bude obsahovat výsledný kód
Řešení
Hlavní část programu nechť pak vypadá takto:

program Morse;

const maxz=80; {maximalni pocet znaku}
var s1, s2: string;

procedure prevod(s: string; var kod: string);
begin
{telo procedury}
end;

BEGIN
writeln(' Zadej zpravu (max.',maxz,' zn.): ');
readln(s1);
prevod(s1,s2);
writeln(s2);
END.



[Archív] [Změna kódování]