MORSEOVA ABECEDA
program kujon;
uses crt;
var a,b:char;
c,d:integer;
begin clrscr;
textcolor(12);
writeln('pro prevod abeceda - morseova abeceda stiskni 1');
writeln('pro prevod morseova abeceda - abeceda stiskni 2');
readln(c);
if c=1 then begin
repeat
textcolor(14);
a:=readkey;
if a='q' then write('- - . -');
if a='w' then write('. - -');
if a='e' then write('.');
if a='r' then write('. - .');
if a='t' then write('-');
if a='z' then write('- - . .');
if a='u' then write('. . -');
if a='i' then write('. .');
if a='o' then write('- - -');
if a='p' then write('. - - .');
if a='a' then write('. -');
if a='s' then write('. . .');
if a='d' then write('- . .');
if a='f' then write('. . - .');
if a='g' then write('- - .');
if a='h' then write('. . . .');
if a='j' then write('. - - -');
if a='k' then write('- . -');
if a='l' then write('. - . .');
if a='y' then write('- . - -');
if a='x' then write('- . . -');
if a='c' then write('- . - .');
if a='v' then write('. . . -');
if a='b' then write('- . . .');
if a='n' then write('- .');
if a='m' then write('- -');
if a=#32 then write('/');
until a=#13;
end;
(* if c=2 then begin
repeat
textcolor(14);
a:=readkey;
if (a='-') and (a='-') and (a='.') and (a='-') and (a=#32) then write('q');
if a='' then write('');
if a='' then write('');
if a='' then write('');
if a='' then write('');
if a='' then write('');
if a='' then write('');
if a='' then write('');
if a='' then write('');
if a='' then write('');
if a='' then write('');
if a='' then write('');
if a='' then write('');
if a='' then write('');
if a='' then write('');
if a='' then write('');
if a='' then write('');
if a='' then write('');
if a='' then write('');
if a='' then write('');
if a='' then write('');
if a='' then write('');
if a='' then write('');
if a='' then write('');
until a=#13;
end; *)
end.
Komentáře
Přehled komentářů
Zdar kujóne, pěkný stránky, to se musí nechat.... co na to Ilčík??? :-D
programy
(kujon.tvurce estranky, 24. 2. 2009 17:55)
Musi fungovat, zkopiroval jsem je z mych vypracovanzych programu.tak to zkus jeste..mozna tam je nejaka krpa ve strednikach.hodne stesti ;)
druhá část?
(student;, 13. 1. 2009 16:34)jistěže je nefunkční..čim to asi bude?:):DD to si máš dodělat sám na principu toho q, tak mákni:)
ahoj
(anonym, 12. 6. 2008 11:16)moh bych tě poprosit jestli by si neudělal ještě to samý a s procedurou nebo fcí a s menu???
druhá část je nefunkční
(Anonym, 12. 6. 2008 11:12)čau hele druhá část toho programu nefunguje...
Hello
(Ghost, 2. 3. 2009 13:11)