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.

 

 

About these ads

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Logout / Ubah )

Twitter picture

You are commenting using your Twitter account. Logout / Ubah )

Facebook photo

You are commenting using your Facebook account. Logout / Ubah )

Google+ photo

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Ikuti

Get every new post delivered to your Inbox.

%d bloggers like this: