Tugas Konsep Pemrograman

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.

pada akhirnya total harga dari produk yang anda ingin beli akan tampil,

dan itulah hasil akhir dari program ini, mudah bukan??. Semoga Artikel ini bermanfaat dan dapat membantu teman-teman semua. 

disadur dari 

Berbagi Ilmu itu Bijaksana

Related Post: