HAUSAUFAGBEN Feld mit Zufallsfolge von Zahlen

[Wahnalarm]

also wir sollen in informatik so ne dumme hausaufagbe machen und ich hab keine ahnung!
wir sollen zahlen von 1 bis zur variable ANZAHL in zufälliger reihenfolge ausgeben lassen!mit hilfe einer function Zufallszahl(n:word):word; der procedurekopf sieht folgendermaßen aus:
procedure bilde_zufallsfolge(VAR was:TZufallsfeld;anzahl:word);

es darf keine zahl doppelt ausgegeben werden d.h. es muss solange "gezogen" werden bis eine zahl gezogen wurde, die noch nicht gezogen wurde!
BITTE HELFT MIR!!!!! wenn ich das vor mir sehe weiß ich was gemeint ist und was gemacht wird, aber ich kann es selbst nich in delphi formulieren! was kann man da machen?
Dankeschön schon jetzt mal!

[Nils1984]

:wiejetzt:

was ist TZufallsfeld für ein Type??

[fkerber]

Hi!

Es wird dir hier bestimmt keiner die Hausaufgaben fertig vorlegen.
Wenn du dir selbst Gedanken darüber gemacht hast und ein konkretes Problem (vorzugsweise mit etwas Code) hast, dann kann dir sicher geholfen werden.

Ist nicht bös gemeint, aber ...

Ciao fkerber

P.S. Herzlich willkommen in der DP

[flomei]

Könnte man vielleicht mit einem dynamischen Array of Integer machen... :roll:

Hört sich nur leider im Moment so an als sollten WIR hier DEINE Hausaufgaben machen. Fang erstmal an und dann sagst du uns wo es hakt...

MfG Florian :hi:

[czapie]

TZufall... ist mit Sicherheit ein eingener Datentyp ;-)

Als nächtes solltest du dir die Funktion random() angucken und auch darüber (und die kleinen Macken) hier im Forum ein bißchen lesen.

Czapie.

[sakura]

Um Dir den Start zu erleichern: Random, [dp]integer array*[/dp], [dp]zufallszahl*[/dp]

Dann fängst Du an zu coden und dann erklärst Du uns Deine Probleme, die beim Coden aufgetreten sind und dann, ja dann freuen wir uns Dir weiterzuhelfen.

...:cat:...

[Wahnalarm]

also ich weiß nich, was ich mit der function soll unser lehrer meinte, dass wir damit die nte zahl bilden, bis wir eine haben die nich im wahlfeld eingetragen is! und diese functuion brauche ich, ich denke dann wäre mir schon sehr geholfen! also, eine function die zufallszahlen ausgibt von 1- anzahl und keine darf doppelt sein!

[sakura]

Zitat:

Zitat von Wahnalarm

also, eine function die zufallszahlen ausgibt von 1- anzahl und keine darf doppelt sein!

Wie würdest Du es denn theoretisch machen wollen? Es gibt keine Delphi-Funktion die es so direkt macht...

...:cat:...

[czapie]

Ja dann überprüfst du eben, ob die zufällig generierte Zahl schon im Array vorhanden ist,
wenn ja dann wird ebend eine neue generiert und wenn nicht dann wird sie ebend zum Array dazugefügt.

Ich glaube bevor du ans programmieren denkst solltest du dich vielleicht erstmal mit Stift und Zettel hinsetzen und kurz über dein Problem nachdenken.

Czapie.

[Wahnalarm]

und das is genau das problem, dass ich nich weiß wie man überprüft ob die schon vorhanden is! weil wenn die noch nich vorhanden is setzte ich sie einfach ins array und mache inde r lprocedure weiter!

[Matze]

Das überprüfst du mit einer Schleife, mehr sag ich nicht, selber groß. :P

[Wahnalarm]

cool so weit war ich auch schon!

[sakura]

Zitat:

Zitat von Wahnalarm

cool so weit war ich auch schon!

Gut, dann zeige mal her... und zeige uns mal die Definition von TZufallsfeld Wie schon gesagt, wir kennen den Typ nicht :roll:

...:cat:...

[czapie]

Ja mein Gott was denn nun noch, nun sag doch dein Problem , oder poste den Code den schon hast,
aber sag eben was du willst, "ohne böse zu klingen".

Czapie.

[Wahnalarm]

das is eben genau das problem ich hab kein delpghi und muss das alles theorethisch machen! ich weiß nich was zufallsfeld für ein type ist!

[czapie]

Äh ??

Ihr sollt programmieren habt aber nichts zum programmieren?
Wenn ihr nur eun Struktugramm oder änhliches machen sollt,
dann ist es doch nur ein logisches aneinandefügen, der einzelnen Schritte, also
Zahl generieren, gucken ob zahl schon vorhanden, wenn nicht dann einfügen, wenn doch zurück usw.

Czapie.

[Wahnalarm]

kann es sein, dass das ein array is oder sowas? ich weiß nur, dass es halt das feld ist in die am ende die zahlen geschrieben werden sollen!

[Chris1986]

Hi
Ich bin auch in Wahnalarms Info-Kurs. Um euch aufzuklären poste ich mal die Type-Deklaration und meine Lösung:

Delphi-Quellcode:

Const
  Stufenstaerke = 100;
Type
  TZufall = Array[1..Stufenstaerke] of word;

procedure bilde_zahlenfolge (VAR was: TZufall; Anzahl_Schueler: word);
var vorhanden: Array[1..Stufenstaerke] of boolean;
    lauf: word;
    zufall: word;
    eingetragen: boolean;
begin
  for lauf := 1 to Anzahl_Schueler do
  begin
    eingetragen := false;
    while not eingetragen do
    begin
      Zufall := random(Anzahl_Schueler)+1;
      if vorhanden[zufall] = false
        then begin
               was[lauf]         := zufall;
               vorhanden[zufall] := true;
               eingetragen       := true;
             end;
    end;
  end;
end;

Das ganze habe ich noch nicht in Delphi getestet, aber von der Struktur her sollte es funktionieren.

MfG
Christian