SOURCE CODE PASCAL, Pertukaran Uang Rupiah dan Dolar

Hai sobat2 yang baik hati dan tidak sombong....udah lama sy gak possting...nah sekarang saya akan postingkan ke pada anda yg ingin belajar tentang ssource code pasacal ini....
Dalam source code pascal ini bagi anda yg ingin belajar seharusnya anda mengetik ulang code ini supaya kalo ada kesalahan dalam sintaxnya anada bisa tau kesalahanya dimana...???... jangan tau copy/ paste aja tpi anda harus membiasakan dirisenri megetik.....Bagi yg udah master/ jago buat program source code pascal ??? pasti dehh..!!! ahh gak usah basa basih deh...kita langsung bahas aja...!!! hehehheh

Program Pertukaran_Uang_Rupiah_dan_Dolar;
uses wincrt;

var
    exit,a: Char;
    j,ntr,ntd,h,s : longint;
    satuan1,satuan2 : string;

begin 

repeat 

begin
     clrScr; 
     writeln;           
     writeln('                     TUGAS PEMROGRAMAN DASAR');
     writeln('  +======================================================================+');
     Writeln('  |           DAFTAR NAMA KELOMPOK          |                            |');
     writeln('  |=========================================|           KAMPUS           |');
     writeln('  | NO |   NAMA MAHASISWA       |    NIM    |                            |');
     writeln('  |======================================================================|');
     writeln('  |  1 | Lucio A. da Costa      | 121051003 | INSTITUT SAINS & TEKNOLOGI |');
     writeln('  |=========================================|                            |');
     writeln('  |  2 | Agustinus P.T          |           |          AKPRIND           |');
     writeln('  |=========================================|                            |');
     writeln('  |  3 | Muhammad Arif Setyawan |           |         YOGYAKARTA         |');
     writeln('  +======================================================================+');
   
     writeln('');

writeln ('==============>"Selamat Mencoba & Semoga Sukses"<==============');
    
    
     begin
    
          writeln('');
          write ('Mbaa mau Tukar rupiah atau dolar ? (r/d) '); readln (a);
          writeln;
     if (a='r') or (a='R') then
     begin
     write ('masukkan Jumlah Rupiah : '); readln (j);
     write ('Masukkan Nilai tukar rupiah terhadap dolar : '); readln (ntr);
     h := j div ntr ;
     s := j mod ntr ;
     satuan1 :='U$ ';
     satuan2 :='Rp ';
     end
     else
   
  begin
    write ('masukkan Jumlah dolar : '); readln (j);
    write ('Masukkan Nilai tukar dolar terhadap rupiah : '); readln (ntd);
    h := j*ntd;
    satuan1 :='Rp';
  end;
  writeln;
  writeln ('Hasil : ',h,' ',satuan1);
  if (a = 'r') then
  writeln ('Sisa  : ',s,' ',satuan2);
  end;
  end;    

write('Sayang mau coba lagi..! <T/Y>...?');readln(exit);
until (exit='t');
writeln;
writeln;
write ('==============>TERIMA KASIH , ANDA SUDAH MENCOBA PROGRAM KAMI<==============');
writeln;
writeln;
write ('============================>SEMOGAH BERMANFAAT<============================');
writeln;
writeln;
write('                               BY PROGRAM : LUCIO A. DA COSTA. ');
end.

Hasil Runing tampilannya akan muncul seperti gambar di bahwa ini:


==========================================================================
Selamt mencoba dan semogah sukses...... 

Bagi yg udah kunjungi blok ini....Terima kasih bnyak.....
Semogah bermanfaat tips dan trik-nya... 
sebelum anda keluar dari blok ini...tolong tinggal kan kommentar anda....di bahwa ini....Thank's and good luck... 

By ____:Pasupali.....???

ARTIKEL TERKAIT PERLU DIBACA...!/LE'E MOS ARTIKEL NE'E: