Selasa, 26 April 2016

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






0 komentar :

Posting Komentar

 
Design by Blogger Indonesia | Bloggerized by Jepri Tarigan