Anonymní profil Anonymní uživatel – Programujte.com

To Mircosoft : dik moc ;) pomohol si mi

To Mircosoft :
no to je cast zdrojaku co si uverejnoval ty sam, ono to funguje dobre, len potrebujem vedet ako upravit toto

for i:=1 to IndexReseni do {pro kazde z nalezenych reseni:}
begin
write('reseni c. ',i,': (');
for bit:=0 to 11 do
begin
write ((NalezenaReseni[i] shr bit) and 1); {muzeme vypsat rovnou ten bit (0 nebo 1)}
if bit<11 then write(', '); {za kazdym krome posledniho napiseme carku}
end;
writeln(')');
end;

takze mam napriklad sudky 4l, 6l, 8l, 12l, 13l, 18l (z niektoreho objemu mam k dispozicii viac sudkov)
a potrebujem zmenit vypis na nieco co bude vypisovat riesenie v tvare :
Riesenie c. 3: (2, 3, 1, 0, 0, 0) /namiesto napriklad ( 1,1,0,0,1,1,1,0,1,0,0,0) /
kde cisla znamenaju pocet sudkov prislusneho objemu, pricom objem sudkov je uvedeny v zadani
tzn tento vypis znamena 2x 4l sud, 3x 6l sud, 1x 8l sud, a ostatne su nevyuzite.

To Mircosoft :
no ja s tym este neviem moc dobre robit a nechapem niektore veci. mohol by si sem hodit zdrojak toho? (ak to nestoji prilis vela casu :P) dik

Mircosoft napsal:b) Upravit vypis vysledku, aby se zobrazoval pocet sudu prislusneho objemu a ne jenom 1/0.