Pada postingan ini saya akan mencontohkan sebuah program sederhana menggunakan fungsi IF statement dengan dua pernyataan yaitu if dan else, pada program ini saya mencontohkan dalam program kelulusan nilai mahasiswa,
listing kodenya sebagai berikut :
program kelulusan_mahasiswa;
uses crt;
var
nim,nm,ket: string;
nilai : integer;
begin
clrscr;
gotoxy(5,5);write('Daftar Nilai Mahasiswa');readln;
gotoxy(5,6);write('NIM : ');readln(nim);
gotoxy(5,7);write(Nama : ')readln(nm);
gotoxy(5,8);write(Nilai: ')readln(nilai);
if nilai >= 60 then
begin
ket:='Lulus';
end
else
begin
ket:='Tidak Lulus';
end;
gotoxy(5,9);write('Keterangan : ' ,ket);readln;
end.
setelah selesai silahkan di run, maka tampilannya akan seperti berikut,
dan
Selamat Mencoba dan berkreasi!!
Tidak ada komentar:
Posting Komentar