Program Menghitung Discount dengan Turbo Pascal

Salam buat teman-teman semua, hari ini saya membagikan sebuah program sederhana untuk kita semua dengan memakai Turbo pascal yaitu "Program menghitung discount". Baik langsung saja kita masuk pada toturialnya :

1. Petama kita membuka aplikasi Turbo Pascal

2. Baru kita masukan perintah berikut kedalam Turbo Pascal
   uses crt;
   var
        jp:longint;
        disc:real;
   begin
        clrscr;
        writeln('Menghitung Discount');
        writeln('================');
        writeln('Input Nilai Penjualan : ');readln(jp);
               if jp >2000000 then
              disc:=1.0*jp;
        writeln('Nilai discount :',disc:8:2);
        readln;
   end.

3. setelah memasukan perintah diatas, kemudian kita coba apakah bahasa pemograman diatas dah pas dengan menekan f9. jika benar maka akan tampil seperti gambar di bawah ini

4. Apa bila tampilannya seperti gambar diatas, maka programnya sudah pas dan tidak ada kesalahan,
5. Untuk membuktikan atau ingin mencoba menginput datanya, maka kita menekan ctrl+f9 dengan tampilan seperti gambar dibawah ini

6. Jika sudah muncul tampilan diatas maka langkah selanjutnya kita masukan jumlah penjualan. saya disini memberika jumlah penjualannya sebesar 5.000.000

7. Lalu tekan enter dan hasilnya seperti di gambar dibawah ini

Semoga bermanfaat dan agar bisa dilakukan atau dipraktekan.

jika ada kesalah mohon di maklumi dan jangan lupa untuk meninggalkan comentarnya............!