Entwickler-Ecke
Algorithmen, Optimierung und Assembler - Zwei Zahlen dvidieren und Rest ausgeben
Delphi-Amateur - Mo 20.03.06 12:57
Titel: Zwei Zahlen dvidieren und Rest ausgeben
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
| procedure TForm1.Button2Click(Sender: TObject);
var ergebnis, zahl1, zahl2, rest : real;
begin
zahl1:= StrToFloat(edit1.text);
zahl2:= StrToFloat(edit2.text);
ergebnis:= zahl1/zahl2;
edit3.Text:= FloatToStr(ergebnis);
end;
end. |
Hallo Leute,
bei diesem Quelltext sollen beim Druck auf den Button 'mod' zwei Zahlen miteinander dividiert werden. Zusätzlich soll der Rest angegeben werden, bsp: 12/5= 2 Rest 2.
Wie muss ich das programm oben ändern damit es klappt?
danke Flo
Moderiert von 
raziel: Delphi-Tags hinzugefügt
Moderiert von Tino: Titel geändert.
Grishnak - Mo 20.03.06 13:07
Schau doch mal in der Delphi-Hilfe unter "div" und "mod" nach!
Kroko - Mo 20.03.06 13:17
| Grishnak hat folgendes geschrieben: |
| Schau doch mal in der Delphi-Hilfe unter "div" und "mod" nach! |
und nimm für Reste Integer-Zahlen!
Allesquarks - Mo 20.03.06 13:30
Und nimm vor allem als Divident und Divisor auch integers, sonst funktioniert mod/div nicht und außerdem was is denn der REst von 3,2/2,6?
Kroko - Mo 20.03.06 13:31
| Allesquarks hat folgendes geschrieben: |
| ... und außerdem was is denn der REst von 3,2/2,6? |
1,4 :wink:
Phantom1 - Mo 20.03.06 15:15
| Kroko hat folgendes geschrieben: |
| Allesquarks hat folgendes geschrieben: | | ... und außerdem was is denn der REst von 3,2/2,6? |
1,4 :wink: |
ich glaub der Rest müsste 0,6 sein ...
mfg
Kroko - Mo 20.03.06 15:26
(JA) :) verguckt
counterto - Di 21.03.06 21:11
en nützlicher tipp wäre, wo du die Fehler in deinem Programm hast ;)
DaRkFiRe - Di 21.03.06 21:41
3,2/2,6 R=0,6?
Aber nur, wenn 3,2 = 2,6*k + R ist (k als Element der ganzen Zahlen)
chaoslion - Mi 22.03.06 16:12
wies die vorredener schon gesagt haben:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
| program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
i,k,rest,erg:integer;
begin
i:=12;
k:=5;
erg:=i div k;
rest:=i mod k;
writeln(i,'/',k,' : ',erg,' rest: ',rest);
readln;
end. |
-> "12/5 : 2 rest: 2"
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 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!