Algoritma & Pemrograman (Case of-->Fungsi Percabangan)
Buat Program menampilkan grade nilai !
Saya akan membuat program pengelompokan keberhasilan studi mahasiswa
Jalankan Delphi 7 --> File --> New ---> Other--> Console Application --->
Masukkan script
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
n:integer;
grade, ket:string;
begin
writeln ('Program Penentu Grade Pengelompokan Keberhasilan Stui Mahasiswa'); writeln; writeln;
write ('Masukkan Nilai Anda = '); readln(n);
case n of
0..25 : begin grade:='E'; ket:='GAGAL';
writeln('Grade = ', grade);
writeln('Keterangan = ', ket); end;
26..55 : begin grade:='D'; ket:='KURANG';
writeln('Grade = ', grade);
writeln('Keterangan = ', ket); end;
56..75 : begin grade:='C'; ket:='CUKUP';
writeln('Grade = ', grade);
writeln('Keterangan = ', ket); end;
76..85 : begin grade:='B'; ket:='BAIK';
writeln('Grade = ', grade);
writeln('Keterangan = ', ket); end;
86..100 : begin grade:='A'; ket:='SANGAT MEMUASKAN';
writeln('Grade = ', grade);
writeln('Keterangan = ', ket); end;
else writeln('Nilai Salah');
end;
readln;
end.
Jalankan dengan tekan Run/F9
ini Gambar setelah kita memasukkan nilai
2.Buat program bebas dengan menngunakan case of minimal 3 percabangan listing program & running.!
Kali ini saya akan membuat program pembagian kelas atau jurusan yang berdasarkan nilai..
Jalankan Delphi 7 --->> File---> New---> other--> Console Application
masukkan script
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
VAR
nilai:integer;
GRADE,Kelas:STRING;
begin
write('nilai=');readln(nilai);
case nilai of
56..75:
begin
GRADE:='C';
kelas :='IPS';
end;
76..85:
begin
GRADE:='B';
kelas:='BAHASA';
end;
ELSE
GRADE:='A';
kelas:='IPA';
end;
WRITELN('GRADE=',GRADE,' Masuk Kelas=',kelas);{ TODO -oUser -cConsole Main : Insert code here }
READLN
end.
Jalankan dengan tekan Run/F9
