--> Archiwum Forum
TCG [ Chor��y ]
Program w Turbo Pascal - czy ktos potrafi?
Czy ktos potrafi napisac program w Turbo Pasca, który dziala w taki sposob, ze użytkownik zgaduje wylosowana przez komputer liczbe. Na poczatku mozna okreslic przedzial od-do, liczby tylko calkowite. Z gory dziekuje za pomoc!:)
grish_em_all [ Hairless Cobra ]
w bardzo prosty sposób można to zrobić:
Najpierw losujesz liczbę, potem w pętli "repeat until" użytkownik podaje liczbę, potem "case of"em sprawdzasz czy jest równa, mniejsza czy większa od wylosowanej ("case of" naturalnie ma być też w pętli, tylko losowanie liczby przez komputer ma byćprzed pętlą), w zależności od wyniku wypisujesz na ekranie mniejsza, większa, lub równa. Program wychodzi z pętli jeżeli liczba jest równa
[edit]
nie napiszę Ci tego w pascalu, bo dawno już się w TP nie bawiłem, nawet go nie mam, i już trochę składnie zapomniałem
TCG [ Chor��y ]
Dzekuje grish_em_all sam za bardzo nie jestem w temacie TP, towlasciwie dla kolegi - sam walcze w C:)
Moze ktos inny potrafi napisac?
Pozdrawiam!
Kijano [ Generaďż˝ ]
ja potrafie napisac
Father Michael [ Martyr ]
nie pamietam zbytnio skladni Pascala, wiec moga byc bledy:
var a, b, liczba, zgaduj : integer
write("Podaj dolny przedzial:")
readln(a);
write("Podaj gorny przedzial:")
readln(b);
randomize;
liczba := rand(b-a)+a;
repeat
write("zgadnij liczbe");
readln(zgaduj);
until liczba = zgaduj
TCG [ Chor��y ]
Hej Kijano, jesli potrafisz, to sprawdz czy Father Michael nie popelnil bledow?:)
Narmo [ nikt ]
TCG --> Popełnił kilka, ale nie chce mi się pisać całego programu. Warunek pętli jest zły (powinno być until liczba = zgaduj), zmienne są źle zadeklarowane (wystarczy 1 var) i powinno być coś takiego: var a,b,liczba,zgaduj:integer;, randomize? Co to?
Father Michael [ Martyr ]
Narmo -> "Należy także pamiętać, że program używający funkcji Random zawsze będzie losował te same liczby, chyba, że ... zainicjujemy generator liczb losowych, robi się to używając prostej, bezparametrowej procedury: Randomize;"
Narmo [ nikt ]
Father Michael --> Aha. Nigdy z czegoś takiego nie korzystałem :)
TCG [ Chor��y ]
Dziękuję Wam za podpowiedzi i przykładowy program:)