Function vereinfachen, bei vielen if abfragen

[Hallo_Thomas]

Gibt für so eine function eine einfachere, bzw, schnellere Abfrage!Im Grundegenommen soll bloss eine bestimmte Additionsaufgabe zu einem bestimmten Wert ausgeführt werden.

Delphi-Quellcode:

function zaehler(z:Integer):Integer;
begin
if z=0 then
result:=x+y+z
if z=1 then
result:=x+y
....///////dass sollte dann so bis if z=1500 then gehen
end;

[jim_raynor]

spannend ist die Frage was denn bei z=2, z=3 usw. passiert. das wird bei deinem Quellcode nicht ersichtlicht. Auf jeden Fall wäre case eine vernüftige Variante.

[nailor]

ich weiß wirklich nicht, was genau du willst. aber vielleicht wäre es sinnvoll, sich mal die case-anweisung anzuschauen.

edit:mal wieder viiiiieeel zu langsam

[Christian Seehase]

Moin Thomas,

Zitat:

Zitat von Hallo_Thomas

...soll bloss eine bestimmte Additionsaufgabe zu einem bestimmten Wert ausgeführt werden.

wie sieht denn die Aufgabe aus?
Vielleicht lässt sie sich ja einfacher lösen.

[runger]

Hallo,

ich will ja nicht stänkern aber du stellst eine Frage die Hellseherei verlangt. Ist es eigentlich zuviel verlangt, dass man bevor man eine Frage stellt, etwas nachdenkt?
So kriegst du auf jedenfall keine Antwort.

Rainer

[Hallo_Thomas]

Ich wollte eine Art function geschreiben, die wesentlichen eine Aufgabe haben soll,und zwar: Dass es zu jedem Wert,sagen wir Wertigkeit[0..1500] jeweils einein Wert(hier(Z)) gibt, der nach bedarf aufgerufen werden ( Dies soll ne Additionsaufgabe sein).

Delphi-Quellcode:

function zaehler(z:Integer):Integer; 
begin 
if z=0 then 
result:=x+y+z 
if z=1 then 
result:=x+y
if z=2 then 
result:=x+y+a
....///////dass sollte dann so bis if z=1500 then gehen 
end;

[marabu]

nu iss alles glar.

Nur mir nicht. Wenn du keine Regel angeben kannst, nach der deine Additionen ausgeführt werden sollen, dann wirst du alle 1500 Fälle einzeln beschreiben müssen - vielleicht erkennt dann jemand die Systematik. Ansonsten bleibt es beim CASE-Statement.

marabu

[Hallo_Thomas]

Es gibt keine Sytetemathik, ich muss auf alle Fälle, 1500 mal Result:=..+.+.+.. schreiben, die Variblen aus em sich Result ergibt, stehen unter private

Zitat:

Ich dachte an so ne Art Zusammenfassung, wo ich nicht 1500 if abfrageb hab.

Result:= nimm wert[1]

Wert[0]:=x+y+z
Wert[1]:=z+y

In diesem Moment beötige ich auch nur Wert[1]

In einem Procedurdurchlauf, soll dann auf 10-50 Werte zurückgefriffen werden.

[Jasocul]

Keine Systematik => keine Vereinfachung.

[TeronG]

Zitat:

Zitat von Jasocul

Keine Systematik => keine Vereinfachung.

YUP
Aber die oben genannte CASE-anweisung macht das dennoch sauberer denk ich :gruebel: (auch weil ELSE vorhanden)