AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Ungerade Zahlen odd

Ein Thema von Muddy · begonnen am 23. Mai 2008 · letzter Beitrag vom 23. Mai 2008
 
Muddy

Registriert seit: 9. Feb 2008
74 Beiträge
 
Delphi 7 Personal
 
#1

Ungerade Zahlen odd

  Alt 23. Mai 2008, 21:11
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!!!
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 21:09 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz