Sabtu, 08 Juni 2013

Merubah program C++ menginput harga penjualan menggunakan menu ke bahasa pemograman pascal.

Tugas Pemograman 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


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);
                 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.

Screen Shot Hasil :



 




Kode 1 :








Kode 2 :

kode 3 :