Kód: Vybrať všetko
program randomator;
uses crt,dos,SysUtils;
var
c:longint;
cont:boolean;
input:longint;
rand:longint;
subor:Text;
year,month,day,year1,month1,day1,hour,minute,second,hour1,minute1,second1,daco,daco1,daco2,daco3:word;
begin
while true do begin
ClrScr;
delay(50);
GetDate(year,month,day,daco);
GetTime(hour,minute,second,daco3);
c:=0;
rand:=0;
cont:=true;
write('Zadaj cislo: ');
readln(input);
while cont do begin
rand:=random(input*2);
random;
if rand=input then begin cont:=false; if c=0 then c:=1; end else c:=c+1;
end;
GetDate(year1,month1,day1,daco1);
GetTime(hour1,minute1,second1,daco2);
writeln('Hladal som cislo ',input,' | Pokusy: ',c,' | Hladal som od 0 do ',(input*2),' |');
writeln('Zaciatok: ',day:2,'/',month:2,'/',year:2,' | ',hour:2,':',minute:2,':',second:2);
writeln('Koniec: ',day1:2,'/',month1:2,'/',year1:2,' | ',hour1:2,':',minute1:2,':',second1:2);
Assign(subor,'randomator.txt');
if fileexists('randomator.txt') then append(subor) else rewrite(subor);
writeln(subor,'Hladal som cislo ',input,' | Pokusy: ',c,' | Hladal som od 0 do ',(input*2),' |');
writeln(subor,'Zaciatok: ',day:2,'/',month:2,'/',year:2,' | ',hour:2,':',minute:2,':',second:2);
writeln(subor,'Koniec: ',day1:2,'/',month1:2,'/',year1:2,' | ',hour1:2,':',minute1:2,':',second1:2);
writeln(subor,'-----------------------------------');
close(subor);
repeat delay(500) until keypressed;
end;
end.
Lenze mam problem, ked to poslem niekomu, tak mu stale vypluje rovnaky pocet pokusov. A hadanie mu trva rovnako dlho. Co je divne je to, ze mne to ide uplne normalne. A co je este divnejsie, aj ja, aj ten komu to nejde ako ma (ShepDog
), mame win 7 x64, teda uplne rovnaky operacny system.//edit: prikladam execko - ak vam nevytvori logovy subor, treba spustit ako administratora.
