Ungerade Zahlen odd

[Muddy]

Programmieren sie flogendes Programm in 2 Versionen,
zum einen mit repeat, zum anderen mit while.
Es sollen in einem Delphi-Programm zufallszahlen zwischen 1 und 100 gebildet werden bis die Anzahl der geraden
Zahlen einer von dem Benutzer eingegebenen Anzahl entspricht.
Sowohl als auch die geraden und ungeraden sollen angezezeigt werden in unterschiedlichen Memofeldern.
Die jeweilige ANzahl der Zahler wird unter die Liste angegeben}

Das ist meine Aufgabe!!!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var zahl1, zufall, runde: real;
function Odd(zahl1: Integer): Boolean;
begin
runde := 0 ;
randomize ;
  try
  zahl1 := strtoint (edit1.Text);
  if  then
    while zufall <> zahl1 do
      begin
        runde := runde +1;
        zufall := random (100) +1;
        memo1.Lines.add ( floattostr(runde)+'. Runde '+ floattostr(zufall))
      end

  else
    while zufall <> zahl1 do
      begin
        runde := runde +1;
        zufall := random (100) +1;
        memo2.lines.add ( floattostr (runde)+'. Runde '+ floattostr(zufall));
      end;

except
  memo1.lines.add ('Die Zahl wurde nach der' +floattostr(runde)+ ' Runde erreicht');
  memo2.lines.add ('die Zahl wurde nach der' +floattostr(runde)+ ' Runde erreicht');
end;
end;

SO mein PRoblem ist!!! Was schreibe ich in die if Aiweisung, damit er, fals die Zahl eine ungerade zahl ist, in die erste Schleife reingeht!!!

[lbccaleb]

du kannst mit sprungmarken arbeiten, suche mal nach label (nicht das tlabel)

[mkinzler]

Die Lösung steht doch schon in deinem Betreff

if Odd( zahl1) then

[Muddy]

Ich versthe nicht genau was du meinst mit Sprungmarken... Und nach Label statt Tlabel zu suchen?? Was soll ich darunter verstehen?
Ich bin noch Anfänger

[Luckie]

Zitat von lbccaleb:

du kannst mit sprungmarken arbeiten, suche mal nach label (nicht das tlabel)

Bist du böse. Soll er eine 6 bekommen?

[Helmi]

Zitat von lbccaleb:

du kannst mit sprungmarken arbeiten, suche mal nach label (nicht das tlabel)

In Deutsch würde man dies als "Themaverfehlung" bezeichnen

[BUG]

Zitat von Muddy:

SO mein PRoblem ist!!! Was schreibe ich in die if Aiweisung, damit er, fals die Zahl eine ungerade zahl ist, in die erste Schleife reingeht!!!

Da gibt es mehrere Möglichkeiten, die (auch für Lehrer) am einleuchtendste wäre:
Benutze den Operator mod (= Rest einer ganzzahligen Division).

Zitat von Beispiel::

1 mod 2 = 1
2 mod 2 = 0
3 mod 2 = 1
4 mod 2 = 0

Fällt dir was auf?

Viel Spaß weiterhin,
Bug

[3_of_8]

Gibt es nicht auch Even und Odd?

[sx2008]

Auweia, da ist ja fast gar nichts richtig in deinem Beispiel.
Also die Funktion Odd() ist eine Pascal-Funktion, die du auf jeden Fall benützen solltest.
(nicht selber deklarieren, sondern BENÜTZEN)
Lies auf jeden Fall die Online Hilfe zu Odd().

Dann hast du hintereinander 2 while-Schleifen, obwohl du nur ein braucht.
In der Schleife brauchst du eine Zufallszahl zwischen 1 und 100.
Dann mit Odd() prüfem, ob gerade oder ungerade und ide geraden Zahlen hochzählen.

Try und Except hat in deinem Programm bisher nichts verloren; also wech damit.

[himitsu]

ich glaub da stimmt noch mehr nicht.

ich erkenn nur eine Schleife in der Aufgabenstellung und nur die Anzeige in verschiedenen Memos

außerdem ist "zufall" beim ersten Durchlauf von "while zufall <> zahl1 do" noch undefiniert.