Forum taboret2 Strona Główna

taboret2
T2 script
 

Loser 1.0

 
Napisz nowy temat   Odpowiedz do tematu    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

PostWysł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
Zobacz profil autora
Wyświetl posty z ostatnich:   
Napisz nowy temat   Odpowiedz do tematu    Forum taboret2 Strona Główna -> Programy Delphi Wszystkie czasy w strefie EET (Europa)
Strona 1 z 1

 
Skocz do:  
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