Free/TurboPascal. Wie kann ich doppelte Zahlen aussortieren?

Hi, ich wollte mir vor kurzem mit Pascal ein Lotto-Programm programmieren. Ich bin schon so weit und habe es so programmiert, dass die Zahlen in einer Reihe mit Strichen kommen, also ungefähr so: 5-9-45-27-44-12. Das ist mein Programm:

program Lotto;

uses crt;

var a, e, i ,o, u, x: byte;

start: char;

begin

clrscr;

write('Möchten sie eine Lotto-Ziehung simulieren? (j/n)');readln(start);

if start = 'j' then begin

randomize;

a:= random(49) + 1;

e:= random(49) + 1;

i:= random(49) + 1;

o:= random(49) + 1;

u:= random(49) + 1;

x:= random(49) + 1;

write(a);

write(-e);

write(-i);

write(-o);

write(-u);

write(-x);

repeat until keypressed;

end

end.

Das Problem ist das manche Zahlen doppelt vorkommen können. Wie kann ich das ändern?

1 Antwort

lippmaje

10.09.2015, 15:33

Du generierst eine Liste mit 1 bis 49. Dann schreibst Du eine Schleife, in der eine Zufallszahl x von 1 bis Anzahl der Listenelemente gewählt wird. Das Listenelement an der x-ten Stelle wird ausgegeben und aus der Liste entfernt. Die Schleife wird sechsmal durchlaufen.

Wenn es Dir zu schwer erscheint, eine Liste zu programmieren, kannst Du auch ein Array definieren. Anstatt das ausgegebene Element zu löschen setzt Du das Arrayelement auf 0.

Wenn es zu schwer ist, das x-te Element im Array zu finden: Berechne in der Schleife eine Zufallszahl zwischen 1 und 49 und schaue im Array nach, ob an der x-ten Stelle schon eine 0 steht. Falls ja, berechne x noch mal.

Ähnliche Fragen

'...' erwartet aber '...' gefunden?

Hallo an allen,

zuerst den Code:

program Project1;
{$APPTYPE CONSOLE}
{$R *.res}

var
  f, alter:Integer;
  durchschnitt1, durchschnitt2, durchschnitt3: Double;
begin
  WriteLn('Morgenschicht:');
  WriteLn;
  for f:=1 to 5 do
  begin
    Write('Alter des Schülers: ');
    ReadLn(alter);
    durchschnitt1 := durchschnitt1 + alter;
  end;
  durchschnitt1 := Round((durchschnitt1 / 5),2);
  WriteLn;
  WriteLn;
  WriteLn('Spätschicht:');
  WriteLn;
  for f:=1 to 6 do
  begin
    Write('Alter des Schülers: ');
    ReadLn(alter);
    durchschnitt2 := durchschnitt2 + alter;
  end;
  durchschnitt2 := Round((durchschnitt2 / 6),2);
  WriteLn;
  WriteLn;
  WriteLn('Nachtschicht:');
  WriteLn;
  for f:=1 to 11 do
  begin
    Write('Alter des Schülers: ');
    ReadLn(alter);
    durchschnitt3 := durchschnitt3 + alter;
  end;
  durchschnitt3 := Round((durchschnitt3 / 11),2);
  WriteLn;
  WriteLn;
  WriteLn('Das Durchschnittsalter der Schüler der Morgenschicht beträgt: ', durchschnitt1, '.');
  WriteLn('Das Durchschnittsalter der Schüler der Spätschicht beträgt: ', durchschnitt2, '.');
  WriteLn('Das Durchschnittsalter der Schüler der Nachtschicht beträgt: ', durchschnitt3, '.');
  if (durchschnitt1 > durchschnitt2) and (durchschnitt1 > durchschnitt3) then
  begin
    Write('Die Morgenschicht hat das höchste Durchschnittsalter.');
  end
  else
  begin
    if durchschnitt2 > durchschnitt3 then
    begin
      Write('Die Spätschicht hat das höchste Durchschnittsalter.');
    end
    else
    if durchschnitt3>durchschnitt1 then
    begin
      Write('Die Nachtschicht hat das höchste Durchschnittsalter.');
    end;
  end;
  ReadLn;
end.

Ich habe aber folgende Fehlermeldung bekommen:

1) [dcc32 Fehler] Project1.dpr(19): E2029 ')' erwartet, aber ',' gefunden.

2) [dcc32 Fehler] Project1.dpr(19): E2029 ')' erwartet, aber ',' gefunden.

Diese Meldungen sind für mich nicht logisch. Was habe ich falsch gemacht bzw. wie kann ich diese Fehler lösen?

Danke und Grüße

...zur Frage

Zufallszahlen in C# sollen nicht doppelt vorkommen

ich habe dieses Programm: jetzt nur eine frage was muss ich noch schreiben das die Zufallszahlen nicht doppelt vorkommen

    static void Main(string[] args)
    {
        {
            int start = 0;
            int[] zahlen = new int[6];
           
                Random rnd = new Random();
                for (start = 0; zahlen.Length > start; start++)
                {
                    zahlen[start] = rnd.Next(0, 46);
                }
                Array.Sort(zahlen);
            foreach (int i in zahlen) Console.Write(i + " "); 
        }

        Console.ReadLine();


    }

...zur Frage

C# random Lotto mit vermeiden von erneut generieren von gezogenen?

Guten Tag Leute,Momentan bin ich am Thema Array angekommen.Meine Frage ist wie die Aufgabe mit der folgenden Fragestellung lösen kann." entwickeln eines Programmes mit Array und randomizer aus den Zahlen (1 bis 49)jedoch dürfen Zahlen die schon mal gezogen wurden nicht noch einmal vorkommen.Im Anhang ist mein jetziger Stand im Code.
Ich freue mich auf jede Hilfe.

Mfg

...zur Frage

Java: Wie kann ich erreichen, dass keine doppelten Zahlen ausgegeben werden?

Hallo,

ich habe ein Java-Programm und möchte das dabei keine doppelten Zahlen ausgegeben werden.

Hier erst einmal mein Programm:

public class Lotto {
  public static void main(String[] args) {
    if (args.length == 2) {
      int[] feld = new int[6];
      feld[0] = (int)(Math.random() * 49) + 1;
      feld[1] = (int)(Math.random() * 49) + 1;
      feld[2] = (int)(Math.random() * 49) + 1;
      feld[3] = (int)(Math.random() * 49) + 1;
      feld[4] = (int)(Math.random() * 49) + 1;
      feld[5] = (int)(Math.random() * 49) + 1;

      for (int i = 0; i < feld.length - 1; i++) {
        System.out.print(feld[i] + ", ");
      }

      System.out.println(feld[5]);
    }
    else System.out.println("ERROR");
  }
}

...zur Frage

Swift randomizer mit variablen?

Ich habe zwei Strings mit einer Nummer und ich will zwischen diesen zwei randomizen. Also angenommen ein String ist 1 und einer 3 dann würde bei einem randomizer z.B. 2,3 oder 1 rauskommen. Mit diesem Code:

let random = Int.random(in: myvar1…myvar2)

Klappt es ja nicht, weil es variablen, nicht zahlen sind. Wie kann ich das machen?

...zur Frage

Wie groß ist die Wahrscheinlichkeit, dass beim Lotto 6 aus 49 mindestens zwei aufeinanderfolgende Zahlen gezogen werden?

...zur Frage

Lotto ,,SuperDing'' (NRW) dieselben Zahlen wie 6 aus 49?

Hallo,

ich habe eine kurze Frage, und zwar, sind die Zahlen, die in NRW gestern für das normale Lotto ,, 6 aus 49'' gezogen wurden dieselben, die auch für das ,,Lotto SuperDing'' gelten?

Es irritiert mich gerade nämlich ein wenig, dass nirgends die zusätzlich gezogenen, 2-2stelligen Gewinnzahlen stehen, die den Gewinn von 33€/Spieler garantieren.

...zur Frage

Lotto-Programm Hilfe bei c programmierung?

Hallo ich musste bisher ein kleines lotto programm in C programmieren :

Meine Frage ist wie kann ich es umprogrammieren sodass KEINE Zahl doppelt erscheint. ...

Also 6 Zahlen werden per zufall gebildet dürfen aber nicht doppelt erscheinen.

Danke für eure Hilfe

/*
 * lotto.c: 6 aus 49
 * Demoprogramm
 */

# include <stdio.h>                        /* printf */
# include <stdlib.h>                  /* srand, rand */
# include <time.h>                           /* time */

# define ANZAHL 6

int main()
{
  int zahlen[ 6], i;
  char jn[ 2];

/* Zufallsgenerator */
  srand(time( NULL));

/* Ziehung */
  do
  {
    for( i = 0; i < ANZAHL; i++)
      {
          zahlen[ i] = rand() % 49 + 1;
/* ÜBERPRÜFUNG */
       
       //FEHLT!!
          
      }
/* Ausgabe */
    for( i = 0; i < ANZAHL; i++)
      printf( "\t%d ", zahlen[ i]);

/* Weiter */
    printf( "\tWeiter (j/n)?");
    scanf( "%1s", jn);
  } while( jn[ 0] == 'j');

  return 0;
}

...zur Frage

Wie hoch ist die Wahrscheinlichkeit drei mal eine richtige Zahl im Lotto zu haben?

Wie würde man das berechnen?

Ich würde jetzt sagen:

Eine richtige Zahl ist 1/49, also drei mal eine richtige Zahl dann 3*1/49, also 3*1/3*49 = 3/147, was gekürzt wieder bloß 1/49 ist.

Ist mein Gedankengang richtig, oder mache ich gerade einen Denkfehler?

...zur Frage

Hallo, ich muss für die Schule ein Lotto-Generator mit Excel erstellen.Ich muss also 6 verschiedene Zahlen aus dem Bereich 1-49 erstellen.?

...zur Frage

Lotto 6 aus 49 - Wahrscheinlichkeit 5 richtige Zahlen zu ziehen?

BeimLotto werden nacheinander 6 Zahlen aus einer Urne mit 49 Zahlen ohne Zurücklegen gezogen.Bestimme die Wahrscheinlichkeit 5 richtige Zahlen zu tippen.

...zur Frage

Java Lottozahlen ziehen?

Lotto spielen 1 bis 49 6 Zahlen in int Array speichern

Zahlen dürfen nicht doppelt vorkommen.

Wie erreiche ich das?

D. h. 1 Zahl z. B. 6

2 Zahl 15

3 Zahl 25

Jetzt muss die 3 Zahl mit der 1 und 2 abgeglichen werden. Ist die 3 Zahl genauso wie die 1 z. B. so muss die 3 Zahl nochmal gezogen werden. Dann Vergleich 3 Zahl mit 2 Zahl. Sind diese gleich dritte Zahl muss nochmal gezogen werden

Mein Ansatz bislang:

int[] ziehung = new int[6];
		
		for (int i = 1; i <= ziehung.length; i++)
			{
				ziehung[i-1] = (int) (Math.random()*49 + 1);   // Zufallszahlen 1 bis 49 
			
				for (int j = 0; j < i;j++)
				{
					
					if (ziehung[i-1]==ziehung[j])
						ziehung[i] = (int) (Math.random()*49 + 1);
				}

Es werden zuviele Zahlen gezogen. Wo ist mein Fehler?

...zur Frage

Könnte mir einer bitte ein Struktogramm zum Thema Lotto 6 aus 49 erstellen?

Wir müssen ein Struktogramm zu dem Programm 6 aus 49 erstellen. Das Programm haben wir schon selber erstellt aber wir verstehen nicht wie wir dazu das richtige Struktogramm zeichen können. Es wäre super nett wenn jemand antworten könnte der uns helfen kann. :)

Das ist unser Programm:

import java.util.Arrays;

import java.util.Random;

import java.util.Scanner;

public class Lotto6aus49 {

public static void main(String[] args) {

// Zufällige Generierung von 6 Zahlen (1 bis 49)

Random random = new Random();

int[] generatedNumbers = new int[6];

for (int i = 0; i < 6; i++) {

generatedNumbers[i] = random.nextInt(49) + 1;

}

// Eingabe der 6 Zahlen vom Benutzer

int[] userNumbers = getUserNumbers();

// Vergleich der eingegebenen Zahlen mit den generierten Zahlen

int correctCount = countCorrectNumbers(generatedNumbers, userNumbers);

// Ausgabe des Ergebnisses

printResult(generatedNumbers, userNumbers, correctCount);

}

private static int[] getUserNumbers() {

Scanner input = new Scanner(System.in);

int[] userNumbers = new int[6];

System.out.println("Geben Sie 6 verschiedene Zahlen zwischen 1 und 49 ein:");

for (int i = 0; i < 6; i++) {

System.out.print("Zahl " + (i + 1) + ": ");

int number = input.nextInt();

if (number < 1 || number > 49 || containsNumber(userNumbers, number)) {

System.out.println("Ungültige Eingabe. Bitte geben Sie eine gültige Zahl ein.");

i--;

continue;

}

userNumbers[i] = number;

}

input.close();

return userNumbers;

}

private static boolean containsNumber(int[] numbers, int number) {

for (int n : numbers) {

if (n == number) {

return true;

}

return false;

}

private static int countCorrectNumbers(int[] generatedNumbers, int[] userNumbers) {

int correctCount = 0;

for (int number : userNumbers) {

if (containsNumber(generatedNumbers, number)) {

correctCount++;

}

return correctCount;

}

private static void printResult(int[] generatedNumbers, int[] userNumbers, int correctCount) {

Arrays.sort(generatedNumbers);

Arrays.sort(userNumbers);

System.out.println("Zahlen der Ziehung: " + Arrays.toString(generatedNumbers));

System.out.println("Ihre Zahlen: " + Arrays.toString(userNumbers));

System.out.println("Anzahl richtiger Zahlen: " + correctCount);

}

...zur Frage

Aufgabe Wahrscheinlichkeit (Mathe)?

a) Wie groß ist beim fairen Lotto 6 aus 49 die Wahrscheinlichkeit, dass die Zahl 49 unter den gezogenen Zahlen ist?

Ich habe da gerechnet: 6* 1/49 * 48/49^5 = 0,1104 = 11,04% doch das ist falsch

das richtige ergebnis ist 12,24%

Da werden ja auch nicht die zahlen zurückgelegt , da muss man ja die hypergeometral verteilung anwenden

wie wende ich die hier ein ?

gruß

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen