Tom001
Nowy
Dołączył: 19 Lut 2008
Posty: 1
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
Skąd: Znikąd
|
 Wysłany: Wto 20:06, 19 Lut 2008 Temat postu: Aplikacja Losująca w Free Pascal nie chce sie skompilowac |
|
|
Zrobilem mala aplikacje losujaca a free pascal nie chce mi jej skompilować.
Nie wiem gdzie jest blad. Zalaczam listing.
| Kod: | PROGRAM TOTOLOTEK;
USES Dos,Crt;
var
a1,a2,a3,a4,a5,a6,losowanietoto : integer;
begin
TextBackground(white);
Clrscr;
TextColor(Black);
CrlScr;
readln(a1);
Writeln('DrugĄ:');
readln(a2);
writeln('TrzeciĄ');
readln(a3);
writeln('CzwartĄ');
readln(a4);
writeln('PiĄtĄ:');
readln(a5);
writeln('I ostatniĄ, sz˘stĄ:');
readln(a6);
gotoxy(30,13);
writeln('LOSOWANIE...');
Delay(10000);
gotoxy(30,14);
writeln('MAMY WYNIKI!');
writeln;
writeln;
Randomize;
losowanietoto := Random(49);
write(losowanietoto);
writeln(' to pierwsza liczba!');
if a1 = losowanietoto
then writeln('Poprawnie obstawiles pierwszĄ liczbe wygrales 4 000 000zl!')
else writeln('Niestety, pierwsza obstawiona przez ciebie liczba nie zgadza si© z pierwszĄ wylosowanĄ liczbĄ!');
readln;
Randomize;
losowanietoto := Random(49);
write(losowanietoto);
writeln(' to druga liczba!');
if a2 = losowanietoto
then writeln('Poprawnie obstawiles drugĄ liczbe wygrales 4 000 000zl!')
else writeln('Niestety, druga obstawiona przez ciebie liczba nie zgadza si© z drugĄ wylosowanĄ liczbĄ!');
readln;
Randomize;
losowanietoto := Random(49);
write(losowanietoto);
writeln(' to trzecia liczba!');
if a3 = losowanietoto
then writeln('Poprawnie obstawiles trzeciĄ liczbe wygrales 4 000 000zl!')
else writeln('Niestety, trzecia obstawiona przez ciebie liczba nie zgadza si© z trzeciĄ wylosowanĄ liczbĄ!');
readln;
Randomize;
losowanietoto := Random(49);
write(losowanietoto);
writeln(' to czwarta liczba!');
if a4 = losowanietoto
then writeln('Poprawnie obstawiles czwartĄ liczbe wygrales 4 000 000zl!')
else writeln('Niestety, czwarta obstawiona przez ciebie liczba nie zgadza si© z czwartĄ wylosowanĄ liczbĄ!');
readln;
Randomize;
losowanietoto := Random(49);
write(losowanietoto);
writeln(' to piĄta liczba!');
if a5 = losowanietoto
then writeln('Poprawnie obstawiles piĄtĄ liczbe wygrales 4 000 000zl!')
else writeln('Niestety, piĄta obstawiona przez ciebie liczba nie zgadza si© z piĄtĄ wylosowanĄ liczbĄ!');
readln;
Randomize;
losowanietoto := Random(49);
write(losowanietoto);
writeln(' to sz˘sta liczba!');
if a6 = losowanietoto
then writeln('Poprawnie obstawiles sz˘stĄ liczbe wygrales 4 000 000zl!')
else writeln('Niestety, sz˘sta obstawiona przez ciebie liczba nie zgadza si© z szostĄ wylosowanĄ liczbĄ!');
readln;
writeln('KONIEC STUDIA TOTOLOTKA! Zapraszamy za tydzieä!');
readln;
end;
end. |
Post został pochwalony 0 razy
Ostatnio zmieniony przez Tom001 dnia Wto 20:07, 19 Lut 2008, w całości zmieniany 1 raz
|
|
