Sertifikat Akreditasi Program Studi S1 Teknik Informatika B STMIK BUDIDARMA (2018-2013)

Program Studi S1 Teknik informatika tahun 2018, Silahkan download disini!

Baca Selengkapnya »

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 »