| |
Turbo Pascal Twoje źródło wiedzy o Turbo Pascalu. |
|
|
|
|
|
 |
Wto 16:55, 28 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: Wyższa - niższa |
|
|
PROSTA GRA TEKSTOWA. UŻYTKOWNIK DECYDUJE JAKA BĘDZIE NASTĘPNA WYLOSOWANA LICZBA WYŻSZA, CZY NIŻSZA OD POPRZEDNIEJ.
| Kod: | program wyzsza_nizsza;
{$APPTYPE CONSOLE}
uses
SysUtils,
crt;
var
liczba: byte;
znak: char;
nowaliczba: byte;
razy: byte;
koniec: char;
procedure sprawdzaj; forward;
procedure wypisz; forward;
procedure start;
var
x, y: byte;
begin
x := 19;
y := 10;
clrscr;
gotoxy(32,13);
textcolor(lightred);
gotoxy(x,y); write(' #### ### ##### ### #### # ');
gotoxy(x,y+1);write(' # # # # # # # # #');
gotoxy(x,y+2);write(' #### ##### ### ##### ### #');
gotoxy(x,y+3);write(' # # # # # # # # #');
gotoxy(x,y+4);write(' # # # # # # # #### ####');
delay(4000);
clrscr;
gotoxy(4,y); write(' #### #### ##### ##### #### #### ##### ### # # # ###');
gotoxy(4,y+1);write(' # # # # # # # # # # # # # # # # #');
gotoxy(4,y+2);write(' #### #### # ### # # ### # ##### # # # # #####');
gotoxy(4,y+3);write(' # # # # # # # # # # # # # # # # #');
gotoxy(4,y+4);write(' # # # ##### ##### #### #### # # # ### # # #');
delay(4000);
clrscr;
textcolor(lightgreen);
wypisz;
end;
procedure wypisz;
begin
clrscr;
liczba := nowaliczba;
writeln ('Ostatnia liczba to: ',liczba);
writeln;
repeat
write ('Jaka bedzie nastepna? (<;>;=): ');
readln (znak);
until (znak = '>') or (znak = '<') or (znak = '=');
sprawdzaj;
end;
function losuj: byte;
begin
randomize;
losuj := random (100) + 1;
end;
procedure sprawdzaj;
begin
nowaliczba := losuj;
if (nowaliczba = liczba) and (znak = '=') then
begin
writeln;
writeln ('Zgadles! Moja liczba to ',nowaliczba);
razy := razy + 1;
readln;
wypisz;
end
else if (liczba > nowaliczba) and (znak = '<') then
begin
writeln;
writeln ('Zgadles! Moja liczba to ',nowaliczba);
razy := razy + 1;
readln;
wypisz;
end
else if (liczba < nowaliczba) and (znak = '>') then
begin
writeln;
writeln ('Zgadles! Moja liczba to ',nowaliczba);
razy := razy + 1;
readln;
wypisz;
end
else
begin
writeln;
writeln ('Moja liczba to: ', nowaliczba);
writeln;
writeln ('Zgadywales ',razy, ' razy!');
writeln;
write ('Przegrales! Nowa gra? (T)ak, (N)ie: ');
razy := 0;
readln (koniec);
koniec := upcase(koniec);
case koniec of
'T': start;
'N': halt;
end;
end;
end;
begin
start;
end. |
Aby pobrać wersję exe, kliknij :arrow: [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 
