Contoh Program Pascal

Berbagi contoh program Pascal for Windows..

Program I : Cacah bilangan


Program Cacah_bilangan;
uses wincrt;
var
   n,i,x,cpos,cneg, cnol : integer;
begin
   clrscr;
   write('cacah Bilangan : ');readln(n);
   cpos:=0;cneg:=0;cnol:=0;
   for i:=1 to n do
     begin
       write('Bilangan ke-',i,' : ');readln(x);
       if x>0 then inc(cpos)
         else if x=0 then inc(cnol)
           else inc(cneg);
     end;
   writeln('Cacah Bil. positif : ',cpos);
   writeln('Cacah Bil. Nol     : ',cnol);
   writeln('Cacah Bil. negatif : ',cneg);
   readln;
end.



Program II: Program bintang


Program Bintang;
uses wincrt;
var
   n,i,j: byte;
begin
   clrscr;
   write('Cacah level : ');readln(n);
   for i:=1 to n do
   begin
     Gotoxy(40-(3*I),i+1);
     for j:=1 to i do
         write('*':6);
     writeln;
   end;
   readln;
end.

Program III:  Identitas (paling sederhana)


Program Identitas;
uses wincrt;
var a,b,c,d,e:string;
begin

   write ('Masukan nama anda: ');
   readln (a);
   write ('Masukan alamat anda: ');
   readln (b);
   write ('Masukan nomor tepon anda: ');
   readln (c);
   write ('Masukan asal sekolah anda: ');
   readln (d);
   write ('Masukan tanggal lahir anda: ');
   readln (e);
clrscr;
   writeln('Nama: ',a);
   writeln('Alamat: ',b);
   writeln('Nomor telpon: ',c);
   writeln('Asal sekolah: ',d);
   writeln('Tanggal lahir: ',e);
   end.


Mungkin sekian dulu dari saya.. bila ada yang salah harap di komen, maklum masih pemula..