Citat:
miki069: Ne baca lepo kocku.
While s<>21.
Pa i varijacija 2-2-2-5-5-5 ispunjava uslov S=21.
Kao i varijacija 1-2-2-4-6-6
Kao i varijacija 1-1-3-4-6-6
Nigde ne proveravas da su sve cifre razlicite.
ma sta mi rece...
Code:
...begin n:=0; s:=0;
while s<>21 do
begin
i:=random(7);
if i>0 then begin
a[i]:=i;s:=0; for z:=1 to 6 do s:=s+a[z] ;
end;
n:=n+1;
end;
zbir:=zbir+n; for l:=1 to 6 do a[l]:=0;
end;...
pogledaj malo bolje ovaj red
.
Generisano
se stavlja na i-to mesto u nizu a. Znaci npr. trojka na trece ,petica na peto ...Svaka sledeca trojka ili petica idu ponovo na ta dva mesta (menjaju prethodnu trojku ili peticu). Jednostavno prve 6 cifre u nizu
mogu biti samo ,redom 1,2,3,4,5,6. A ne ko sto si ti reko i 2-2-2-5-5-5. Dok sve 6 ne budu prisutne u nizu zbir nece biti 21 a ni experiment nece biti zavrsen. Znaci moj program ipak lepo baca kockicu...
[Ovu poruku je menjao cmar dana 01.07.2008. u 17:24 GMT+1]
Ulogovani ste. Username:cmar