Tarifrechner

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