Tugas Pak Mesran

Tugas Lagi, Tugas Lagi.....

Seperti biasa, derita anak TI, M 1222, nilai hancur tugas pun meluncur....Ok, para visitor yang pengen belajar bahasa planet pemrograman(pascal) boleh lah lihat2 script dibawah ini, silahkan buka aplikasi pascal anda

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, silahkan periksa kembali letak kesalahan anda(Harus Teliti ya Genk).

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








lalu ketikkan nominal jumlah belinya, misal 5



Inilah tampilan akhir dari program kita, terima kasih semoga bermanfaat di dunia dan di akhirat.

thank you !!!!!<3<3