Kali ini saya akan mempostingkan tugas dari Pak Mesran, yah... berhubung TI,M 1222 belum mendapat tugas dan nilai UTS nya pada anjlok, giliran kami aktif untuk memperbaikinya , jikalau ada artikel ini yang hampir sama, ya harap dimaklum. Tugas ini sifatnya pribadi, namun kesempatan copy paste terbuka lebar.

Sebelumnya beliau telah membuat program ini di dalam bahasa C++, dan kali ini kami diberi kesempatan untuk merubahnya kedalam bahasa Pascal. Berikut penulisannya dalam 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.

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. 

anda dipersilahkan Copas artikel ini dengan menyertakan sumber link saya pada blog anda.