Treść zadania

david14014

Słuchajcie moi mili mam wielki problem bo potrzebny jest mi program w dev pascal. Czas mam do niedzieli a nie wiem jak sie do niego zabrać powiem szczerze że jestem zagrożony i musze go napisać.

Zadania brzmi tak:
Napisz dwa programy. pierwszy z nich wykona 1000 losowań lotto (6z49), drugi sprawdzi jakie liczby najczęściej wypadły w tych losowaniach. Dane losowania zapisujemy w pliku.
Bardzo prosze o pomoc wy jesteście mądrzejsi:)

Zadanie jest zamknięte. Autor zadania wybrał już najlepsze rozwiązanie lub straciło ono ważność.

Najlepsze rozwiązanie

  • 1 0

    Mam nadzieję, że jeszcze aktualne ?

    Patrz załączniki.
    Program losowanie losuje 1000 razy 6 z 49
    Program Liczenie znajduje trzy najczęściej występujące liczby, podaje ilość wystąpień i które to liczby. Uwzględnia, że maksymalna ilość wystąpień mogła zaistnieć dla więcej niż jednej liczby.

    Można by było zrobić to liczenie inaczej, sortując tablicę wyników, ale dłużej by to trwało, niż kilkukrotne przeszukanie jej.

    Jeżeli w tym totku losuje się nie 6, tylko 7 liczb, zmień stałą MAXL na początku programów z 6 na 7.

    Pozdro - Antek

    Załączniki

Rozwiązania

Podobne zadania

leneczka program Przedmiot: Informatyka / Liceum 1 rozwiązanie autor: leneczka 14.5.2010 (16:45)
piterql programowanie turbo pascal proszę o pomoc Przedmiot: Informatyka / Liceum 1 rozwiązanie autor: piterql 20.9.2010 (19:20)
sebastianus777 Napisz program schemat blokowy i listę kroków z wykorzystaniem random i Przedmiot: Informatyka / Liceum 2 rozwiązania autor: sebastianus777 13.10.2010 (17:57)
sebastianus777 jak bedzie wyglądał schemat blokowy do tego programu ?? program Przedmiot: Informatyka / Liceum 1 rozwiązanie autor: sebastianus777 13.10.2010 (20:39)
rubensdb Hej mam na zadanie napisać program w c rysujący choinkę z gwiazdek * z Przedmiot: Informatyka / Liceum 1 rozwiązanie autor: rubensdb 31.10.2010 (18:35)

Podobne materiały

Przydatność 55% Program funkcja kwadratowa Turbo Pascal

program rownanie_kwadratowe; uses crt; Var a, b, c, x1, x2, d, x : Real; begin clrscr; write('podaj a='); readln(a); write('podaj b='); readln(b); write('podaj c='); readln(c); if a=0 then begin Writeln('Rozwiazywanie funkcji liniowej'); if (b=0) and...

Przydatność 75% Program wczytujący dane do podania wyrazu stop (Pascal).

Program dane; uses crt; var dana:string [30]; begin clrscr; writeln ('Podaj dane'); repeat readln (dana) until dana='stop'; readln; end.

Przydatność 80% Pascal

Pascal, Blaise – Ur. 19 VI 1623 w Clemond-Ferdynand, zm. 19 VIII 1662 r. w Paryżu. Uważany powszechnie za następcę Kartezjusza. Był on wszechstronnie uzdolniony, od najmłodszych lat przejawiał niezwykłe zdolności(np. kiedy chciał ulżyć pracy ojcu skonstruował własnoręcznie maszynę do liczenia pieniędzy, pierwsze urządzenie tego typu na świecie[jego ojciec był poborcą...

Przydatność 60% Turbo Pascal

Pascal jest jednym z najpopularniejszych języków programowania komputerów. Powstał on w 1971 roku, kiedy to Niklaus Wirth opublikował pierwszy artykuł o nim. Upowszechnienie Pascala nastąpiło po roku 1974, w którym Wirth, opierając sie na poprawionym artykule, wydał wraz z Kathleem Jensen pierwszy podręcznik tego języka. W zamierzeniu Wirtha język Pascal miał służyć przede...

Przydatność 50% Turbo Pascal

WSTĘP Każda procedura, zmienna lub funkcja musi być zakończona średnikiem (;). Wyjątek END. i BEGIN 1. CO POWINNO I MOŻE ZNALEŹĆ SIĘ W KAŻDYM PROGRAMIE Uses crt; {musi znaleźć się} var {..tu można wpisać zmienne ..} begin {początek programu, musi się znaleźć} clrscr; {wyczyść ekran} {..tu można pisać treść programu..} readkey; {aby wyjść z...

0 odpowiada - 0 ogląda - 1 rozwiązań

Dodaj zadanie

Zobacz więcej opcji