Program If...then di Pascal

Lama sudah tidak share menganai program yang satu ini, masih dengan program pascal. Berikut saya akan share mengenai beberapa buah program yang saya buat dan saya pelajari dan juga sekaligus mengarsipkan tugas akhir semester dari dosen pemrograman saya. Pada postingan saya yang kali ini mengenai program yang didalamnya terdapat logika If...then. Langsung saja sedikit program sederhana dari saya :

Menghitung Nilai Kelulusan dengan If...then

Program Pertama :

uses wincrt;

var

   nilai:integer;

   ket:string;

      

   begin

        write('Masukan Nilai : ');readln(nilai);

        if nilai >=60 then

        ket:='LULUS'

                     else

        ket:='GAGAL';

           writeln;

                writeln('Anda ',ket);

                      end.

Program Kedua :

uses wincrt;

var

   nilai:integer;

   ket,nama:string;

   begin

        write('Masukan Nama : ');readln(nama);

        write('Masukan Nilai : ');readln(nilai);

        if (nilai >=85) and (nilai <=100) then

        ket:='A'

                else

                if (nilai >=75) and (nilai <=84) then

                ket:='B'

                        else

        if (nilai >=65) and (nilai <=74) then

        ket:='C'

                else

                if (nilai >=50) and (nilai <=64) then

                ket:='D'

                        else

        if (nilai >=0) and (nilai <=49) then

        ket:='E';

   clrscr;

   writeln(nama,' dengan nilai ',nilai,' grade anda adalah ',ket);

end.

  

Demikian sedikit program pascal dari saya dan semoga bermanfaat bagi anda yang sedang membaca :). Terima kasih atas kunjungan anda dan sebelum anda pergi silahkan tingalkan dulu komentar anda. Sampai bertemu di program-program selanjutnya.