Membuat Program NIlai Kognitif di Pascal

Unknown

Programmer

Tuesday, 11 June 2013

Belum ada komentar

Di Postingan kali ini NIsan mau Share Program NIsan selanjutnya, yaitu program nilai Kognitif di Pascal. Masih bisa dibilang sangat sederhana program ini, tpi untuk kalian yang masih belajar Pascal seperti nisan, alangkah sangat berguna untuk mengasah kemampuan ^_^. Progam ini menggunakan Fungsi Looping repeat- until.

Berikut listing Programnya :

uses crt  ;

var

Mapel : string [50];

nilai : integer ;

ket : String [50];

Ket1 : String [25];

UL : char;

Begin

Repeat

Clrscr;

Writeln;

Writeln (' WELCOME TO MY PROGRAM ' );

Writeln;

Writeln (' +++++++++++++++++++++ ');

Writeln (' Regrads : Nisanxc0de ' );

writeln (' +++++++++++++++++++++ ' );

Writeln;

Write ( ' Mata Pelajaran : ') ;readln (Mapel);

write (' NIlai Kognitif : '); readln (Nilai);

If NIlai >= 65 Then Ket := 'Tuntas'

Else

Ket :='Tidak Tuntas, harap melakukan Remedial ';

Writeln;

Writeln (' Keterangan :  Mata Pelajaran ' , Mapel ,' ',  Ket);

writeln;

write ( ' Mau coba Lagi ? [Y/T] : '); readln (UL);

writeln;

UL := Upcase (UL);

Until UL <> 'Y';

end.

Dan ini Screen Shootnya :

Sekian dari Nisan, semoga berguna dan bermanfaat,