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.....////