Menginput harga penjualan menggunakan menu ke bahasa pemograman pascal

Hmm malam . . . hoaaaamm

Dari pada gak ada kerjaan malam ini, mending coret-coret dinding blog sendiri dengan artikel yang bermanfaat. Mau coret tentang apa yaaa. . . Hmmm *$#???

Oh ia ada tugas kuliah tentang pemograman merubah program C++ menginput harga penjualan menggunakan menu ke bahasa pemograman pascal, hmm agak pening juga ne kepala di buat nya seperti kata orang batak accit uluk ku di baen na hehehehehe

Oke langsung aja ke topik utama nya, postingan ini bukan hanya untuk Tugas pemograman tapi juga berbagi ilmu. 

Tugas Pemogram Merubah program C++ menginput harga penjualan menggunakan menu ke bahasa pemograman pascal.
Object : 
1. Televisi = Harga nya Rp.175000
2. DVD Player = Harga nya Rp.650000
3. CD ROOM = Harga nya 450000

Screen Shot : 

Script nya : 
uses crt;
Var
kode:byte;
harga,jumlah:longint;
th:longint;
nama:string;
begin
     clrscr;
     Writeln('TOKO ZAFAR SITINJAK BLOG');
     Writeln('=++=++==+=++=++==++==++=');
     Writeln('INPUTKAN KODE PENJUALAN');
     Writeln('========================');
     Write('KODE :');readln(kode);
     case kode of
          1 : begin
                 clrscr;
                 NAMA:=' "TELEVISI"';
                 Writeln('NAMA  :',nama);
                 Writeln('____________________');
                 HARGA:= 1750000;
                 Writeln('HARGA : ',harga);
                 Writeln('____________________');
                 write('JUMLAH BELI :');readln(jumlah);
                 th:=harga*jumlah;
                 writeln('____________________');
                 writeln('TOTAL HARGA :',th);
          end;
           2 : begin
                 clrscr;
                 NAMA:=' "DVD PALYER"';
                 Writeln('NAMA  :',nama);
                 Writeln('____________________');
                 HARGA:= 650000;
                 Writeln('HARGA : ',harga);
                 Writeln('____________________');
                 write('JUMLAH BELI :');readln(jumlah);
                 th:=harga*jumlah;
                 writeln('____________________');
                 writeln('TOTAL HARGA :',th);
          end;
           3 : begin
                 clrscr;
                 NAMA:=' "CD ROOM"';
                 Writeln('NAMA  :',nama);
                 Writeln('____________________');
                 HARGA:= 450000;
                 Writeln('HARGA : ',harga);
                 Writeln('____________________');
                 write('JUMLAH BELI :');readln(jumlah);
                 th:=harga*jumlah;
                 writeln('____________________');
                 writeln('TOTAL HARGA :',th);
           end;
     end;
readln;

end.

Hasil nya seperti berikut ini :
Screen Shot Hasil, kode 1:

Screen Shot Hasil, Kode 2:

Screen Shot Hasil, Kode 3:

 Oke sekian dulu yang bisa saya coret di dinding blog saya, moga-moga bermanfaat buat ente-ente semua ^_^ Selamat malam ....

Download disini Save nya Klik