Rumah Belajar Phinisi [klik di sini]

Posted by : arick anjasmara Monday, May 27, 2013

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

{ 4 komentar... read them below or Comment }

Official Arickanjass

Arickanjass Followers

Komentar Terbaru

- Copyright © Arickanjass Blog! -Metrominimalist - Designed by Johanes Djogan - Edited by @arickanjass - Sitemap Arickanjass Blog!