| |
Turbo Pascal Twoje źródło wiedzy o Turbo Pascalu. |
|
|
|
|
|
 |
Sob 11:36, 11 Lut 2006 |
 |
 Autor |
Wiadomość |
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
|
|
| |
|
|
|
|
|
 |
|
Pon 21:52, 23 Kwi 2007 |
|
| Autor |
Wiadomość |
Outgoing
Początkujący
Dołączył: 23 Kwi 2007
Posty: 9
Przeczytał: 0 tematów
Ostrzeżeń: 0/3
|
| Temat postu: |
|
|
Hardcore sex!
[link widoczny dla zalogowanych]
Post został pochwalony 0 razy
|
|
| |
|
|
|
Śro 17:42, 25 Kwi 2007 |
|
| Autor |
Wiadomość |
Jalalemtepane6
Początkujący
Dołączył: 25 Kwi 2007
Posty: 9
Przeczytał: 0 tematów
Ostrzeżeń: 0/3
|
| Temat postu: |
|
|
Jalalemtepane6's free adult video storage:
[link widoczny dla zalogowanych]
Post został pochwalony 0 razy
|
|
| |
|
|
|
Czw 2:00, 26 Kwi 2007 |
|
| Autor |
Wiadomość |
Doendedes52
Początkujący
Dołączył: 26 Kwi 2007
Posty: 6
Przeczytał: 0 tematów
Ostrzeżeń: 0/3
|
| Temat postu: |
|
|
wow, look at that!
[link widoczny dla zalogowanych]
Post został pochwalony 0 razy
|
|
| |
|
|
|
Sob 17:18, 28 Kwi 2007 |
|
| Autor |
Wiadomość |
Emla7
Początkujący
Dołączył: 28 Kwi 2007
Posty: 5
Przeczytał: 0 tematów
Ostrzeżeń: 0/3
|
| Temat postu: |
|
|
Hardcore sex!
[link widoczny dla zalogowanych]
Post został pochwalony 0 razy
|
|
| |
|
|
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
|
|
|
|
|
|
|
fora.pl - załóż własne forum dyskusyjne za darmo
Powered by phpBB © 2001, 2002 phpBB Group
|
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
Kody źródłowe 
