![]() |
Delphi-Version: 7
Tarifrechner
Hey, ich bin total neu hier und Anfänger beim Programmieren..also nicht böse sein^^
Mein Problem sieht wiefolgt aus: Ich möchte einen Tarifrechner erstellen, der bei eingabe des Gewichtes ausrechnet, wie teuer der Versand wird. Es sollen ausschließlich Pakete bis 100 Kilo transportiert werden. Das Gewicht wird grammgenau gemessen, die sich ergebende Gebühr aber auf zwei Dezimalen gerundet. 3 Tarife sind verfügbar:
Mein bisheriger Quellcode sieht wiefolgt aus:
Delphi-Quellcode:
Ich komme nicht weiter, bei der vorhandenen Lücke...es wäre SUPER, wenn mir jmd. helfen könnte (und das evtl. sogar noch ein bisschen erklärt) ...bitte..
program tarife;
{$APPTYPE CONSOLE} uses sysutils; procedure info; begin writeln('Dies Programm berechnet automatisch die Beförderungssgebühr,'); writeln('wenn Sie das Paketgewicht eingeben .'); writeln; writeln end; procedure eingabe(var gewicht:real); begin write('Paketgewicht in kg : '); readln(gewicht); writeln; writeln end; function tarif(gewicht:real):byte; begin {HIER FEHLT WAS !} end; procedure berechnung(gewicht:real;var gebuehr:real); var t:byte; begin t:=tarif(gewicht); gebuehr:=6*t+gewicht*(0.6/t) end; procedure ausgabe1(gebuehr:real); begin writeln('Die Gebühr beträgt ',gebuehr:5:2,' €.') end; procedure ausgabe2(gewicht:real); var uebergewicht:real; begin uebergewicht:=gewicht-100; writeln('Das Paket ist ',uebergewicht:8:3,' kg zu schwer und wird nicht befördert.') end; procedure ablauf; var gw,gb:real; begin info; eingabe(gw); if tarif(gw)<>0 then begin berechnung(gw,gb); ausgabe1(gb) end else ausgabe2(gw); readln end; begin ablauf end. Liebe Grüße und Vielen Dank ;) |
AW: Tarifrechner
Hi,
herzlich willkommen in der DP. Was würdest du denn machen, wenn du diesen Schritt von Hand lösen müsstest. Also wie würdest du das ganze aufschreiben, quasi in natürlicher Sprache. Ergänzend dazu die Frage: Was sollen für Werte bei dieser Funktion rauskommen? (Das lässt sich anhand der Funktion "berechnung" erkennen.) LG, Frederic |
AW: Tarifrechner
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:
...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 ?
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 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 |
AW: Tarifrechner
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; |
AW: Tarifrechner
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 |
AW: Tarifrechner
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 :thumb: |
AW: Tarifrechner
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. |
AW: Tarifrechner
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 :pale:
|
AW: Tarifrechner
Zitat:
|
AW: Tarifrechner
also ich habe angefügt
Delphi-Quellcode:
..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 ?!
else tarife:=0
Und das weiß ich nicht, wie ich es deklariere..ansonsten ist das jetzt so in Ordnung oder? |
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:00 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz