๐ Daftar Isi
Program Nilai Mahasiswa
program nilaimahasiswa;
uses crt;
var Nilai : integer;
begin
clrscr;
writeln('Input nilai yang Anda dapatkan 0 s.d. 100');
write('Nilai Anda = ');
readln(Nilai);
case nilai of
0..59 : writeln('Anda tidak lulus');
60..100 :
begin
write('Anda lulus ');
case nilai of
60..74: writeln('dengan nilai cukup');
75..89: writeln('dengan nilai baik');
else writeln('dengan nilai sangat baik');
end;
end;
else
writeln('Anda salah input nilai');
end;
readln;
end.
Contoh Output:
Pada program nilai tersebut, apabila nilai bertipe real, bagaimana cara mensiasatinya agar kita tetap dapat menggunakan strukur case?
program Konversi;
uses crt;
var tugas,uts,uas :integer;
NA :real;
grade :char;
Ketika variabel nilai atau pada program tersebut adalah NA dan dengan tipe data real maka harus diubah terlebih dahulu ke bentuk bilangan bulat dengan menggunakan fungsi ROUND(var); . Jadi program sebelum di bulatkan akan terjadi error.
NA:=(tugas*0.2+uts*0.3+uas*0.5);
writeln('Nilai akhir Anda =',NA);
case NA of
0..19: grade:='E';
20..39: grade:='D';
40..59: grade:='C';
60..79: grade:='B';
else grade:='A';
Pada perhitungan NA akan dihasilkan bentuk desimal atau bukan merupakan bilangan bulat, sehingga harus dibulatkan terlebih dahulu, sehingga menjadi seperti berikut.
NA:=(tugas*0.2+uts*0.3+uas*0.5);
writeln('Nilai akhir Anda =',NA);
case round(NA) of
0..19: grade:='E';
20..39: grade:='D';
40..59: grade:='C';
60..79: grade:='B';
else grade:='A';
Program tersebut dapat berjalan karena, NA telah dibulatkan menggunakan fungsi round(Var)
Program Hari Bulan
program haribulan;
uses crt;
label ulangi;
var tgl,b,thn : integer;
kabisat : boolean;
begin
clrscr;
ulangi:
write('Tanggal: '); readln(tgl);
write('Bulan: '); readln(b);
write('Tahun: '); readln(thn);
{Memeriksa untuk kondisi tahun kabisat}
if (thn mod 400=0) then kabisat := true
else if (thn mod 100=0) then kabisat := false
else if (thn mod 4=0) then kabisat := true
else kabisat:= false;
{Memeriksa error Bulan}
if((b<=0) or (b>=13)) then
begin
writeln('SALAH INPUT');
goto ulangi;
end;
{Memeriksa error tanggal}
if((tgl<=0) or (tgl>=32)) then
begin
writeln('SALAH INPUT');
goto ulangi;
end;
if(tgl=31) then
begin
if((b=2) or (b=4) or (b=6) or (b=9) or (b=11)) then begin
writeln('SALAH INPUT');
goto ulangi;
end;
end;
{Memeriksa error bulan Februari}
if(b=2) then
begin
if(kabisat=true) then
begin
if(tgl>29) then
begin
writeln('SALAH INPUT');
goto ulangi;
end;
end
else
begin
if(tgl>28) then
begin
writeln('SALAH INPUT');
goto ulangi;
end;
end;
end;
{Penulisan Output}
write('Hari ini: ',tgl,' ');
case b of
1: write('Januari ');
2: write('Februari ');
3: write('Maret ');
4: write('April ');
5: write('Mei ');
6: write('Juni ');
7: write('Juli ');
8: write('Agustus ');
9: write('September ');
10: write('Oktober ');
11: write('November ');
12: write('Desember ');
end;
writeln(thn);
readln;
end.
Contoh output:
Materi Lengkap
Silakan baca juga beberapa artikel menarik kami tentang Konsep Pemilihan, daftar lengkapnya adalah sebagai berikut.