Download:Kapital Band-Dirimu Satu
cpt:Rindy
Rabu, 17 April 2013
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.
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.
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.
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.
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.
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.
Langganan:
Postingan (Atom)