51
Škola / Odg: Pismeni, informatika
Poslednja poruka Carce - Decembar 20, 2012, 10:14:10 pre podnePopusite mi ga!!! JEL SAM REKAO DA RADIM 1.?????
52
Škola / Odg: Pismeni, informatika
Poslednja poruka Quickfap the Jebivetar - Decembar 20, 2012, 10:14:03 pre podneCedomire... Cedomire Cedo Che. You'd really love to see the world burn, wouldm't you?
53
Škola / Odg: Pismeni, informatika
Poslednja poruka the Pera - Decembar 20, 2012, 10:13:35 pre podne2 zadatak mentolu jedan,ne prvi JAOOO
54
Škola / 1. zadatak
Poslednja poruka Carce - Decembar 20, 2012, 10:12:56 pre podneprogram zadatak1;
type
TypeByteSet= set of byte;
var
n,x:byte;
k,i:integer;
byteSet:TypeByteSet;
procedure generisi (n:byte; var byteSet:TypeByteSet; var x:byte);
var
t,nt:byte;
jeJedini:boolean;
begin
nt:=n;
x:=random(n);
jeJedini:=true;
for t in byteSet do begin
if t=x then jeJedini:=false;
end;
include(byteSet,x);
if jeJedini=true then begin
writeln(x)
end else begin
generisi(nt, byteSet, x);
end;
end;
begin
Randomize;
write('Unesite N: ');
Readln(n);
write('Unesite K:');
Readln(k);
for i:=1 to k do generisi(n, byteSet, x);
Readln();
end.
type
TypeByteSet= set of byte;
var
n,x:byte;
k,i:integer;
byteSet:TypeByteSet;
procedure generisi (n:byte; var byteSet:TypeByteSet; var x:byte);
var
t,nt:byte;
jeJedini:boolean;
begin
nt:=n;
x:=random(n);
jeJedini:=true;
for t in byteSet do begin
if t=x then jeJedini:=false;
end;
include(byteSet,x);
if jeJedini=true then begin
writeln(x)
end else begin
generisi(nt, byteSet, x);
end;
end;
begin
Randomize;
write('Unesite N: ');
Readln(n);
write('Unesite K:');
Readln(k);
for i:=1 to k do generisi(n, byteSet, x);
Readln();
end.
55
Škola / Odg: Pismeni, informatika
Poslednja poruka the Pera - Decembar 20, 2012, 10:09:18 pre podneCEDO!!!!!!!!!
56
Škola / Odg: Pismeni, informatika
Poslednja poruka Quickfap the Jebivetar - Decembar 20, 2012, 10:07:44 pre podneCOME ON GUYS.
57
Škola / Odg: Pismeni, informatika
Poslednja poruka Quickfap the Jebivetar - Decembar 20, 2012, 10:07:20 pre podneBloooooody heeeeeelllll.
58
Škola / Odg: Pismeni, informatika
Poslednja poruka Quickfap the Jebivetar - Decembar 20, 2012, 10:05:23 pre podneSSSSSHHHHHHIIIIIII-
59
Škola / Odg: Pismeni, informatika
Poslednja poruka Microsoft - Decembar 20, 2012, 10:03:21 pre podneCeda je fapovao na steker, tako da nije tu.
Ne mogu da stignem da vam otkucam na telefonu.
Ne mogu da stignem da vam otkucam na telefonu.
60
Škola / Odg: Pismeni, informatika
Poslednja poruka Quickfap the Jebivetar - Decembar 20, 2012, 10:00:45 pre podneTime ticks, ticks away.