Program Kondisi Nilai Ujian Pascal

Buatlah program Kondisi Nilai Ujian pada pascal dengan memasukkan nilai ujian sehingga tampilannya seperti diatas.

 

Jawab :

Program Kondisi_nilai_ujian;

Uses Crt;

var

   n: Integer;

Begin

     clrscr;

     Write('Masukan angka :');

     Readln(n);

     If ((n>=86)and(n<=100))

      then Writeln('selamat anda mendapat nilai A');

     if ((n>=80)and(n<85))

      then  Writeln('selamat anda mendapat nilai B');

     if ((n>=70)and(n<79))

      then  Writeln ('selamat anda mendapat nilai C');

     if ((N>=60)and(n<69))

      then  Writeln('selamatanda mendapat nilai D');

     if ((N>=0)and(n<=59))

      then  Writeln('selamatanda mendapat nilai E')else

            Writeln('nilai yang anda masukan berada di luar jangkauan!!!');

     Readln;

End.

Anda sedang membaca artikel tentang Program Kondisi Nilai Ujian Pascal dan Anda bisa menemukan artikel Program Kondisi Nilai Ujian Pascal ini dengan url http://gratisan69.blogspot.com/2012/04/program-kondisi-nilai-ujian-pascal.html. Anda boleh menyebarluaskan atau mengcopy artikel Program Kondisi Nilai Ujian Pascal ini jika memang bermanfaat bagi Anda atau teman-teman Anda, namun jangan lupa untuk mencantumkan link sumbernya.

Artikel Terkait