| Autor |
Beitrag |
ssb-blume
 
Beiträge: 375
Erhaltene Danke: 7
XP, W7, W8
Deutschland
|
Verfasst: Di 07.09.10 09:33
Hallo,
es gibt auch eine Funktion "odd" !
Hansi
_________________ Brain: an apparatus with which we think we think.
|
|
plague 
Hält's aus hier
Beiträge: 12
Ubuntu, Debian, Win XP, Vista
|
Verfasst: Mo 13.09.10 14:52
ja.. ich weiß, aber die sagt einem doch nur, ob die Zahl ungerade ist oder nicht?
also eingebaut hab ich die jetzt schon in die Procedure, aber alleine bringts die nicht...
lg plague
|
|
platzwart
Beiträge: 1054
Erhaltene Danke: 78
Win 7, Ubuntu 9.10
Delphi 2007 Pro, C++, Qt
|
Verfasst: Mo 13.09.10 15:08
Es geht darum, ob die ANZAHL von Einsen gerade oder ungerade ist, und darum gehts ja beim Paritybit...
_________________ Wissenschaft schafft Wissenschaft, denn Wissenschaft ist Wissenschaft, die mit Wissen und Schaffen Wissen schafft. (myself)
|
|
plague
Hält's aus hier
Beiträge: 12
Ubuntu, Debian, Win XP, Vista
|
Verfasst: Mo 13.09.10 15:23
procedure TZahlDezDualEvenParity.evenParity;
var i,anzahl: integer;
begin
anzahl:=0;
for i=1 to duallaenge do
if dualzahl[i]=true then
inc(anzahl);
if odd(anzahl)=true then
dualzahl[8]:=true
else
dualzahl[8]:=false;
end;
hab das jetzt so....
|
|
platzwart
Beiträge: 1054
Erhaltene Danke: 78
Win 7, Ubuntu 9.10
Delphi 2007 Pro, C++, Qt
|
Verfasst: Mo 13.09.10 15:29
Wobei du aus
  Delphi-Quelltext
1:
| if dualzahl[i]=true then |
besser das machst:
Delphi-Quelltext
Generell gilt: Nie explizit auf True prüfen; _________________ Wissenschaft schafft Wissenschaft, denn Wissenschaft ist Wissenschaft, die mit Wissen und Schaffen Wissen schafft. (myself)
|
|
plague
Hält's aus hier
Beiträge: 12
Ubuntu, Debian, Win XP, Vista
|
Verfasst: Mo 13.09.10 15:35
ah... okay... danke 
aber ich dachte immer, ich müsste wenn ich if hab, dem auch etwas zuordnen... !?
|
|
platzwart
Beiträge: 1054
Erhaltene Danke: 78
Win 7, Ubuntu 9.10
Delphi 2007 Pro, C++, Qt
|
Verfasst: Mo 13.09.10 16:59
Delphi-Quelltext
1:
2:
3:
| If Bedingung then ...
If not Bedingung then ... | _________________ Wissenschaft schafft Wissenschaft, denn Wissenschaft ist Wissenschaft, die mit Wissen und Schaffen Wissen schafft. (myself)
|
|
plague
Hält's aus hier
Beiträge: 12
Ubuntu, Debian, Win XP, Vista
|
Verfasst: Mo 13.09.10 17:53
klingt logisch..... danke...
|
|
