Pomoc - Morseho kód – Pascal – Fórum – Programujte.com

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.

nebude to tim, ze to vraci retezec?

proc vubec pouzivas copy kdyz muzes pouzit obycejnej index pole?  x = text[i]

+ text je taky datovy typ.. tak aby se to potom nepletlo

#1 Peter
 

    for i:=1 to length(text) do
     if text[i]<>' '
	then write(m[text[i]],'/')
	else write('/');

A je to...

#3 JoDiK

.-//.---/.//-/---/