CONTOH PROGRAM PASCAL

//polimorfisme
#include<constrea.h>

class poly0{
    public:
    virtual int fungsix(int x,int y,int z)
    { return x+y-z; }
    virtual int fungsiy(int x,int y,int z)
    { return fungsix(x,y,z)*2; }
    int fungsiz(int x,int y,int z)
    { return fungsiy(x,y,z)-10; }
};

class poly1:public poly0{
    public:
    virtual int fungsix(int x,int y,int z)
    { return x-y+z; }
    virtual int fungsiy(int x,int y,int z)
    { return fungsix(x,y,z)+5; }
};
void main()
{
clrscr();
poly1 obyek1;
cout<<"Hasilnya ::::--->>"<<obyek1.fungsiz(2,3,4)<<endl;
getch();
}

Jd.....kalian coba deh yang pake inputan...,,
silahkan mencoba yaa.....////

Array Dimensi Banyak

uses wincrt;  {Array Dimensi Banyak}
type tabel=array[1..2,1..2]of real;
var ma,mb,mHsl : tabel;
    bar,kol,x,y : byte;
begin
clrscr;
       write('Berapa Baris ? ');readln(bar);
       write('Berapa Kolom ? ');readln(kol);
       for x:=1 to bar do
       begin
         for y:=1 to kol do
         begin
           write('Matrik A[',x,',',y,']=');
           readln(ma[x,y]);
         end;
       end;

       for x:=1 to bar do
       begin
         for y:=1 to kol do
         begin
           write('Matrik B[',x,',',y,']=');
           readln(mb[x,y]);
         end;
       end;

       for x:=1 to bar do
       begin
         for y:=1 to kol do
         begin
           mHsl[x,y]:=ma[x,y]+mb[x,y];
           write('Hasil Tambah=[',x,',',y,']=');
           writeln(mHsl[x,y]:4:0);
         end;
         writeln;
       end;
readln;
end.

Matrik Array

uses wincrt;
var
   Matrik:array[1..2,1..2] of byte;
   x,y:byte;
begin
clrscr;
        Matrik[1,1]:=5;
        Matrik[1,2]:=3;
        Matrik[2,1]:=8;
        Matrik[2,2]:=6;
        for x:=1 to 2 do
        begin
             for y:=1 to 2 do
             begin
                  write(Matrik[x,y]:8);
             end;
             writeln;
        end;
        readln;
end.

Array Membalik Kalimat

uses wincrt;
var kal:string;
    huruf:array[1..255] of string[1];
    a:byte;
begin
clrscr; write ('kalimat = '); readln (kal);
        for a:=1 to length (kal) do
        begin
             huruf [a]:= kal [a];
        end;
        writeln;
        writeln('isi array huruf');
        for a:=1 to length (kal) do
        begin
        writeln('isi array ke-',a,': ',huruf [a]);
        end;
        writeln('abjad ke 3 = ',huruf[3]);
        writeln('hasil pembalikan kalimat : ');
        for a:= length (kal) downto 1 do
        begin
        write(huruf[a]);
        end;
   readln;
end.

prog.Com

BAHASA PEMPROGRAMAN PASCAL

Program adalah kumpulan intruksi atau perintah yang disusun sehingga mempunyai urutan logika yang benar untuk menyelesaikan suatu persoalan.

Contoh Program Dasar Pascal :

PROGRAM contoh;

Uses crt;

var

    nama:string;

begin

   clrscr;

write('Ketik Nama Anda ');

readln(nama);

writeln('Selamat '+nama+' Anda kini akan belajar pascal....!!!');

end.