Ovo ti je program da vrti tri broja... Ako hoces vise, samo dodas vise for petlji, ili napravi podprogram sa for petljom pa onda to guras u for petlju za broj kombinacija a u for-u stavis koji broj kombinacija oces...
I cisto radi preglednosti sam dodao ukoliko je broj dvocifren da kombinacije prise sa razmakom...
Code:
program permutacija;
var n,x,y,z,space:integer;
begin
space := 0;
writeln ('Unesite broj N: ');
readln (n);
if n > 9 then space := 1;
for x:=0 to n do
begin
for y:=0 to n do
begin
for z:=0 to n do
begin
if space > 0 then
begin
writeln ('Kombinacija br.',x,': ',x,' ',y,' ',z);
end
else
begin
writeln ('Kombinacija br.',x,': ',x,y,z);
end;
end;
end;
end;
writeln ('--------------- Kraj.');
end.
Registrovani: 95 ( jorga, goxy2101, tdusko, kokica71, dexter86, yu1ny, hogar strašni, milanzemunac, gladiac, alexx_sandra, rafiki, lnick, spulkan, Sava, nixx.., aleksazr, Informer, producer011, jnk, VBscout, radovic, Veš Mašina, bantes9, Braksi, pena2008, commando, nenadjow, Duka_, nikko, nidza_nis, StfnMM, magnat, mrbocvana, valjan, niceness, Branko Santo, mladeni, Radovi, digitalsat, zarkocgyus, bogdan.kecman, jesus alejandro, lakson, shegy, janus, krsticv, arsicd, ZAS011, krle_zr, Lazar-I, explicit123, botr, gaggy04, slavkot, hobbista, maxxex, mraz, dakipro, DSL, Neznalica_sa_ugla, az1976, foxhunter1, pesek, pl4stik, Moreplovac, SirPsycho, Darkomaxi, Emil Ranc, ksale321, dejans78, polov, dejande, elaki, __Mrgud__, klima.z, gogi100, misoja, losmipfc, despot77, Aineko, RonJ, valerijan, Miki_kos84, JankoNIS, ekof9, Odin D., salexab, riotgrrrlMia, ndejann, morihei ueshiba, negyxo, Urkelele, deerbeer, Nemke_BG, milivoje t )
Zadatak: permutacije brojeva
Re: Zadatak: permutacije brojeva