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 8385 21.10.2016, 11:20
Ostatni post: koneton
  [Pascal/Delphi] Sortowanie quicksort oraz scalanie. Chudy2000 3 8327 01.05.2016, 22:34
Ostatni post: Szachista
  NWD i NWW - pascal (pomocy) MatGpu 1 7697 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
  [C#] Program do moderacji czatów gier wiktrom12 0 7986 07.03.2019 15:33
Ostatni post: wiktrom12
  Mój pierwszy projekt - Pomoc rafal12999 1 8441 07.02.2019 22:01
Ostatni post: Szachista
  pomoc projekt scilab piesel18 2 9858 04.02.2019 09:03
Ostatni post: piesel18
  Szkoła Informatyczna Zikinan 1 8740 02.02.2019 17:59
Ostatni post: wojownikhaha
  [Java] Strona z zadaniami do rozwiązania i odpowiedziami rafal12999 2 9485 27.01.2019 13:44
Ostatni post: rafal12999
  kompilacja biblioteki Agui - cmake jurek2 0 8786 10.01.2019 13:12
Ostatni post: jurek2
  Zamiana całego zestawu znaków wg przyporządkowania BarHorab 5 9489 19.12.2018 16:45
Ostatni post: Szachista
  Sumowanie licz excel - problem OxyGenE 2 12143 19.12.2018 16:29
Ostatni post: Szachista
  Jaki kod pod pewne zdarzenia visualbasic 2010 aktywny27 4 9940 07.11.2018 13:41
Ostatni post: Ajgor
Scared Ipad Pro programowanie? NissmoOne 4 11065 06.10.2018 12:22
Ostatni post: NissmoOne
  C# pierwsza pusta komórka Excel DonCorleone 0 9999 21.09.2018 16:58
Ostatni post: DonCorleone
  .bat nie kompresuje plików GIENTY 3 10508 06.09.2018 07:20
Ostatni post: broda99
  problem z programem .bat wiktrom12 4 11716 30.08.2018 08:25
Ostatni post: wiktrom12
  Silnik do gier ZigglerGames 1 10361 23.08.2018 09:03
Ostatni post: Szachista
  Chciałbym zrobić prosty plik exe z jedną funkcją densour 4 11146 09.08.2018 16:24
Ostatni post: Ajgor