program paripurna;

program paripurna;
uses wincrt;

var ls,ll,alas,tinggi,jari:real;
pilihan: integer;
lagi: char;
nokom,nama,alamat,a:string;
masuk,keluar,lama_rental,biaya_rental,harga,HARGAI,HARGAII,HARGAIII,HARGAIV,banyak_minum,harga_minum,
biaya_minum,print,biaya_print,total_rental,bayar,kembali:real;
Nim,Name,Jurusan,grade:string;
kehadiran,Nilai_kehadiran,tugas,Nilai_tugas,UTS,Nilai_UTS,UAS,Nilai_UAS,total_nilai:real;
minumI,MINUMII,MINUMIII,MINUMIV:integer;
begin
lagi:=’y';
while lagi=’y’ do
begin
clrscr;
writeln(‘1.luas segitiga’);
writeln(‘2.luas lingkaran’);
writeln(‘3.rental komputer’);
writeln(‘4.Menghitung Nilai Mahasiswa’);
write(‘masukan pilihan anda : ‘);readln(pilihan);

if pilihan = 1 then
begin

write(‘Alas   : ‘);readln(alas);
write(‘Tinggi : ‘);readln(tinggi);
ls:=1/2*alas*tinggi;
writeln(‘Luas segitiga =: ‘,ls:0:1);
end
else
if pilihan = 2 then
begin

write(‘jari jari : ‘);readln(jari);

ll:=(22/7)*jari*jari;
writeln(‘Luas lingkaran =: ‘,ll:0:1);
end
else
if pilihan = 3 then
begin
writeln(‘*==============================================*’);
writeln(‘  POGRAM HITUNG BIAYA RENTAL KOMPUTER (WARNET)’);
writeln(‘*==============================================*’);
writeln(‘TERSEDIA MINUMAN’);
writeln(‘1. FANTA’);
writeln(‘2. COCA COLA’);
writeln(‘3. FRUIT TANG’);
writeln(‘4. GREENSAND’);
writeln(‘*==============================================*’);
write  (‘No komputer           : ‘);readln(nokom);
write  (‘Nama penyeewa         : ‘);readln(nama);
write  (‘Alamat                : ‘);readln(alamat);
write  (‘Jam masuk             : ‘);readln(masuk);
write  (‘Jam keluar            : ‘);readln(Keluar);
lama_rental:=(keluar-masuk)*60;
writeln(‘Lama Rental           : ‘,lama_rental:0:0);
biaya_rental:=100*lama_rental;
writeln(‘Biaya Rental          : ‘,biaya_rental:0:0);
write  (‘Minum I               : ‘);readln(minumI);
write  (‘Minum II              : ‘);readln(minumII);
write  (‘Minum III             : ‘);readln(minumIII);
write  (‘Minum IV              : ‘);readln(minumIV);

case minumI of
1:hargaI:=2000;
2:hargaI:=2000;
3:hargaI:=2000;
4:hargaI:=1500;
end;
case minumII of
1:hargaII:=2000;
2:hargaII:=2000;
3:hargaII:=2000;
4:hargaII:=1500;
end;
case minumIII of
1:hargaIII:=2000;
2:hargaIII:=2000;
3:hargaIII:=2000;
4:hargaIII:=1500;
end;
case minumIV of
1:hargaIV:=2000;
2:hargaIV:=2000;
3:hargaIV:=2000;
4:hargaIV:=1500;
end;
writeln(‘Harga minum I         : ‘,hargaI:0:0);
writeln(‘Harga minum II        : ‘,hargaII:0:0);
writeln(‘Harga minum III       : ‘,hargaIII:0:0);
writeln(‘Harga minum IV        : ‘,hargaIV:0:0);
HARGA:=hargaI+HARGAII+HARGAIII+HARGAIV;
writeln(‘JUMLAH BIAYA MINUMAN  : ‘,harga:0:0);
write  (‘Print                 : ‘);readln(print);
biaya_print:=500*print;
writeln(‘Biaya Print           : ‘,biaya_print:0:0);
total_rental:=biaya_rental+biaya_minum+biaya_print;
writeln(‘Total Biaya Rental    : ‘,total_rental:0:0);
write  (‘Bayar                 : ‘);readln(bayar);
kembali:=bayar-total_rental;
writeln(‘Kembali               : ‘,kembali:0:0);
readln;
end;
if pilihan = 4 then
begin

writeln(‘xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx’);
writeln(‘xx Menghitung Nilai Mahasiswa xx’);
writeln(‘xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx’);

writeln;
write(‘Nim                : ‘); readln (Nim);
write(‘Nama               : ‘); readln (Name);
write(‘Jurusan            : ‘); readln (Jurusan);
writeln(‘******************************’);
write(‘Kehadiran          : ‘); readln (kehadiran);
Nilai_kehadiran:=(kehadiran/16*100)*10/100;
writeln(‘Nilai_Kehadiran    : ‘,Nilai_kehadiran:0:0);
writeln(‘******************************’);
write(‘Tugas              : ‘); readln (tugas);
Nilai_tugas:=tugas*10/100;
writeln(‘Nilai_Tugas        : ‘,Nilai_tugas:0:0);
writeln(‘******************************’);
write(‘UTS                : ‘); readln (UTS);
Nilai_UTS:=UTS*30/100;
writeln(‘Nilai_UTS          : ‘,Nilai_UTS:0:0);
writeln(‘******************************’);
write(‘UAS                 : ‘); readln (UAS);
Nilai_UAS:=UAS*50/100;
writeln(‘Nilai_UAS          : ‘,Nilai_UAS:0:0);
total_nilai:=Nilai_kehadiran+Nilai_tugas+Nilai_UTS+Nilai_UAS;
writeln(‘******************************’);
write(‘Total_Nilai        : ‘,total_nilai:0:0);

if (total_nilai >=85) then
begin
grade:=’A';
write(‘ (Hasil Sangat Memuaskan)’);
end
else
if (total_nilai<85) and (total_nilai>=70) then
begin
grade:=’B';
write(‘ (Baik)’);
end
else
if (total_nilai<70) and (total_nilai>=50) then
begin
grade:=’C';
write(‘ (Cukup)’);
end
else
if (total_nilai<50) and (total_nilai>=0) then
begin
grade:=’D';
write(‘ (Hasil Kurang Memuaskan)’);
end;
end;
readln;
writeln(‘*===========================================*’);
write(‘Menghitung lagi(y/n) : ‘);readln(lagi);
writeln(‘*===========================================*’);
writeln(‘enter’);

readln;

end;
donewincrt;
end.

~ by agengiyo on May 27, 2008.