Program Pascal Data Barang

Hai Sahabat Blogger... Bagi yang kuliah Jurusan Sistem Informasi/Manajemen Informasi/Teknik Informatika, pasti tidak asing lagi dengan yang namanya pascal kan ???
Disini saya ingin berbagi contoh-contoh Program Pascal, silahkan bagi yang perlu bisa langsung dicopast script nya :)

Program Data Barang 1

program data_barang;
uses wincrt;
var
   kode         : char;
   nama         : string[15];
   jenis        : string[12];
   banyak       : integer;
   harga,total  : real;
begin
     Writeln(' =========================================');
     writeln(' ___________Program Data Barang___________');
     writeln;
       write(' 1. Inputkan Kode Barang   : '); readln(kode);
       write(' 2. Inputkan Jenis Barang  : '); readln(jenis);
       write(' 3. Inputkan Banyak Barang : '); readln(banyak);
       If (Kode = 'F') or (Kode='f')  then
          begin
          nama:= 'FURLA';
          harga:= 700000
          end
       else
           IF (kode = 'E') or (kode='e') then
             begin
             nama:='ELLE';
             harga:= 1000000
             end
           else
               If (kode = 'W') or (kode='w') then
                  begin
                  nama:='WeBe';
                  harga:=800000
                  end
               else
                   begin
                   nama:='tidak bermerk';
                   harga:=500000
                   end;
     Total:= (harga*banyak);
     writeln;
     writeln('------------------------------------------');
     writeln;
     writeln(' 1. Kode Barang            : ',kode);
     writeln(' 2. Jenis Barang           : ',jenis);
     writeln(' 3. Nama Barang            : ',nama);
     writeln(' 4. Harga barang           : Rp.',harga:3:2);
     writeln(' 5. Banyak Barang          : ',banyak);
     writeln(' 6. Total Belanja          : Rp.',total:3:2);
     Writeln(' =========================================');
     Writeln('         * Program By Sakinah*');
end.
Hasilnya akan tampil seperti gambar berikut !

Berhasil tidak ?? Jika belum berhasil, atau ada yang Error.. silahkan koment saja :)
Terimakasih telah berkunjung ke Blog Saya....