Loser 1.0 - taboret2

	taboret2 T2 script
FAQ Szukaj Użytkownicy Grupy Galerie Rejestracja Profil Zaloguj

Loser 1.0

Forum taboret2 Strona Główna -> Programy Delphi

Zobacz poprzedni temat :: Zobacz następny temat

Autor

Wiadomość

Ludacris

Dołączył: 10 Paź 2009
Posty: 37
Przeczytał: 0 tematów

Pomógł: 1 raz
Ostrzeżeń: 0/5
Skąd: C:\WINDOWS\\System32

Wysłany: Śro 20:45, 31 Sie 2011 Temat postu: Loser 1.0

Kod:

// Loser ver. 1.0.0
// Wersja krótka demonstracyjna kodowania w języku Object Pascal
// By Ludacris

program Loser;

{$APPTYPE CONSOLE}

var
Tliczba : Byte;
Liczba : Integer;
begin
Writeln('Wpisz swoja liczbe od 0 do 20...');
Readln(Tliczba);

Randomize;

Liczba := Random(20);

if (Liczba = Tliczba) then
writeln('Dobrze ! Trafiles ! Wcisnij Enter Aby Zakonczyc')

else writeln('Sprobuj Nastepnym Razem... Wcisnij Enter Aby Zakonczyc');

readln;
end.

Post został pochwalony 0 razy

Ostatnio zmieniony przez Ludacris dnia Śro 20:46, 31 Sie 2011, w całości zmieniany 1 raz

Powrót do góry

Wyświetl posty z ostatnich:

	Forum taboret2 Strona Główna -> Programy Delphi	Wszystkie czasy w strefie EET (Europa)
Strona 1 z 1

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, 2005 phpBB Group
deoxBlue v1.0 // Theme created by Sopel stylerbb.net & programosy.pl

Regulamin