Tarifrechner

[xsus]

Hey, also ich würde eine if - Anweisung aufstellen..wenn das bis 10 kg geht nimm tarif 1 usw.
Das hatte ich im folgendem probiert, bevor ich mich hierher gewendet habe:

Delphi-Quellcode:

function tarif(gewicht:real):byte;
begin
  if gewicht<=10 then
     gewicht:=1 else
        if (gewicht>10) and (gewicht<=20) then
            gewicht:=2 else
                if (gewicht>20) then
                   gewicht:=3

...aber wie Delphi mir selbst schon sagt, scheint das totaler mist zu sein ..der Rauskommende Wert soll ja vom Typ Byte sein, also eine Zahl ?

UND:..in der Procedure Ausgabe1 und Ausgabe2 kommt ja z.b. vor: "gebuehr:5:2"...was hat es plötzlich mit den Zahlen auf sich?^^

Sorry, wenn die Fragen zu doof sind

LG

[mkinzler]

Delphi-Quellcode:

function tarif(gewicht:real):byte;
begin
  if gewicht<=10 then
     tarif:=1 else
        if (gewicht>10) and (gewicht<=20) then
            tarif:=2 else
                if gewicht>20 then
                   tarif := 3;
end;

[fkerber]

Hi,

vllt. noch ein paar warme Worte zu Markus' Quelltext:
Das Problem bei deinem Code ist, dass du einfach die Variable Gewicht veränderst, aber die Außenwelt davon nichts mitbekommt. In Markus' Fall wird das Ergebnis dem Rückgabewert der Funktion (erreichbar über den Namen der Funktion oder über die Variable result) zugewiesen, sodass die Außenwelt den Wert auch mitbekommt.

Was die Zahlen angeht:
Soweit ich weiß beziehen die sich auf die Anzahl Stellen vor (in dem Fall 5) und nach (in dem Fall 2) dem Komma.


Edit:
Und noch was: Der else-Fall wird immer dann aufgerufen, wenn die Überprüfung der Bedingung des if fehl schlug. D.h. wenn <= 10 nicht gestimmt hat, kommst du in diesen ersten else-Fall und kannst sicher sein, dass das Gewicht > 10 ist - d.h. du kannst dir diesen Teil der Bedingung sparen. Gleiches beim letzten else.

LG, Frederic

[xsus]

Vielen Dank ihr beide!
Dann war ich garnicht so weit entfernt..ich dachte nur das ich tarif nicht verwenden darf, es sich nur um den namen der function handelt..und mir halt nur gewicht zur verfügung steht..jetzt hab ichs verstanden

[TBx]

Nun auch nochmal meinen Senf dazu:

- Du prüfst nicht ab, ob da womöglich jemand ein Gewicht <= 0 eingibt
- Du prüfst nicht ab, ob ein Gewicht >100 eingegeben wird
- Der in der Procedure Ablauf abgeprüfte Wert für Tarif wird nie erreicht.

Gruß aus dem hohen Norden

Thomas

PS: Ach ja, Dein Delphi meckert wahrscheinlich auch immernoch, daß der Funktion Tarif möglicherweise kein Ergebnis zugewiesen wird.
PPS: Um den Rückgabewert einer Funktion zu setzen kann man entweder den Namen der Funktion verwenden oder das reservierte Wort Result.

[xsus]

Und damit nicht genug ..wenn ich über 100 kg komme, zeigt er mir trotzdem ein Preis an und nicht Ausgabe2 und das nächste Problem: es hieß ja ..das paketgewicht ist grammgenau ..aber ich kann nur ganze Zahlen eingeben...HILFE

[TBx]

Zitat von xsus:

..aber ich kann nur ganze Zahlen eingeben...HILFE

versuch mal, den '.' oder das ',' als Dezimaltrenner zu verwenden, ich vermute mal, Du versuchst den falschen von beiden.

[xsus]

also ich habe angefügt else tarife:=0 ..damit funktioniert das mit dem über 100 kilogramm und ich muss einen punkt anstatt einem komma eingeben (verwirrt mich total) ..damit müsste sich alles erledigt haben bis auf gewicht von kleinergleich 0 ?!

Und das weiß ich nicht, wie ich es deklariere..ansonsten ist das jetzt so in Ordnung oder?

[TBx]

Auf der Konsole wird stardardmäßig der Dezimalpunkt als Dezimaltrenner verwendet (liegt an der amerikanischen Herkunft des BS).

Dein Delphi meckert vermutlich immer noch, oder?

Zur Abprüfung, ob der eingegebene Wert kleiner oder gleich Null ist, bau eine entsprechende IF-Clause und weise dem Result ein entsprechendes Ergebnis zu. Dieses prüfst Du dann in der Procedure Abauf ab und verzweigst ggf. in eine Procedure ausgabe3, die dann den Hinweis enthält, daß Pakete ohne Gewicht oder mit einem negativen Gewicht Schwachfug sind.

[xsus]

Zitat von TBx:

Dein Delphi meckert vermutlich immer noch, oder?

Delphi ist glücklicher denn jeh, nur ich nicht mehr!

Zitat von himitsu:

PS: So, ich klaue dir jetzt mal das Refactoring (falls du sowas besitzt) und nun bennene mal diese Funktionen um.
Wo wirst du wohl weniger Arbeit haben?
.

Also das mit dem result sieht übersichtlicher aus und so aber ich schnalls nicht..würde es dir was ausmachen, mir das an meiner function zu zeigen? dann erhoff ich mir eher, es nachvollziehen zu können..ehm was ist REFACTORING?

Zitat von himitsu:

PSS: Wenn es zufällig eine gleichnamige Funktion, mit passender Signatur, in einer anderen Unit gibt (die oben in Uses mit drin steht) und du vergißt auch nur einen Namen umzubenennen, dann war's daß, weil den Fehler suchst du erstmal eine Weile.

Das bedeutet, ich passe gut auf, wie ich was benenne?!

EDIT: doch..ich glaub ich habs verstanden, ich probiers mal eben ^^

EDIT2:

Delphi-Quellcode:

function tarif(gewicht:real):byte;
begin
  if gewicht>0 then
begin
  if (gewicht<=10) then
     tarif:=1 else
        if (gewicht<=20) then
            tarif:=2 else
                if (gewicht>20) and (gewicht<=100) then
                   tarif:=3 else
                       tarif:=0
end else
result:=0;

RICHTIG? Erstelle ich jetzt Ausgabe 3, aber wie verweiße ich dann darauf?