Witamy na forum PC Format Zapraszamy do REJESTRACJI


Użytkownicy przeglądający ten wątek: 1 gości

[Pascal] Lottomat, Lotto, Lotek

#1
[Pascal] Lottomat, Lotto, Lotek
Witam!
Mam taki program, i nie wiem jak zrobic, aby liczby ktore sie losuja sie nie powtarzaly i zeby sprawdzal ile liczb trafilismy. Mam nadzieje, ze wiece o co chodzi i moge liczyc na wasza pomoc. Prosze o podsuniecie jakiegos pomyslu.
Dzieki
Kod:
uses wincrt;
var typ_losowania:char;
    MLa:array[1..80] of byte;
    MMLa:array[1..42] of byte;
    DLa:array[1..49] of byte;
    wylML:array[1..80] of byte;
    wylMML:array[1..42] of byte;
    wylDL:array[1..49] of byte;
    spr:array[1..80] of byte;
    i:byte;


Begin
randomize;
Writeln('Podaj typ losowania:');
Writeln('1. Mały lotek');
Writeln('2. Duży lotek');
Writeln('3. Multilotek');
readln(typ_losowania);
if typ_losowania='1' then
    begin
      Writeln('Podaj 5 liczb z przedzialu [1..42]:');
      for i:=1 to 5 do readln(MMLa[i]);
      for i:=1 to 5 do Write(' ',MMLa[i]);
      Writeln(' ');
      Writeln('Wylosowane liczby:');
      for i:=1 to 5 do
            begin
            wylMML[i]:=1+random(42);
            Write(' ',wylMML[i]);
            end;
     if wylMML[i]=MMLa[i] then MMLa[i]:=spr[i];
     Writeln('');
     Writeln('Trafione liczby:');
     Write(' ',spr[i]);

    end;
end.
 System operacyjny: windows_seven Przeglądarka: firefox
#2
RE: [Pascal] Lottomat, Lotto, Lotek
1. OMG... Zagnieżdżonymi pętlami for sprawdzasz, czy liczba się nie powtarza...
Toż moja kuzynka by to wymyśliła Język

E: Tu nawet zagnieżdżać pętel nie trzeba.
 System operacyjny: windows_xp_2003 Przeglądarka: firefox
#3
RE: [Pascal] Lottomat, Lotto, Lotek
sorry, ale jestem w pierwszej klasie technikum i jeszcze nie za bardzo to kumam, moglbys mnie jakos naprowadzic?
 System operacyjny: windows_seven Przeglądarka: firefox
Programy: Polecane / Nowe / Inne



Użytkownicy forum szukali:
lottomat lottomaly duzy multi lotek pascalpascal program lottoturbo pascal losowanie lotto

Podobne wątki ([Pascal] Lottomat, Lotto, Lotek)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  dev pascal, problem z funkcją kwadratową Sentinel24 4 8170 21.10.2016, 11:20
Ostatni post: koneton
  [Pascal/Delphi] Sortowanie quicksort oraz scalanie. Chudy2000 3 8153 01.05.2016, 22:34
Ostatni post: Szachista
  NWD i NWW - pascal (pomocy) MatGpu 1 7496 19.02.2016, 17:25
Ostatni post: Szachista

Skocz do:


Wybrane wątki ([Pascal] Lottomat, Lotto, Lotek)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  Zamiana całego zestawu znaków wg przyporządkowania BarHorab 5 8915 19.12.2018 16:45
Ostatni post: Szachista
  Sumowanie licz excel - problem OxyGenE 2 11578 19.12.2018 16:29
Ostatni post: Szachista
  Jaki kod pod pewne zdarzenia visualbasic 2010 aktywny27 4 9368 07.11.2018 13:41
Ostatni post: Ajgor
Scared Ipad Pro programowanie? NissmoOne 4 10428 06.10.2018 12:22
Ostatni post: NissmoOne
  C# pierwsza pusta komórka Excel DonCorleone 0 9424 21.09.2018 16:58
Ostatni post: DonCorleone
  .bat nie kompresuje plików GIENTY 3 9963 06.09.2018 07:20
Ostatni post: broda99
  problem z programem .bat wiktrom12 4 11181 30.08.2018 08:25
Ostatni post: wiktrom12
  Silnik do gier ZigglerGames 1 9803 23.08.2018 09:03
Ostatni post: Szachista
  Chciałbym zrobić prosty plik exe z jedną funkcją densour 4 10587 09.08.2018 16:24
Ostatni post: Ajgor
  Który język wybrać do stworzenia aplikacji synchronizujące pliki z urządzeniem mobiln Elemental 2 2610 18.07.2018 12:05
Ostatni post: Ajgor
  Pomysł napisania programu ROM FireBytes 3 11181 28.06.2018 16:56
Ostatni post: FireBytes
  [VBA] Tworzenie nowego arkusza z danymi z TextBox'a Pioro 4 11607 19.06.2018 23:24
Ostatni post: broda99
  Potwierdzenie na maila po wysłaniu pliku coci 0 10711 13.06.2018 20:37
Ostatni post: coci
  Pieczętowanie Archiwum Jar - Po co? wanhelsing 3 11304 19.05.2018 20:55
Ostatni post: koneton
  Wyszukiwarka w spawnerze nie reaguje na polskie znaki kazik666 0 10895 16.05.2018 12:04
Ostatni post: kazik666