Lecture overview -- Keyboard shortcut: 'u'  Previous page: Eksempel: Struktureret programmering (1) -- Keyboard shortcut: 'p'  Next page: Eksempel: Struktureret programmering (3) -- Keyboard shortcut: 'n'  Lecture notes - all slides and notes together  slide -- Keyboard shortcut: 't'  Help page about these notes  Alphabetic index  Course home  Play sound for this page -- Keyboard shortcut: 'y'  Page 3 : 31
Forelæsningsnoter i Objekt-orienteret Programmering
Introduktion til objekt-orienteret programmering
Eksempel: Struktureret programmering (2)

checkKonto =
record
  id: KontoId;
  balance: Kroner;
  renteSats: Real;
  antalUdnyttedeChecks: Integer;
end

Vi ser en del af forfiningen af 'Bankkonto typedefinitioner'. Tilsvarende records skal gives for de andre kontotyper.

procedure transaktion(kt: Kontotype);
Type TransaktionsType = (opret, hæve, indsætte, tilskrivRente,
                        clearCheck, nedlaeg);

Procedurer for forskellige typer af transaktioner;

begin
  case kt of
    checkKonto:  checkKontoTransaktion;
    aktionærKonto:  aktionærKontoTransaktion;
    pensionsKonto:  pensionsKontoTransakton;
    gevinstKonto:  gevinstKontoTransaktion;
  end;
end (* transaktion *)

Vi viser her den centrale og overordnede transaktions procedure. Denne procedure forfiner altså 'Procedure som gennemfører transaktioner'. Afhængig af kontotype kaldes en mere specifik transaktionsprocedure, som er kontotype specifik