Pecahan Di Bahasa Pascal

Belajar Bahasa pascal

          Untuk kali ini saya akan posting tentang bahsa Pascal yaitu pembuatan program mencari suatu pecahan.

silahkan anda buka Turbo pascal atau free pascal anda untuk membuat program ini. setelah terbuka tulislah kode-kode seperti di bawah ini:

program pecahan;

uses crt;

var

   uang,jumlah:longint;

begin

     clrscr;

     write('uang=Rp');readln(uang);

     writeln('Pecahan dalam Mata Uang Rupiah yang Berlaku Saat Ini');

     if uang>=10000 then

     begin

          jumlah:=uang div 10000;

          writeln(jumlah,' lembar sepuluh ribuan');

          uang:=uang mod 10000;

     end;

     begin

          jumlah:=uang div 5000;

          writeln(jumlah,' lembar lima ribuan');

          uang:=uang mod 5000;

     end;

     begin

          jumlah:=uang div 2000;

          writeln(jumlah,' lembar dua ribuan');

          uang:=uang mod 2000;

     end;

     begin

          jumlah:=uang div 1000;

          writeln(jumlah,' lembar seribuan');

          uang:=uang mod 1000;

     end;

     begin

          jumlah:=uang div 500;

          writeln(jumlah,' lembar lima ratusan');

          uang:=uang mod 500;

     end;

     begin

          jumlah:=uang div 200;

          writeln(jumlah,' lembar dua ratusan');

          uang:=uang mod 200;

     end;

     begin

          jumlah:=uang div 100;

          writeln(jumlah,'  keping seratusan');

          uang:=uang mod 100;

     end;

     begin

          jumlah:=uang div 50;

          writeln(jumlah,' keping lima puluh rupiah ');

          uang:=uang mod 50;

     end;

     begin

          jumlah:=uang div 25;

          writeln(jumlah,' keping dua puluh lima rupiah');

          uang:=uang mod 25;

     end;

     writeln;

     readln;

end.

demikian program pecahan. semoga dapat membantu anda yang sedang belajar bahasa pascal
hehehehe....
jangan lupa like. and comentnya...