Paskalaj rikordoj

   
TIPO kompleksa = RIKORDO re, im: reela FINO;

     dato = PAKITA RIKORDO
                jaro  : 1990..2100;
                monato: 1..12;
                tago  : 1..31;
            FINO;

    figuro =
       RIKORDO
          x, y, areo: reela;    {kampoj komunaj al ĉiuj varioj}
       KAZO       f : formo EL
          ortogramo : (lateroA,lateroB:reelo; oblikvo:angulo);
          triangulo : (latero: reela; klino,alfo,beto: angulo);
             cirklo : (diametro: reelo)
       FINO;

   VAR z:      kompleksa;
       jubileo: dato;
       bildeto: figuro;

Heredado en Oberono

                 (*------------ ĝeneralaĵoj: -------------*)

TIPO figuro = RIKORDO x, y, areo: reela FINO;

     figRef = REF figuro;

PROCEDURO (f: figRef)livaEkstremo():reela; (* --- metodo-funkcio *)
   STARTO REEN f.x;
   FINO livaEkstremo;

          (*------------- subklasoj, aŭ etendaĵoj: -------------*)

TIPO triangulo = RIKORDO(figuro)
                    latero: reela;
                    klino,alfo,beto: angulo;
                 FINO;

     ortogramo = RIKORDO(figuro)
                    lateroA,lateroB: reelo;
                    oblikvo: angulo;
                 FINO;

     cirklo    = RIKORDO(figuro) diametro: reelo FINO;

     cirRef    = REF cirklo;

PROCEDURO (c: cirRef)livaEkstremo():reela; (* --- metodo-funkcio*)
  STARTO
     REEN c.x-c.diametro/2.0;
  FINO livaEkstremo;