Informasi Penjualan Produk Menggunakan Bahasa Pascal

uses CRT;

Var

kode          : byte;

harga,jumlah  : longint;

th            : longint;

nama          : string;

begin

 clrscr;

 Writeln('Inputkan Kode Penjualan');

 writeln('---------------------------');

 write('kode:');readln(kode);

 case kode of

    1 : Begin

          clrscr;

          nama:='Televisi';

          Writeln('Nama:',nama);

          harga:=1750000;

          writeln('Harga:',harga);

          write('Jumlah Beli:');readln(jumlah);

          th :=harga*jumlah;

          writeln('---------------');

          writeln('Total Harga:',th);

        end;

   2 : Begin

          clrscr;

          nama:='DVD';

          writeln('Nama:',nama);

          harga:=650000;

          writeln('Harga:',harga);

          write('Jumlah Beli:');readln(jumlah);

          th:= jumlah*harga;

          writeln('---------------');

          writeln('Total Harga:',th);

       end;

   3 : Begin

         clrscr;

         nama:='CD ROOM';

         writeln('Nama:',nama);

         harga:=450000;

         writeln('Harga:',harga);

         write('Jumlah Beli:');readln(jumlah);

         th := jumlah*harga;

         writeln('---------------');

         writeln('Total Harga:',th);

       end;

    end;

 readln;

 end.

Jika anda sudah sesuai mengetikkan script diatas pada Aplikasi Turbo Pascal anda, kemudian tekan CTRL+F9, maka akan muncul tampilan gambar dibawah ini,

Namun jika belum tampil ataupun gagal, silahkan periksa kembali letak kesalahan anda.

Untuk memulai langkah selanjutnya, anda diberikan 3 pilihan untuk menginput kode produknya yaitu 1,2, dan 3. contoh ketikkan angka 1, maka akan tampil gambar seperti dibawah ini.

lalu ketikkan nominal jumlah belinya, misalnya 5.