PASCAL: Program Ubah Kata menjadi Kode Morse

iseng iseng bikin program pramuka.
morse
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 ke sandi morse
ubah kata menjadi kode morse
selamat mencoba dan happy coding

Comments

Post a Comment

Popular posts from this blog

cheat plants vs zombies menggunakan cheat engine

STRAWBERRY PROLOG: Membuat Garis (Line)

DOWNLOAD: Emulator PlayStation 1 (PS1) for Windows