Zitat:
Schreiben Sie Delphi-Code für die Methode BerechnePreis, die in der booleschen Variablen ok vermerken soll, ob die Lieferung erfolgen kann, und in diesem Falle in lieferpreis : integer den Preis ablegt.
Procedure ist also in diesem Falle schon einmal
falsch weniger geeignet, eine Funktion bietet sich an. Diese könnte so aussehen:
function BerechnePreis(Entfernung: integer; var OK: Boolean): integer;
So, nun ist
IMHO als Erstes zu prüfen, ob die Entfernung mehr als 50 km beträgt. Wenn ja, dann ist OK sowieso schon falsch und wir können uns den Rest sparen. Liegt die Entfernung unter 5 km, haben wir einen defnierten Festpreis, OK ist also wahr und wir müssen nur den Festpreis zurückgeben. Ansonsten Preis errechnen, schauen, ob wir über 30 € kommen und dementsprechend reagieren. Ist doch nicht so schwer, oder?