document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. program konversi_angka_ke_huruf;
  2.  
  3. uses crt;
  4.  
  5. var x, bantu, bantu1, bantu2, bantu3, bantu4:integer;
  6.  
  7. procedure angka (x: integer);
  8.    begin
  9.       case x of
  10.          0:write(\'nol\');
  11.          1:write(\'satu\');
  12.          2:write(\'dua\');
  13.          3:write(\'tiga\');
  14.          4:write(\'empat\');
  15.          5:write(\'lima\');
  16.          6:write(\'enam\');
  17.          7:write(\'tujuh\');
  18.          8:write(\'delapan\');
  19.          9:write(\'sembilan\');
  20.         10:write(\'sepuluh\');
  21.         11:write(\'sebelas\');
  22.        100:write(\'seratus\');
  23.          else writeln(\'angka salah\');
  24.       end;
  25.    end;
  26.  
  27. begin
  28.    clrscr;
  29.    writeln(\'Angka untuk dibaca\');readln(x);
  30.  
  31.    if x <= 11 then
  32.    begin
  33.       angka(x);
  34.    end;
  35.  
  36.    if (x>11) and (x<20) then
  37.    begin
  38.       bantu := x mod 10;
  39.       angka(bantu);
  40.       write(\' belas\');
  41.    end
  42.  
  43.    else
  44.    if (x>=20) and (x<100) then
  45.    begin
  46.       if x mod 10 = 0 then
  47.       begin
  48.         bantu := x div 10;
  49.         angka(bantu);write(\' puluh\')
  50.       end
  51.       else
  52.       begin
  53.         bantu := x div 10;
  54.         bantu1 := x mod 10;
  55.         angka(bantu);write(\' puluh \');angka(bantu1);
  56.       end;
  57.    end
  58.  
  59.    else
  60.    if (x>=100) and (x<112) then
  61.    begin
  62.       if x mod 100 = 0 then
  63.          angka(x)
  64.       else
  65.       begin
  66.          bantu := x mod 100;
  67.          write(\'seratus \');angka(bantu)
  68.       end;
  69.    end
  70.  
  71.    else
  72.    if (x>=112) and (x<120) then
  73.    begin
  74.       bantu := x mod 100;
  75.       bantu1 := x mod 10;
  76.       write(\'seratus \');angka(bantu1);write(\' belas\');
  77.    end
  78.  
  79.    else
  80.    if (x>=120) and (x<200) then
  81.    begin
  82.       bantu := x mod 100;
  83.       bantu1 := bantu div 10;
  84.       bantu2 := bantu mod 10;
  85.       if x mod 10 = 0 then
  86.       begin
  87.          write(\'seratus \');angka(bantu1);write(\' puluh \');
  88.       end
  89.       else
  90.       begin
  91.          write(\'seratus \');angka(bantu1);write(\' puluh \');angka(bantu2);
  92.       end;
  93.    end
  94.  
  95.    else
  96.    if (x>=200) and (x<1000) then
  97.    begin
  98.       if x mod 100 = 0 then
  99.       begin
  100.          bantu := x div 100;
  101.          angka (bantu);write(\'ratus\');
  102.       end
  103.  
  104.       else
  105.       if x mod 10 = 0 then
  106.       begin
  107.          bantu := x div 100;
  108.          bantu1 := x mod 100;
  109.          bantu2 := bantu1 div 10;
  110.          if bantu1 = 10 then
  111.          begin
  112.             angka(bantu);write(\' ratus \');angka(bantu1);
  113.          end
  114.          else
  115.          begin
  116.             angka(bantu);write(\' ratus \');angka(bantu2);write(\' puluh\')
  117.          end
  118.       end
  119.  
  120.       else
  121.       begin
  122.          bantu := x div 100;       //ratusan
  123.          bantu1 := x mod 100;
  124.          bantu2 := bantu1 div 10; //puluhan
  125.          bantu3 := bantu1 mod 10; //satuan
  126.          if bantu1 < 12 then
  127.          begin
  128.             angka(bantu);write(\' ratus \');angka(bantu1);
  129.          end
  130.          else
  131.          if (bantu1 >= 12) and (bantu1 < 20) then
  132.          begin
  133.             angka(bantu);write(\' ratus \');angka(bantu3);write(\' belas\');
  134.          end
  135.          else
  136.          begin
  137.             angka(bantu);write(\' ratus \');angka(bantu2);write(\' puluh \');angka(bantu3);
  138.          end;
  139.       end;
  140.    end;
  141.  
  142.  
  143.    readln;
  144. end.
');