Entwickler-Ecke
Sonstiges (Delphi) - Ungerade zahlen?
mimi - Di 11.03.03 21:05
Titel: Ungerade zahlen?
Hallo,
wie kann ich herausfinden ob 1 eine ungerade zahl ist oder nicht ?
mimi - Di 11.03.03 21:10
habs geschaft;)
DeCodeGuru - Di 11.03.03 21:12
Häää?
Quelltext
1:
2:
3:
4:
| if 1 mod 2 = 0 then
ShowMessage('Gerade')
else
ShowMessage('Ungerade'); |
So! :) Also "Ungerade" kommt bei mir raus *g*
matze - Di 11.03.03 21:13
das geht doch besser mit ODD !!!
DeCodeGuru - Di 11.03.03 21:14
verdammt, odd gibts ja auch noch *schäm*
matze - Di 11.03.03 21:16
jaaaaaaaa *freude*
ist mir auch spontan eingefallen !
mimi - Di 11.03.03 21:18
ich habe es so gemacht:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| str:String;
begin
str:=FloatToStr(Item.index / 2);
if pos(',5',str) = 0 then
ListView2.Canvas.Brush.Color:=clRed
else
ListView2.Canvas.Brush.Color:=clLime |
CenBells - Di 11.03.03 21:40
@mimi, wolltest du nun wissen, ob deine zahl gerade oder vielleicht eher ganz ist? Das würde deine lösung erklären.
Gruß
Ken
mars - Di 11.03.03 21:42
ne, das ist schon richtig, aber nicht sehr elegant :wink: . Die oberen Methoden wären einiges ästhetischer...
mimi - Di 11.03.03 21:59
schon da hast du recht, aber die ist mir so spotan eingefallen;)
(hätte nicht gedacht, das es so ein großes thema wird;))
kiwicht - Mi 12.03.03 09:22
und wer erklär jetztnochma ODD bitte?
Modulo kennt man ja, aber ODD?
thx
mimi - Mi 12.03.03 17:02
hä ?
was meinst du mit ODD ?
DeCodeGuru - Mi 12.03.03 18:42
das dürfte für Klarheit sorgen:
| Zitat: |
Die Funktion gibt true zurück, wenn das Argument eine ungerade Zahl ist.
Unit
System
Kategorie
Ganzzahlarithmetik
Delphi-Syntax:
function Odd(X: Longint): Boolean;
Beschreibung
In Delphi prüft Odd, ob der mit X angegebene Wert eine ungerade Zahl ist. Bei einer ungeraden Zahl wird true zurückgegeben, bei einer geraden false. |
mimi - Mi 12.03.03 19:16
so eine funktion gitb es schon ?
(hätte ich nicht gedacht;))
danke, hätte wirklich nicht gedacht das diese simply frage zu einer disk wird;)
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!