Selasa, 08 Januari 2013

contoh case......of

Contoh Case …Of perhitungan berat dan harga barang

Dengan tampilan Sebagai berikut :

Masukkan Kualiatas buah [A/B/C] : <input>
Berapa Kg Beratnya : <input>
Harga PerKg : <input>
Harga Total : <output>


Ketentuan soal :
  1. Kualitas Barang di masukkan
Kualitas
Harga Per Kg
A/a
1000
B/b
750
C/c
500

Uses crt;
Var
Berat,harga,hargaperkg:integer;
Kualitas:char;
Begin
Clrscr;
Write(‘ Massukkan Kualitas Buah [A/B/C] : ‘); readln(kualitas);
Write(‘ Berapa Kg berat yang di beli : ‘ ); readln(berat);
Case kualitas of
‘A’,’a’: hargaperkg:=1000;
‘B’,’b’: hargaperkg:=750;
‘C’,’c’: hargaperkg:=500;
Else
Begin
Hargaperkg:=0;
Writeln(‘Salah Input’);
End;
End;

Harga:=hargaperkg*berat;
Writeln(‘ Harga Per Kg : Rp.’,hargaperkg);
Writeln(‘ Harga Total : Rp.’,harga);
End.


Contoh Case .. Of Mencari Nilai Grade

Ketentuan Soal :
Nama dimasukkan, Nilai materi dimasukkan
Ketentuan grade dan biaya :
Nilai rata-rata
Grade
biaya
0..39
E
450000
40..59
D
350000
60..75
C
250000
76..90
B
150000
91..100
A
50000


Uses crt;
Var
Rata,nbasic,npascal,ndelphi:real;
Gr,nm,no:char;
Nilai,biaya:longint;

Begin
Clrscr;
Write(‘ Masukkan Nama Peserta Ujian :’) ; readln(nm);
Write(‘ Maskukkan Nilai Visual Basic :’);readln(nbasic);
Write(‘ Maskukkan Nilai Pascal :’);readln(npascal);
Write(‘ Maskukkan Nilai Delphi :’);readln(ndelphi);
Rata:=(nbasic+npascal+ndelphi)/3;
Nilai:=round(rata);
Case nilai of
0..39: begin
Gr:=’E’;
Biaya:=450000;
End;
40..59: Begin
Gr:=’D’;
Biaya:=350000;
End;
60..75: begin
Gr:=’C’;
Biaya:=250000;
End;
76..90: begin
Gr:=’B’;
Biaya:=150000;
End;
91..100: begin
Gr:=’A’;
Biaya:=50000;
End;
End;
Writeln;
Writeln(‘Nilai Rata – Rata : ‘ , rata :3:2);
Writeln(‘Memperoleh Grade : ‘,gr);
Writeln(‘Biaya Yang Harus Dibayar : ,biaya:10);
Readln;
End.
Contoh Case Perhitungan Nilai Akhir


Program Input
==============
Masukkan Nim :
Masukkan Nama :
Masukkan Kelas :
Masukkan Nilai Absen :
Masukkan Nilai UTS :
Masukkan Nilai UAS :


Program Outputnya :
Program Nilai Mahasiswa
==========================
Mahasiswa yang bernama …………… dengan Nim …………. Mendapat Nilai ……. dan Grade ….
Keterangan ………


uses crt;
var
na,nt,uts,uas,rt:real;
nim,nm,kls,grd,ket:string[25];
tr:longint;
begin
clrscr;
writeln(‘PROGRAM INPUT’);
writeln(‘===============’);
write(‘masukan nim :’);readln(nim);
write(‘masukan nama:’);readln(nm);
write(‘masukan kelas:’);readln(kls);
write(‘masukan absen :’);readln(na);
write(‘masukan tugas :’);readln(nt);
write(‘masukan UTS :’);readln(uts);
write(‘masukan UAS :’);readln(uas);
rt:=0.1*na+0.2*nt+0.3*uts+0.4*uas;
tr:=round(rt);
case tr of
0..50:
begin
grd:=’E';
ket:=’gagal’ ;
end;
51..60:
begin
grd:=’D';
ket:=’gagal;’;
end;
61..75:
begin
grd:=’C';
ket:=’lulus’;
end;
76..89:
begin
grd:=’B';
ket:=’lulus’ ;
end;
else
begin
grd:=’A';
ket:=’lulus’;
end;
end;

clrscr;
writeln(‘PROGRAM NILAI MAHASISWA’);
writeln(‘=======================’);
writeln;
writeln(‘mahasiswa yang bernama ‘,nm);
write(‘dengan nim ‘,nim);
write(‘ mendapatkan nilai ‘,rt:4:0);
write(‘ dan gradenya adalah ‘,grd);
write(‘ keterangan :’,ket);
readln;
end.


Tidak ada komentar:

Posting Komentar