Sammlung von Problemen

[patti]

In deinen Funktionen fehlt der Rückgabetyp. Diesen kannst du mit

result := WasAuchImmer; setzen (eigentlich sollte der Compiler das melden ).

mfg

[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?

[Luckie]

Nicht umsonst steht in den Forenrichtlinien, die du auch gelesen haben solltest, dass man nur ein Thema pro Thread eröffnen soll. Dann kann man auch einen sinnvollen Beitragstitel erstellen und es geht auch nicht alles durcheinander im Thread. Deswegen mache ich hier zu und du erstellst bitte für jede Frage einen neuen Thread.