Losowanie lotto w pascalu

[vatt]

Witam!

Chciabym stworzyć program przypominajacy wybor liczb jak z lotto.

Chodzi o program ktory bedzie miał w zakresie 49 licz i jak sie nacisnie np. 5 to ma wylosować 5 licz z tego zakresu, coś takiego jak typu lotka :)

 

Używajac prostych komend takich jak te

 

[MaciekCi]

Żeś sobie wybrał język. Czemu akurat Pascal ? W C# w dwie minuty Ci pomogę. Chyba, że to na zaliczenie... ?

[Thomas]

Rozpisze Ci w krokach w pseudo kodzie:

 

1. Stwórz tabelę od 1 do 49 i wypełnij każda komórkę odpowiednią liczbą (od 1 do 49)

2. Liczba 'liczb' do wylosowania wynosi X

3. Liczba dotychczasowych losowań Y=0

4. Wylosuj liczbę od 1 do 49-Y, to będzie twój indeks w tabeli

5. Zamień ostatnią liczbę z tabeli z tą wylosowaną: tabela[ostatnia-Y] = tabela[wylosowana_liczba] i odwrotnie + zmienna pomocnicza

6. Zwiększ liczbę losowań Y o 1, jeśli nadal nie wylosowałeś ile trzeba (Y!= od tego co trzeba) idź do punktu 4

7. Ostatnie Y liczb w tabeli to są twoje wylosowane liczby.