Program Mencari IPK dan Letak Kuadran

Syntax Program IPK dan Kuadran :

uses wincrt;
label lagi;
var a:real;
b:char;
x,y:integer;
pil:byte;
begin lagi:
clrscr;
writeln(‘ ================================= ‘);
writeln(‘           ==> M E N U  P I L I H A N <==            ‘);
writeln(‘ ================================= ‘);
writeln;
writeln(‘ 1. Menentukan Keterangan Nilai dari IPK.’);
writeln(‘ 2. Menentukan Letak Kuadran.’);
writeln;
{pil:=4;}
write(‘Masukkan Pilihan Anda ?  ‘);
readln(pil);
case pil of
1: begin clrscr;
write(‘Masukkan Nilai IPK Anda =  ‘);readln(a);
if (a>=3.0) and (a<=4.0) then writeln(‘Keterangan : IPK ‘,a:2:2,’ Sempurna’)
else if (a>=2.0) and (a<3.0) then writeln(‘Keterangan : IPK ‘,a:2:2,’ Baik’)
else if (a<2.0) then writeln(‘Keterangan : IPK ‘,a:2:2,’ Kurang’)
else write (‘”Maaf, Data yang Anda Masukkan Salah”.’);
writeln;
write(‘Apakah Anda Ingin Melakukan Pengecekan Lagi [y/n]? ‘);readln(b);
if b=’y’ then goto lagi;
end;
2: begin clrscr;
write(‘Masukkan Nilai x = ‘);readln(x);
write(‘         Nilai y = ‘);readln(y);
if (x>0) and (y>0) then writeln(‘Titik (‘,x,’,',y,’) Terletak pada Kuadran I’)
else if (x<0) and (y>0) then writeln(‘Titik (‘,x,’,',y,’) Terletak pada Kuadran II’)
else if (x<0) and (y<0) then writeln(‘Titik (‘,x,’,',y,’) Terletak pada Kuadran III’)
else if (x>0) and (y<0) then writeln(‘Titik (‘,x,’,',y,’) Terletak pada Kuadran IV’);
writeln;
write(‘Apakah Anda Ingin Melakukan Pengecekan Lagi[y/n]? ‘);readln(b);
if b=’y’ then goto lagi;
end;
end;
end.

Gambar Menu Utama :

 Gambar Pilihan IPK :

Gambar Pilihan Kuadran :

Gambar Untuk Mengakhiri Program :


Untuk Download Program : http://www.ziddu.com/download/14699821/IPKdanKuadran.rar.html