rafael
Administrator
Dołączył: 07 Lut 2006
Posty: 72
Przeczytał: 0 tematów
Ostrzeżeń: 0/3
Skąd: Pszczyna
|
| Temat postu: Zgadula |
|
|
| Kod: | program zgadula;
{$APPTYPE CONSOLE}
var liczba, twojaliczba, razy: integer;
begin
randomize;
liczba := random(999) + 1;
writeln ('Pomyslalem liczbe od 1 do 1000. Zgadnij jaka to liczba?');
repeat
razy := razy + 1;
write ('Twoja liczba: ');
readln (twojaliczba);
if liczba > twojaliczba then
writeln ('Ta liczba jest za mala!!! Podaj wieksza...');
if liczba < twojaliczba then
writeln ('Ta liczba jest za duza!!! Podaj mniejsza...');
until (liczba = twojaliczba) or (razy >= 15);
writeln;
if razy >= 15 then
writeln ('Przegrales!!! Sprobuj jeszcze raz...');
case razy of
1: writeln ('Nie ma lepszego od ciebie! Zgadywales ',razy,' razy');
2: writeln ('Jestes najlepszy! Zgadywales ',razy,' razy.');
3: writeln ('Jestes bardzo dobry! Zgadywales ',razy,' razy.');
4: writeln ('Swietnie!!! Zgadywales ',razy,' razy.');
5: writeln ('Brawo, zgadles!!! Zgadywales ',razy,' razy.');
6: writeln ('Dobrze, ale moglo byc lepiej!!! Zgadywales ',razy,' razy.');
7: writeln ('Slabo, pocwicz jeszcze!!! Zgadywales ',razy,' razy.');
8: writeln ('Cwicz wiecej, a twoj wynik bedzie lepszy!!! Zgadywales ',razy,' razy.');
9: writeln ('Jeszcze troche cwiczen, a bedziesz lepszy!!! Zgadywales ',razy,' razy');
10: writeln ('Zgadles, ale twoj wynik jest bardzo slaby. Zgadywales ',razy,' razy')
else
if (razy > 10) and (razy <=15) then
writeln ('Slabiej byc nie moglo... Sprobuj jeszcze raz!');
end;
readln;
end. |
Aby pobrać plik exe. kliknij :arrow: [link widoczny dla zalogowanych]
Post został pochwalony 0 razy
|
|
Autor
