Pemrograman Pascal Menentukan Tipe Data Boolean

 Pemrograman Pascal Input Nilai Untuk Menentukan Boolean (True and False)

Buat lah program input nilai untuk menentukan Boolean (True and False) 

dengan output dibawah ini: 

Masukkan nilai 1 = 6

Masukkan nilai 2 = 3       ====>> Input

Masukkan nilai 3 = 7 

|==========================================|

     Apakah Benar Nilai 1 Kelipatan dari Nilai 2 ? = True 

|==========================================|            ====>> Output

    Apakah Benar Nilai 3 Lebih Besar dari Nilai 2 ? = True 

|==========================================|

Berikut contoh Programnya: 

Program Boolean;

uses crt;

var

        nilai1,nilai2,nilai3: integer;

        hasil:boolean;

begin

        clrscr;

        writeln('Nama : Farhan Misbahul Hayat');

        writeln('Npm  : 202143502440');

        writeln('=============================');

        write('Masukkan nilai 1 : ');

        readln(nilai1);

        write('Masukkan nilai 2 : ');

        readln(nilai2);

        write('Masukkan nilai 3 : ');

        readln(nilai3);

        writeln('===================================================|');

        hasil:=nilai1 mod nilai2 =0;

        writeln('Apakah Benar nilai 1 kelipatan nilai 2 ? =',hasil);

        hasil:=nilai3 > nilai2;

        writeln('Apakah Benar nilai 3 lebih besar dari nilai 2 =',hasil);

        writeln('===================================================|');

        readln;

end.

Maka Hasil Outputnya :