Soal UTS ( Penggunaan IF JAMAK)

 1.      Buatlah program untuk kasus di bawah ini

·      Jika kode barang = A01 maka nama barang =”Buku” dan harga =3000

·      Jika kode barang = A02 maka nama barang =”Pulpen” dan harga =3000

·      Jika kode barang = A03 maka nama barang =”Spidol” dan harga =5000

·      Jika kode barang = A04 maka nama barang =”Pensil” dan harga =1500

Input manual untuk jumlah barang,

Total di dapat dari jumlah barang x harga barang.

Tampilan Program :

Nama        : Denni M Rajagukguk

NIM         : 0110049201

Masukkan Kode barang A01,A02,A03,A04       : 

Nama Barang                                                       :

Harga                                                                   :

Jumlah Barang                                                     :

Total                                                                     : 

2.      Buatlah program untuk kasus di bawah ini

·      Jika golongan = 3A maka jabatan fungsional =”Asisten Ahli” dan gaji=2000000

·      Jika golongan = 3B maka jabatan fungsional =”Lektor” dan gaji=2500000

·      Jika golongan = 3C maka jabatan fungsional =”Lektor Kepala” dan gaji=3000000

Input manual untuk berapa bulan gajinya belum dibayar (tunggakan)

Total gaji di dapat dari tunggakan x gaji

Tampilan Program :

Nama                    : Denni M Rajagukguk

NIM                     : 0110049201

Program Studi      : D3 Komputerisasi Akuntansi /Manajemen Informatika

Masukkan Golongan 3A,3B,3C  : 

Nama Jabatan Fungsional            :

Gaji                                              :

Tunggakan (Bulan)                      :

Total  Gaji                                    : 

Untuk Listing Program silahkan download disini!

Baca Selengkapnya »

Membuat Biodata dengan Turbo Pascal

List Program:

program biodata;

uses crt;

var

      nama : string[25];

      kls : string[10];

      ttl, prodi, nm_prodi : string[30];

      npm : intEGER;

begin

clrscr;

WRITELN ('BIODATA PRIBADI');

write('NAMA : ');readln (nama);

write('NPM  : ');readln (npm);

write('TTL  : ');readln (ttl);

...............................

end.

Untuk Modul lengkapnya silahkan Downliad disini!

Baca Selengkapnya »

Program Pascal Menentukan Bilangan Genap dan Bilangan Ganjil

program bilangan_genap_ganjil;
 uses crt;
var
   hasil:byte;
   bil: integer;
begin
     clrscr;
     writeln('Menentukan Bilangan Genap dan Ganjil');
     writeln('created By : Denni M Rajagukguk');
     writeln('====================================');
     write('input bilangan: ');readln(bil);
     if bil <= 0 then
        begin
        writeln ('bilA sama dengan bilB');
        end
     else

Untuk Modul lengkapnya silahkan download disini

Baca Selengkapnya »

Program Pascal Menghitung Luas Segitiga dan Penjumlahan 2 Bilangan

 Mencari Luas Segitiga

List Programnya :

Program luas_segitiga;

Uses crt;

Var a, t : integer;

   L : real;

Begin

write(‘Masukkan nilai alas :’); readln(a);

write(‘Masukkan nilai tinggi :’); readln(t);

L :=0.5*A*T;

Write(‘Luas segitiga =’ );

Writeln(L);

Readln;

End.

Untuk modulnya, Silahkan download disini

Baca Selengkapnya »

Software Pemograman Menggunakan Turbo Pascal

Di bawah ini adalah link untuk download softcopy Turbo Pascal

Silahkan download disini!

Setelah di download, langkah selanjutnya adalah extract folder tersebut.
Untuk menjalankannya pilih File TPX yang typenya Application seperti gambar dibawah ini

 Setelah kita Klik file tersebut maka akan muncul tampilan berikut 

 Setelah itu Tekan OK, dan Turbo Pascal siap digunakan.

Baca Selengkapnya »

Pert 2: Praktek Identifier, Type Data dan Operator

Listing Program

}program pertamaku;

}uses crt;

}var

}begin

}clrscr;

}write ('Hallo, Selamat datang !!! ');

}write ('Mari kita Belajar ');

}write ('TERIMAKASIH');

}end.

setelah siap diketikan listing programnya, langkah selanjutnya adalah menjalankan/eksekusi program dengan cara Ctrl+ F9 atau dari Menu Run Pilih Run.

Silahkan download disini!

Baca Selengkapnya »

Pert 1 : Praktek Pengenalan Bahasa Pemrograman Turbo Pascal

Pertama kali di buat oleh Profesor Niklaus Wirth, seorang anggota International Federation of Information Processing (IFIP) pada tahun 1971 dari Technical University di Zurich, Switzerland.

orientasinya pada segala tujuan.

termasuk kategori “High Level Language”.

Instruksi-instruksi yang digunakan sangat sistematis dan terstruktur.

Hasil pengembangannya :

  N UCSD Pascal.  ` Microsoft Pascal.N

  N Apple Pascal. N Turbo Pascal.

Silahkan download disini!

Contoh

Listing Program

program pertamaku;

uses crt;

var

begin

clrscr;

write ('Hallo, Selamat datang !!! ');

write ('Mari kita Belajar ');

write ('TERIMAKASIH');

end.

Maka hasilnya adalah :

Baca Selengkapnya »