A Győztes!!!
Sajnos a tetves YT nem volt hajlandó felölteni még mindig a videót, ezért nem várok tovább. Amint feltöltötte kirakom ebbe a bejegyzésbe. Hamarosan vissaz áll minden a régi kerék vágásba, de lesz még 1-2 hírem;)
De ami mindenkit izgat a nyerte nem más mint: Millenotti!
Videó a sorsolásról(rakjátok fel 1080p-re úgy lehet látni is valamit):
Köszönöm mindenkinek aki jelentkezett!!
Reméljük lesz még ilyen, úgyhogy senki ne keseregjen!
Gratulálunk neki, felvesszük vele a kapcsolatot, és hamarosan megkapja a pólóját.
A sorsoló program forráskódja: (Free Pascallal lehet megnyitni)
program sorsolo;
uses crt;
var cimek : array of string;
x,y,i,z : byte;
sorsolt : set of byte;
begin
repeat
clrscr;
writeln('H ny n‚v? [1-255]: ');
readln(x);
until x in [1..255];
Setlength(cimek,x);
randomize;
repeat
clrscr;
writeln('H ny nevet sorsoljak ki [1-',x,']: ');
readln(y);
until y in [1..x];
clrscr;
writeln('Az adatok felvitele következik...');
for i:=0 to x-1 do
begin
write(i+1,'. N‚v: ');
Readln(cimek[i]);
end;
clrscr;
writeln('A sorsol s k”vetkezik...');
i:=1;
repeat
z:=random(x);
if not (z in sorsolt) then
begin
include(sorsolt,z);
writeln(i,'Nyertes neve : ',cimek[z]);
inc(i);
end;
until i>y;
Setlength(Cimek,0);
end.
Vagy innen letölthető:http://data.hu/get/2991821/ke.pas.html
A bejegyzés trackback címe:
Kommentek:
A hozzászólások a vonatkozó jogszabályok értelmében felhasználói tartalomnak minősülnek, értük a szolgáltatás technikai üzemeltetője semmilyen felelősséget nem vállal, azokat nem ellenőrzi. Kifogás esetén forduljon a blog szerkesztőjéhez. Részletek a Felhasználási feltételekben és az adatvédelmi tájékoztatóban.
Millenotti · http://minecraftskill.blog.hu/ 2010.09.20. 19:36:57
Ó fakk! :D Isty, a varázskezű! XD 4 cetliből reméltem, hogy kihúzod az egyiket! x) Kösz! :P
Isty01 · http://cyanideandhappiness.blog.hu/ 2010.09.20. 19:40:04
Amúgy kérlek írd meg a chmagyarul@gmail.com címre, hogy milyen póló, milyen méret, cím, név , telószám stb.
Pepike92 2010.09.20. 19:43:58
Voodoo. · http://voodoo.blog.hu/ 2010.09.20. 19:46:58
Millenotti · http://minecraftskill.blog.hu/ 2010.09.20. 19:47:33
Millenotti · http://minecraftskill.blog.hu/ 2010.09.20. 20:53:29
Erevis · http://erevis.posterous.com/ 2010.09.20. 21:25:38
Millenotti · http://minecraftskill.blog.hu/ 2010.09.20. 21:43:31
Zsír, kaptam a vidiben egy "Gratulálunk" feliratot, már megérte! XD De csak nekem volt olyan sz*r 1080p-ben is, hogy a háttérben a fájlok neve arab betűknek tűnt?
Isty01 · http://cyanideandhappiness.blog.hu/ 2010.09.20. 21:51:39
@Erevis: Én is gondoltam rá hogy ha meg lesz a pólója küldhetne magáról képet, hogy legyen valami reklámarc:D
Millenotti · http://minecraftskill.blog.hu/ 2010.09.20. 21:53:00