CONTOH PROGRAM PERNYATAAN BILANGAN GENAP & GANJIL DENGAN PERULANGAN FOR .. TO...DO DI T.PASCAL

    Buka/Jalankan aplikasi pemprograman T.PASCAL di PC/laptop anda.

    Pilih File kemudian New di Menu toolbar T.PASCAL.

    Ketik/Copas Tulisan dibawah ini.

   USES CRT;

   VAR   A: byte;

     BEGIN

            CLRSCR;

            Writeln('KETERANGAN NILAI GENAP & GANJIL');

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

            Writeln;

     FOR A:= 1 TO 10 DO

     BEGIN

          Write ('ANGKA/NILAI  : '); Readln (A);

          Write('BILANGAN     : ', A );

     IF (A MOD 2)=0 THEN WRITELN (' GENAP') 
     ELSE WRITELN (' GANJIL');

          Writeln;

     End;

     END.

         

        Menjadi Seperti gambar berikut 

     Kemudian jalankan program dengan tombol CTRL + F9, jika ada terjadi error atau program tidak mau berjalan perhatikan dengan telitih perintah nya karena kekurangan tanda titik(.) saja program tidak akan berhasil di jalankan.

    Program yang berhasil di jalankan akan seperti gambar di bawah ini