Anonymní profil Peter – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu

Anonymní profil Peter – Programujte.comAnonymní profil Peter – Programujte.com

 

Příspěvky odeslané z IP adresy 84.245.95.–

Peter
Pascal › Pomoc - Morseho kód
12. 4. 2014   #189204

Zdravim, neviete poradit,preco mi nejde do premennej typu char priradit 1 znak cez prikaz copy?

Vopred dik za radu ;)

Program Morse;
 uses crt;
 var m:array['a'..'z'] of string;
     i:integer;
     text:string;
     x:char;

 procedure morse_sifra;
    Begin
      m['a']:='.-';
      m['b']:='-...';
      m['c']:='-.-.';
      m['d']:='-..';
      m['e']:='.';
      m['f']:='..-.';
      m['g']:='--.';
      m['h']:='....';
      m['i']:='..';
      m['j']:='.---';
      m['k']:='-.-';
      m['l']:='.-..';
      m['m']:='--';
      m['n']:='-.';
      m['o']:='---';
      m['p']:='.--.';
      m['q']:='--.-';
      m['r']:='.-.';
      m['s']:='...';
      m['t']:='-';
      m['u']:='..-';
      m['v']:='...-';
      m['w']:='.--';
      m['x']:='-..-';
      m['y']:='-.--';
      m['z']:='--..';
    End;

 Begin
   morse_sifra;
   writeln('Zadaj spravu');
   readln(text);

   for i:=1 to length(text) do
     if copy(text,i,1)<>' ' then begin
                                   x:=copy(text,i,1);
                                   write(m[x]),'/');
                                 end
                            else write('/');
   readln;
 End.

 

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032020 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý