┌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φ]