TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
A neslo by to treba napsat nejak takto:
procedure spocitej(a,b,c,d)
begin
xm:=1000*a+100*b+10*c+d;
writeln('kombinace: ',xm);
end;
else if ((x3<x1) and (x1<x2) and (x2<x4)) then spocitej(x3,x1,x2,x4)
else if ((x3<x4) and (x4<x1) and (x1<x2)) then spocitej(x3,x4,x1,x2) ...
Pripadne pouzit pole a pak cyklem promichat jednotliva cisla?
a nebo predem udelat pole s cisly a to pouzit pro ify
cykus (cisla)
{ n = cisla[i]; if ( cislo[n[0]]<cislo[n[1]] and cislo[n[2]]<cislo[n[3]] and cislo[n[4]]<cislo[n[5]]) then begin spocitej(n[6]); break; end;}
cisla = [
/*x3<x1) and (x1<x2) and (x2<x4)) then spocitej(x3,x1,x2,x4*/
[3,1, 1,2, 2,4, [3,1,2,4]]
]
Pozor, mam to napsane castejne javascriptove a symbolicky, ale to si snad umis prepsat.
Nejsem si jisty, jestli 100.000 dokaze adresovat jeste jako array, pascal (na zacatku).
A ty randomy se mi taky nezdaji, co to ma delat, jestli se to treba nezacykli? Co kdybys popsal ukol, co ten program ma vlastne delat? Nahodne vygenerovat 4 neopakujici se cisla neni takovy problem, aby na to musel byt pouzity trojity repeat, ne?
