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

Delphi-Quellcode:

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:

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:

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:

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:

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.

[Muddy]

DU möchest, dass ich überprüfe ob die Zuifallszahl eine geradne oder ungerade ist. indem ich odd(zufall) in die Schleife einbaue.
Aber wie gebe ich die ungerade und die gerade Zahl in getrennten Memofelder aus?

[BUG]

Zitat:

Zitat von 3_of_8

Gibt es nicht auch ... Odd?

Das ist natürlich besser ... wieder was gelernt :thumb:

MfG,
Bug

[mkinzler]

Mein Einzeiler war wohl zu kurz :zwinker:
http://www.delphipraxis.net/internal...=891629#891629

[Luckie]

[code}wenn odd(...) dann
Memo1
ansonsten
Memo2[/code]

[Die Muhkuh]

Zitat:

Zitat von Muddy

DU möchest, dass ich überprüfe ob die Zuifallszahl eine geradne oder ungerade ist. indem ich odd(zufall) in die Schleife einbaue.
Aber wie gebe ich die ungerade und die gerade Zahl in getrennten Memofelder aus?

If-Abfrage mit Odd bzw. Even.

[BUG]

Ein Tipp: mach erstmal eine Version des Programms (mit repeat-until)

Dann erzeugst du solange (repeat) eine neue Zufallszahl und schreibst diese in eines der Memos,
je nachdem, ob die Zahl gerade oder ungrade (odd(<die Zufallszahl>) = true) ist (siehe #14).
Das tust du, bis (until) die Anzahl der Zahlem im Memo für die graden Zahlen (MemoFuerGradeZahlen.lines.count) gleich der Benutzervorgabe ist.

Das umschreiben in eine zweite Version mit der while-Schleife sollte dich danach eigentlich nicht mehr lange aufhalten.

[OT]

Zitat:

Zitat von mkinzler

Mein Einzeiler war wohl zu kurz :zwinker:

Ich glaub, ich hab dich einfach ignoriert :tongue: :mrgreen:
[/OT]

MfG,
Bug