Kamis, 20 Desember 2012

  • Membuat Program NIlai Kognitif di Pascal

    Assalamualaikum Wr. Wb ,

    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,

    Wassalamualaikum wr. wb.



  • 2 komentar:

    1. :)) kagak vb kagak pascal sama aja :-s , sama2 pake baha inggris bahasanya :-b

      BalasHapus
      Balasan
      1. Besok om buat yang pke bahasa indo :-)

        Hapus

    Copyright @ 2013 Nisan BL0G.