Tarifrechner

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

[freak4fun]

In ablauf ist der Rückgabewert von tarif 0, falls Das Gewicht < 0 oder > 100. Somit müsstest du dem < 0 einen anderen Tarif zuordnen um ihn von über 100 zu unterscheiden. Das dann wie gehabt prüfen. Statt tarif(gw) <> 0 zum Beispiel: t = tarif(gw); if t = 1 then ... else if t = ...

Edit: Bzw. die Eingabe vor der Berechnung prüfen.

[xsus]

Okee, das habe ich mit ner Case of - Anweisung gelöst ..thx