PASCAL: Program Ubah Kata menjadi Kode Morse

iseng iseng bikin program pramuka.

kode morse (source: google.com)

Kode morse, buat yang pernah ikut pramuka pasti tau dong. atau sekadar kenal aja? nah ini keterangannya. Menurut pak wikipedia, pengertian Kode Morse atau 'Sandi Morse' adalah sistem representasi huruf, angka, tanda baca dan sinyal dengan menggunakan kode titik dan garis yang disusun mewakili karakter tertentu pada alfabet atau sinyal (pertanda) tertentu yang disepakati penggunaannya di seluruh dunia.

berhubung ini blog tentang bidang komputer. jadi, gua ga perlu ngajarin kalian tentang menggunakan kode morse ini. cukup dengan coding di bawah. copy kemudian paste di turbo pascal 7, kemudian compile and run program. maka kalian akan mudah mengubah kata menjadi kode morse. open source bro!

program morsePramuka;
uses crt;

var
   kata,temp,karakter,hasil : string;
   pil : char;
   i : integer;
   label BATAS;
begin

BATAS:
     clrscr;
   writeln ('PROGRAM SANDI MORSE');
   writeln ('');
   writeln ('masukkan kata yang ingin diubah ke sandi morse (huruf kapital ya)');
   readln  (kata);

   for i := 1 to length(kata) do
   begin

     karakter := copy(kata,i,1);

     if karakter = 'A' then
     temp := '.-'
     else
     if karakter = 'B' then
     temp := '-...'
     else
     if karakter = 'C' then
     temp := '-.-.'
     else
     if karakter = 'D' then
     temp := '-..'
     else
     if karakter = 'E' then
     temp := '.'
     else
     if karakter = 'F' then
     temp := '..-.'
     else
     if karakter = 'G' then
     temp := '--.'
     else
     if karakter = 'H' then
     temp := '....'
     else
     if karakter = 'I' then
     temp := '..'
     else
     if karakter = 'J' then
     temp := '.---'
     else
     if karakter = 'K' then
     temp := '-.-'
     else
     if karakter = 'L' then
     temp := '.-..'
     else
     if karakter = 'M' then
     temp := '--'
     else
     if karakter = 'N' then
     temp := '-.'
     else
     if karakter = 'O' then
     temp := '---'
     else
     if karakter = 'P' then
     temp := '.--.'
     else
     if karakter = 'Q' then
     temp := '--.-'
     else
     if karakter = 'R' then
     temp := '.--.'
     else
     if karakter = 'S' then
     temp := '...'
     else
     if karakter = 'T' then
     temp := '-'
     else
     if karakter = 'U' then
     temp := '..-'
     else
     if karakter = 'V' then
     temp := '...-'
     else
     if karakter = 'W' then
     temp := '.--'
     else
     if karakter = 'Y' then
     temp := '-.--'
     else
     if karakter = 'Z' then
     temp := '--..'
     else
     if karakter = '0' then
     temp := '-----'
     else
     if karakter = '1' then
     temp := '.----'
     else
     if karakter = '2' then
     temp := '..---'
     else
     if karakter = '3' then
     temp := '...--'
     else
     if karakter = '4' then
     temp := '....-'
     else
     if karakter = '5' then
     temp := '.....'
     else
     if karakter = '6' then
     temp := '-....'
     else
     if karakter = '7' then
     temp := '--...'
     else
     if karakter = '8' then
     temp := '---..'
     else
     if karakter = '9' then
     temp := '----.'
     else
     if karakter = ' ' then
     temp := ''
     else
     temp := '????';

     hasil := hasil + temp + '/'
   end;

   hasil := hasil + '/';

   writeln ('');
   writeln (kata + ' = ' + hasil);
   writeln ('');
   write   ('ingin ulang lagi ? [Y/N] : ');
   readln  (pil);
   
   if upcase (pil) = 'N' then
   GOTO BATAS;
   
end.

ingat… input harus menggunakan huruf kapital atau huruf besar kalo kata anak SD. input berupa huruf dan angka ya (A-Z, 0-9, dan spasi).

contoh pemakaian program

ubah kata menjadi kode morse

selamat mencoba dan happy coding