lulusansmk.pas


{ Program : lulussmk.pas }
{ Dibuat oleh : Wahyudin }
{ Tanggal : 3 Juli 2009 }
{ ————————— }
{ Masukkan : }
{ Nilai Teori Produktif (NTP) }
{ Nilai Praktek Produktif (NPP> }
{ Nilai Ujian Nasional Bahasa Indonesia = 4.00 : }
{ a. Semua nilai ujian nasional >=4 }
{ b. jumlah nilai 4 masimal 2 }
{ c. Rata-rata bind,mat,img dan NPP minimal 5.5 }
{ Keluaran : }
{ Keeterangan (ket ) Lulus / Gagal }
{ ====================================================================== }

Program lulussmk1;
Uses crt;
Var
NTP, NPP, BIND, MAT, BING, R : Real;
KET : String;
JN4 : integer;
BEGIN
write (‘Nilai Teori Produktif : ‘);
readln (NTP);
write (‘Nilai Praktek Produktif : ‘);
readln (NPP);
write (‘Nilai Ujian Nasional Bahasa Indonesia : ‘ );
readln (BIND);
write (‘Nilai Ujian Nasional Matematika : ‘ );
readln (MAT);
write (‘Nilai Ujian Nasional Bahasa Inggris : ‘ );
readln (BING);
KET := ‘GAGAL’;
IF NTP >= 4 THEN
BEGIN
IF (BIND >= 4) AND (MAT>=4) AND (BING>=4) THEN
BEGIN
JN4 := 0;
IF (BIND>=4) AND (BIND=4) AND (MAT=4) AND (BING<5) THEN JN4 := JN4 + 1;

IF (JN4 =5.5 THEN KET :=’LULUS’;
END;
END;
END;
WRITE (‘ANDA ‘+KET+’ UJIAN ‘); WRITE (‘RATA NILAI : ‘);WRITE(R:0:2);
END.

Tinggalkan Balasan

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

Logo WordPress.com

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

Gambar Twitter

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

Foto Facebook

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

Foto Google+

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

Connecting to %s