Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - Anwendung von Mod und Div am real werte


Arkathor - Mo 31.01.11 10:58
Titel: Anwendung von Mod und Div am real werte
Hallo

Ich muss, als Hausaufgabe, einen Programm entwickeln der wie ein Fahrkartenautomat funktioniert. Am Anfang soll der Kunde Fahrziel wählen, dann Anzahl der Personen angeben.Aus diesen Daten rechne ich den Preis aus und gehe zum zweitem Formular. Dort klickt der Kunde auf Münzen oder Scheinen (Image komponente) und so "bezahlt" er für den ticket. Am Ende wenn der Preis negativ ist (zu viel eingezahlt) soll der Automat Rückgeld ausgeben (in Form von Münzen und Scheinen, also nicht z.B. 20.10 € Rückgeld sondern 1x20€ schein und 1x10Cent Münze), dass wollte ich mit div und Mod lösen, leider kriege ich Meldung "Operand ist auf diesen Operandentyp nicht anwendbar". Ich habe aber gelesen dass div und mod auch mit real Werten funktionieren. Ich wäre sehr dankbar für Hinweise und Hilfe beim Lösen dieses Problems. Anschließend noch quelltext.


Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
 
unit FahrAutomat;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls,JPEG;

type
  TForm1 = class(TForm)
    ZielCBx: TComboBox;
    ZielLb: TLabel;
    AnzahlLb: TLabel;
    AnzahlEd: TEdit;
    titelnameIMG: TImage;
    Ok1BT: TButton;
    procedure FormCreate(Sender: TObject);
    procedure ZielCBxChange(Sender: TObject);
    procedure Ok1BTClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  Fz: Array[1..10] of String =('Berlin','New York','Pekin','Warschau','Athen','Rom','Paris','Tokyo','Mexiko city','Mond');
  Fp:Array[1..10] of real=(3.50,5.50,4.70,8.70,14.20,8.90,24.90,55.60,7.50,25000.00);
  Bild:TImage;
  Anzahl:byte;
  Preis:real;
  index:byte;

implementation

uses Unit2;

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var i:byte; Stadt:string;
begin
titelnameIMG.Picture.LoadfromFile ('titelname.BMP');
ZielCBx.clear;
ZielCBx.text:='Fahrziel';
For i:=1 to 10 do
begin
Stadt:=FZ[i];
ZielCBx.Items.Add(Stadt);
end;

end;

procedure TForm1.ZielCBxChange(Sender: TObject);

begin
index:=ZielCBx.ItemIndex+1;
AnzahlLb.visible:=true;
AnzahlEd.visible:=true;
end;

procedure TForm1.Ok1BTClick(Sender: TObject);
begin
Anzahl:=strtoint (AnzahlEd.text);
Preis:=(Anzahl) * (Fp[index]);
//Form1.Hide;
Form2.Show;
end;

end.


Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
 
unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls,FahrAutomat, StdCtrls;

type
  TForm2 = class(TForm)
    BezahlungIMG: TImage;
    PreisLb: TLabel;
    zehncent: TImage;
    zwanzigcent: TImage;
    zehncentLb: TLabel;
    zwanzigcentLb: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    funfzigcent: TImage;
    eineuro: TImage;
    zweieuro: TImage;
    funfeuro: TImage;
    zehneuro: TImage;
    zwanzigeuro: TImage;
    funfzigeuro: TImage;
    Label3: TLabel;
    hundereuro: TImage;
    zweihunderteuro: TImage;
    funfhunderteuro: TImage;
    funfzigcentLb: TLabel;
    eineuroLb: TLabel;
    zweieuroLb: TLabel;
    funfeuroLb: TLabel;
    zehneuroLb: TLabel;
    zwanzigeuroLb: TLabel;
    funfzigeuroLb: TLabel;
    hunderteuroLb: TLabel;
    zweihundertLb: TLabel;
    funfhundertLb: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure zehncentClick(Sender: TObject);
    procedure zwanzigcentClick(Sender: TObject);
    procedure funfzigcentClick(Sender: TObject);
    procedure eineuroClick(Sender: TObject);
    procedure zweieuroClick(Sender: TObject);
    procedure funfeuroClick(Sender: TObject);
    procedure zehneuroClick(Sender: TObject);
    procedure zwanzigeuroClick(Sender: TObject);
    procedure funfzigeuroClick(Sender: TObject);
    procedure hundereuroClick(Sender: TObject);
    procedure zweihunderteuroClick(Sender: TObject);
    procedure funfhunderteuroClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;
  Ausg:array [1..12] of byte;
  GeldArray:array [1..11] of real = (500,200,100,50,10,5,2,1,0.50,0.20,0.10);


implementation

{$R *.DFM}

procedure TForm2.FormCreate(Sender: TObject);
begin
BezahlungIMG.Picture.LoadfromFile ('titelname.BMP');

end;

procedure TForm2.FormShow(Sender: TObject);
begin
PreisLb.caption:=(floattostr(preis));
end;

Procedure geldrechne;
var i:byte;
begin
i:=11;
Ausg[i]:=Preis div Geldarray[i]; //In diesen beiden
Preis:=Preis mod Geldarray[i];   //Zeilen kommt der Fehler vor
i:=i-1;
While i<> 0 do
geldrechne;
end;


procedure TForm2.zehncentClick(Sender:TObject);
begin
Preis:=Preis - 0.10;
PreisLb.caption:= floattostr (Preis);
If Preis < 0 then
   begin
   preis:=preis * (-1);
   PreisLB.visible:=false;
   geldrechne;
   end;
end;

procedure TForm2.zwanzigcentClick(Sender: TObject);
begin
Preis:=Preis - 0.20;
PreisLb.caption:= floattostr (Preis);
If Preis < 0 then
   begin
   preis:=preis * (-1);
   PreisLB.visible:=false;
   geldrechne;
   end;
end;

procedure TForm2.funfzigcentClick(Sender: TObject);
begin
Preis:=Preis - 0.50;
PreisLb.caption:= floattostr (Preis);
If Preis < 0 then
   begin
   preis:=preis * (-1);
   PreisLB.visible:=false;
   geldrechne;
   end;
end;

procedure TForm2.eineuroClick(Sender: TObject);
begin
Preis:=Preis - 1;
PreisLb.caption:= floattostr (Preis);
If Preis < 0 then
   begin
   preis:=preis * (-1);
   PreisLB.visible:=false;
   geldrechne;
   end;
end;

procedure TForm2.zweieuroClick(Sender: TObject);
begin
Preis:=Preis - 2;
PreisLb.caption:= floattostr (Preis);
If Preis < 0 then
   begin
   preis:=preis * (-1);
   PreisLB.visible:=false;
   geldrechne;
   end;
end;

procedure TForm2.funfeuroClick(Sender: TObject);
begin
Preis:=Preis - 5;
PreisLb.caption:= floattostr (Preis);
If Preis < 0 then
   begin
   preis:=preis * (-1);
   PreisLB.visible:=false;
   geldrechne;
   end;
end;

procedure TForm2.zehneuroClick(Sender: TObject);
begin
Preis:=Preis - 10;
PreisLb.caption:= floattostr (Preis);
If Preis < 0 then
   begin
   preis:=preis * (-1);
   PreisLB.visible:=false;
   geldrechne;
   end;
end;

procedure TForm2.zwanzigeuroClick(Sender: TObject);
begin
Preis:=Preis - 20;
PreisLb.caption:= floattostr (Preis);
If Preis < 0 then
   begin
   preis:=preis * (-1);
   PreisLB.visible:=false;
   geldrechne;
   end;
end;

procedure TForm2.funfzigeuroClick(Sender: TObject);
begin
Preis:=Preis - 50;
PreisLb.caption:= floattostr (Preis);
If Preis < 0 then
   begin
   preis:=preis * (-1);
   PreisLB.visible:=false;
   geldrechne;
   end;
end;

procedure TForm2.hundereuroClick(Sender: TObject);
begin
Preis:=Preis - 100;
PreisLb.caption:= floattostr (Preis);
If Preis < 0 then
   begin
   preis:=preis * (-1);
   PreisLB.visible:=false;
   geldrechne;
   end;
end;

procedure TForm2.zweihunderteuroClick(Sender: TObject);
begin
Preis:=Preis - 200;
PreisLb.caption:= floattostr (Preis);
If Preis < 0 then
   begin
   preis:=preis * (-1);
   PreisLB.visible:=false;
   geldrechne;
   end;
end;

procedure TForm2.funfhunderteuroClick(Sender: TObject);
begin
Preis:=Preis - 500;
PreisLb.caption:= floattostr (Preis);
If Preis < 0 then
   begin
   preis:=preis * (-1);
   PreisLB.visible:=false;
   geldrechne;
   end;
end;


end.


Tankard - Mo 31.01.11 11:02
schau dir das mal an

http://www.bergt.de/workshop/delphi/html/funktion11.htm


bummi - Mo 31.01.11 11:04
Rechne mit Cent....


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!