Bilangan Genap dan Ganjil dengan Pascal | Pemrograman Pascal

Setelah kita berkenalan dengan Pascal, sekarang saatnya kita bermain dengan Pemrograman Pascal. Pada Pemrograman Basic sudah disinggung tentang bagaimana membuat program untuk menampilkan Bilangan Ganjil dan Genap jadi seharusnya kita tidak akan kesulitan untuk membuat program yang sama dengan bahasa pascal.

Langsung saja, Masuk ke TP71 --> BIN --> Turbo.exe, setelah muncul worksheet ketikan code berikut:

uses crt;
var
a,i:integer;
begin
clrscr;
writeln ('Masukkan Batas Akhir Bilangan');readln(a);
for i:= 1 to a do
begin
if i mod 2 = 0 then writeln(i,' adalah Bilangan Genap')
else writeln (i,' adalah Bilangan Ganjil');
end;
readln;
end.

Setelah itu tekan alt + F9 untuk mengcompile dan ctrl + F9 untuk Running program

Semoga yang singkat ini bisa bermanfaat dan salam Kuliah Gratis