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