Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. Program Ascii_Arickanjass;
  2. uses crt;
  3.  
  4. {@arickanjass 2012
  5. http://www.arickanjass.blogspot.com/}
  6.  
  7. var
  8.    sisa, desimal, b, kode_ascii, biner, menu, temp : longint;
  9.    huruf,keluar : char;
  10.    biner_string : string;
  11.  
  12. procedure ascii;
  13.           begin
  14.                temp := kode_ascii;
  15.            biner_string := '';
  16.                repeat
  17.                begin
  18.                     if kode_ascii mod 2 = 0 then
  19.                         biner_string := '0' + biner_string
  20.                     else
  21.                         biner_string := '1' + biner_string;
  22.             kode_ascii := kode_ascii div 2;
  23.                end;
  24.                until kode_ascii = 0;
  25.                kode_ascii := temp;
  26.           end;
  27.  
  28. procedure karakter;
  29.           begin
  30.                huruf := chr(kode_ascii);
  31.           end;
  32.  
  33. procedure nomor;
  34.           begin
  35.                kode_ascii := ord(huruf);
  36.           end;
  37.  
  38. procedure binary;
  39.           begin
  40.            b:= 1;
  41.            repeat
  42.              sisa       := biner mod 10;
  43.              biner      := biner div 10;
  44.              kode_ascii := kode_ascii + sisa * b;
  45.              b := b * 2;
  46.            until biner = 0;
  47.           end;
  48.  
  49. begin
  50. {copyright @arickanjass 2012.
  51. allright reserved. dont edit & copy without trademark!}
  52.          repeat
  53.          clrscr;
  54.          writeln ('MENU UTAMA');
  55.          writeln ('');
  56.          writeln ('[1] kode ascii ke karakter dan biner');
  57.          writeln ('[2] karakter ke kode ascii dan biner');
  58.          writeln ('[3] biner ke kode ascii dan karakter');
  59.          writeln ('[4] keluar');
  60.          writeln ('');
  61.          write   ('masukkan pilihan anda : ');
  62.          readln  (menu);
  63.          writeln ('');
  64.  
  65.          if menu = 1 then
  66.          begin
  67.             write   ('masukkan kode ascii : ');
  68.             readln  (kode_ascii);
  69.             ascii;
  70.             karakter;
  71.             writeln ('karakter ascii = ',huruf);
  72.             writeln ('biner ascii    = ',biner_string);
  73.          end
  74.          else
  75.          if menu = 2 then
  76.          begin
  77.             write   ('masukkan karakter : ');
  78.             readln  (huruf);
  79.             nomor;
  80.             ascii;
  81.             writeln ('kode ascii  = ',kode_ascii);
  82.             writeln ('biner ascii = ',biner_string);
  83.          end
  84.          else
  85.          if menu = 3 then
  86.          begin
  87.             write   ('masukkan biner : ');
  88.             readln  (biner);
  89.             binary;
  90.             karakter;
  91.             writeln ('kode ascii     = ',kode_ascii);
  92.             writeln ('karakter ascii = ',huruf);
  93.          end
  94.          else
  95.          if menu = 4 then
  96.          begin
  97.               keluar := 'T';
  98.               break;
  99.          end
  100.          else
  101.             writeln ('anda salah input');
  102.  
  103.      writeln ('');
  104.      write ('ingin coba lagi [Y/T] : ');
  105.      readln (keluar);
  106.      until upcase(keluar) = 'T';
  107. end.