Sammlung von Problemen

[Sertrain]

Och ... na gucke mal einer schau Es funktioniert

Also der Anfang zumindest. ^^ Danke Patti.

Delphi-Quellcode:

    
function Kontrolle(loesung,ergebnis:integer):boolean;
  begin
    If Loesung = Ergebnis then richtig:= true
                            else richtig:= false;
    result:= richtig;
  end;

function KontrolleAddition(zahl1, zahl2: integer):boolean;
var zahlgesadd: integer;
  begin
    zahlgesadd:= zahl1+zahl2;
    if zahlgesadd > 99 then loesbar:= false
                    else loesbar:= true;
    result:= loesbar;
  end;

function KontrolleSubtraktion(zahl1, zahl2: integer):boolean;
var zahlgessub: integer;
  begin
    zahlgessub:= zahl1 - zahl2;
    if zahlgessub < 0 then loesbar:= false
                      else if zahlgessub > 99 then loesbar:= false
                                              else loesbar:= true;
    result:= loesbar;
  end;

function KontrolleDivision(zahl1, zahl2: integer):boolean;
var zahlgesdiv: integer;
  begin
    zahlgesdiv:= Zahl1 mod zahl2;
    if zahlgesdiv = 0 then loesbar:= true
                      else loesbar:= false;
    result:= loesbar;
  end;

function KontrolleMultiplikation(zahl1, zahl2: integer):boolean;
var zahlgesmult: integer;
  begin
  zahlgesmult:= Zahl1* zahl2;
  if zahlgesmult > 99 then loesbar:= false
                      else loesbar:= true;
  result := loesbar;
  end;

Die Kontrollen klappen nicht. Die zu errechnende Zahl darf nie größer 99 oder kleiner 0 sein ... das sollen sie absichern, hab ich was vergessen?