Senin, 15 April 2013

program pascal if than

program latihan;
uses wincrt;
var
na,nt,nu,ns,npm :integer;
ket,nm:string;
gr:char;
nilai:real;


begin
writeln('===>NILAI SEMESTER GENAP<====');
writeln('=============================');
write (' Nama        :');readln(nm);
write (' NPM         :');readln(npm);
write (' nilai Absen :');readln(na);
write (' nilai Tugas :');readln (nt);
write (' nilai UTS   :'); readln (nu);
write (' nilai UAS   :'); readln (ns);
writeln('=============================');
nilai:=na*0.1+nt*0.15+nu*0.35+ns*0.40;

if (nilai>=80) and (nilai<=99.99) then
begin
gr:='A';
ket:='Sangat Baik';
end
else if (nilai>=70) and (nilai<=79.99) then
begin
gr:='B';
ket:='Baik';
end
else if (nilai>=60) and (nilai<=69.99) then
begin
gr:='C';
ket:='Cukup';
end
else if (nilai>=50) and (nilai<=59.99) then
begin
gr:='D';
ket:='Tidak Lulus';
end
else if (nilai>=40) and (nilai<=49.99) then
begin
gr:='E';
ket:='Tidak Lulus';
end
else if (nilai>=0) and (nilai<=39.99) then
begin
gr:='F';
ket:='Tidak Lulus';
end;


writeln('Nilai Semester  :',nilai:0:2);
writeln('Gread           :',gr);
writeln('Keterangan      :',ket);
writeln('=============================');

end.

Senin, 08 April 2013

Modular (penjumlahan)

program latihan_modular;
uses wincrt;
var
a,b,c:integer;
z:real;
procedure tambah;
var
c:byte;
begin
c:= a+b;
Writeln('Hasil a+b : ',c);
end;
procedure garis;
begin
writeln('=============================');
end;
procedure kurang;
begin
c:=a-b;
writeln('Hasil a-b : ',c);
end;
procedure perkalian;
begin
c:=a*b;
writeln('hasil a*b :',c);
end;
procedure pembagian;

begin
z:=a/b;
writeln('hasil a/b :',z:0:2);
end;
begin
writeln('Program Matematika Sederhana');
garis;
write('Nilai 1 : ');readln(a);
write('Nilai 2 : ');readln(b);
garis;
tambah;
garis;
kurang;
garis;
perkalian;
garis;
pembagian;
garis;
readln;
end.

contoh program Modular(2 procedure) Pascal

program latihan_modular;
uses wincrt;
var
a,b,c:integer;
procedure tambah;
var
c:byte;
begin
c:= a+b;
Writeln('Hasil a+b : ',c);
end;
procedure garis;
begin
writeln('=============================');
end;
procedure kurang;
begin
c:=a-b;
writeln('Hasil a-b : ',c);
end;
begin
writeln('Program Matematika Sederhana');
garis;
write('Nilai 1 : ');readln(a);
write('Nilai 2 : ');readln(b);
garis;
tambah;
garis;
kurang;
garis;
readln;
end.

Senin, 01 April 2013

kompatet latihan pertemuan 4

program biaya_berobat;
uses wincrt;
var

kod,nampas,namdok,klh,nambat:string[20];
jk:char;
linap,binap,bdok,tot,bbat:longint;






procedure nama_dokter;
begin
writeln('RUMAH SAKIT DILEMA');
writeln('==========================================');


write('Kode Pasien                     :');readln(kod);
write ('Nama Pasien                     :');readln(nampas);
write ('Jenis Kelamin Pasien, L/P       :');readln (jk);
write ('Keluhan Pasien,umum,anak,gigi   :'); readln(klh);

{write('Nama Obat,pramek,bodreksin,pandl:');readln(nambat);}
write ('Lama Menginap                   :');readln(linap);

if klh= 'umum' then
begin
namdok:= 'dr.budi';
bdok  := 30000;
bbat  := 25000;

end;

if klh='anak' then
begin
namdok:='dr.ilham';
bdok:=40000;
bbat:=30000;
end;

if klh='gigi'then
begin
namdok:='dr.agus';
bdok:=50000;
bbat:=40000;
end;
writeln ('Nama dokter                     :',namdok);
end;

procedure biaya_dokter;
begin
writeln('biaya dokter  :Rp.',bdok);
binap:= bdok*linap;
writeln('biaya menginap:Rp.',binap);
writeln('biaya obat    :Rp.',bbat);
tot:=binap+bdok+bbat;
writeln('==========================================');
writeln('total biaya   :Rp.',tot);
end;

begin
nama_dokter;
writeln('==========================================');
biaya_dokter;
writeln('==========================================');
end.

pertemuan 4, latihan biaya berobat

program biaya_berobat;
uses wincrt;
var

kod,nampas,namdok,klh:string[20];
jk:char;
linap,binap,bdok,tot:longint;
procedure nama_dokter;
begin
write('kode Pasien:');readln(kod);
write ('Nama Pasien:');readln(nampas);
write ('Jenis kelamin Pasien, L/P:');readln (jk);
write ('Keluhan pasien,umum,anak,gigi:'); readln(klh);
write ('Lama Menginap :');readln(linap);


if klh= 'umum' then
begin
namdok:= 'dr.budi';
bdok  := 30000;
end;

if klh='anak' then
begin
namdok:='dr.ilham';
bdok:=40000;
end;

if klh='gigi'then
begin
namdok:='dr.agus';
bdok:=50000;
end;
writeln ('Nama dokter:',namdok);
end;

procedure biaya_dokter;
begin
writeln('biaya dokter:',bdok);
binap:= bdok*linap;
writeln('biaya menginap:',binap);
tot:=binap+bdok;
writeln('total biaya:',tot);
end;

begin
nama_dokter;
biaya_dokter;
end.