Anonymní profil Anonymní uživatel – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu

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

 

Příspěvky odeslané z IP adresy 85.216.222.–

Anonymní uživatel
Pascal › Uloha v pascale
16. 12. 2007   #58673

To Mircosoft : dik moc ;) pomohol si mi

Anonymní uživatel
Pascal › Uloha v pascale
11. 12. 2007   #58179

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.

Anonymní uživatel
Pascal › Uloha v pascale
11. 12. 2007   #58110

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

Anonymní uživatel
Pascal › Uloha v pascale
10. 12. 2007   #58009

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


a ako sa to da spravit?

 

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032022 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý