Hľadať  •  FAQ  •  IP  •  Zoznam užívateľov  •  Karma  •  Závisláci  •  Registrácia  Prihlásiť sa pre kontrolu súkromných správ  •  Prihlásenie program v pascale        Obsah fóra www.hojko.com -> Programovanie Choď na stránku 1, 2  Ďalšia    Moje príspevky :: Zobraziť predchádzajúcu tému :: Zobraziť nasledujúcu tému   Autor Správa D4K4P0 Novice Pohlavie: Stav: Založený: 04.12.2007 Príspevky: 5 Karma:     Zaslal: 04 Dec 2007, 15:10    Predmet: program v pascale   mohli by ste mi pomoct vyriest tento problem? Všeobecné zadanie Vinár má k dispozícii sud vína. Obsah tohto suda chce bezozbytku rozliať do ďalších súdkov tak, aby súdok bol buď naplnený doplna, alebo aby nebol použitý vôbec. Vinár môže mať k dispozícii viac súdkov toho istého objemu. Úloha 1: Vypočítajte programom a zobrazte na obrazovke všetky možné riešenia (kombinácie), ako je možné pôvodný objem sudu bezozbytku rozliať do ďalších súdkov. Úloha 2: Vypočítajte programom a zobrazte na obrazovke optimálne riešenie (alebo riešenia), v ktorom (ktorých) je použitých najmenší počet súdkov. Poznámka: Riešenie musí zobraziť výstup na obrazovke spôsobom, ako je ukázané nižšie. Nemeňte svojvoľne výstup programu, sťažujete tým kontrolu správnych výsledkov. Konkrétne zadanie Počet litrov vína k dispozícií: 24 Počet rôznych druhov sudov: 3 Jednotlivé sudy k dispozícii: 7x 4-litrový sud , 4x 8-litrový sud , 2x 12-litrový sud Vzorové riešenie Program SUDY Celkovy objem vina: 24 litrov 1. typ sudku - objem: 4 L, pocet sudkov: 7 2. typ sudku - objem: 8 L, pocet sudkov: 4 3. typ sudku - objem: 12 L, pocet sudkov: 2 Riesenie c. 1: (0, 0, 2) Riesenie c. 2: (0, 3, 0) Riesenie c. 3: (1, 1, 1) Riesenie c. 4: (2, 2, 0) Riesenie c. 5: (3, 0, 1) Riesenie c. 6: (4, 1, 0) Riesenie c. 7: (6, 0, 0) Celkovy pocet rieseni: 7 Optimalny pocet sudkov: 2 Optimalne riesenia: 1. Poznámka: Riešenie (0, 0, 2) znamená použitie 0 súdkov s veľkosťou 4 litrov, 0 súdkov s veľkosťou 8 litrov a 2 súdkov s veľkosťou 12 litrov. Návrat hore juho Light Star Stav: Založený: 11.05.2007 Príspevky: 215 Karma:     Zaslal: 04 Dec 2007, 18:31    Predmet:   cykly cykly vsetkych moznosti. jak obvykle....no co uz sa to asi nezmeni Kód: uses crt; var a,b,c:byte;     opt,kolke,ries,cele:word; begin opt:=7*4*2; ries:=0; cele:=24; clrscr; for a:=0 to 7 do for b:=0 to 4 do for c:=0 to 2 do if(a*4+b*8+c*12=cele) then begin inc(ries); if(opt>a+b+c) then begin opt:=a+b+c;kolke:=ries;                    end; writeln('Riesenie c. ',ries,': (',a,',',b,',',c,')');                            end; writeln('---------vysledky---------'); writeln('Celkovy pocet rieseni: ',ries); writeln('Optimalny pocet sudkov: ',opt); writeln('Optimalne riesenie: ',kolke,'.'); end. Návrat hore chrono VIP Pohlavie: Stav: Založený: 25.12.2006 Príspevky: 4600 Karma:     Zaslal: 05 Dec 2007, 0:41    Predmet:   Program ti urobí hocikto, ale dvojstránkovú dokumentáciu ti pravdepodobne neurobí nikto. juho: správnych výsledkov môže byť aj viac Návrat hore juho Light Star Stav: Založený: 11.05.2007 Príspevky: 215 Karma:     Zaslal: 05 Dec 2007, 16:22    Predmet:   chrono napísal: juho: správnych výsledkov môže byť aj viac kolko este? mozes vysvetlit preco? tymi spravnymi vysledkami myslis optimalne riesenia ? Návrat hore chrono VIP Pohlavie: Stav: Založený: 25.12.2006 Príspevky: 4600 Karma:     Zaslal: 05 Dec 2007, 23:36    Predmet:   Áno, myslel som optimálne riešenia. Napr. číslo 45 môžeš mať ako 15+15+15 alebo 17+17+11. Čiže to ukladanie optimálnych hodnôt musíš vyriešiť inak (jedna premenná nestačí). Návrat hore juho Light Star Stav: Založený: 11.05.2007 Príspevky: 215 Karma:     Zaslal: 06 Dec 2007, 14:59    Predmet:   oj nato som nemyslel, ale pozri sa na zadanie nie je tam 15 11 17 ale .... . a cez premenne sa hentake nieco robi tazko. akurat string alebo pole. Návrat hore chrono VIP Pohlavie: Stav: Založený: 25.12.2006 Príspevky: 4600 Karma:     Zaslal: 07 Dec 2007, 1:35    Predmet:   Pri tých vstupných parametroch bude iba jedno optimálne riešenie, ale vo výpise sa ráta s tým, že ich môže byť viac (optimálne parametre), takže by to tak asi malo byť aj naprogramované. Návrat hore juho Light Star Stav: Založený: 11.05.2007 Príspevky: 215 Karma:     Zaslal: 07 Dec 2007, 14:40    Predmet:   tak ako by si to potom spravil_? ano je to pravda no sice sa rata aj s viacerymi rieseniami ale rata sa s nimi len v zatvorke Návrat hore chrono VIP Pohlavie: Stav: Založený: 25.12.2006 Príspevky: 4600 Karma:     Zaslal: 07 Dec 2007, 17:13    Predmet:   Presne ako si písal. Buď by som použil reťazec, alebo pole. Návrat hore D4K4P0 Novice Pohlavie: Stav: Založený: 04.12.2007 Príspevky: 5 Karma:     Zaslal: 16 Dec 2007, 21:53    Predmet:   takze to co si napisal nie je spravne? inac dik ze si sa aspon snazil vazim si to Návrat hore juho Light Star Stav: Založený: 11.05.2007 Príspevky: 215 Karma:     Zaslal: 17 Dec 2007, 16:17    Predmet:   D4K4P0 napísal: takze to co si napisal nie je spravne? inac dik ze si sa aspon snazil vazim si to ale co by nebolo je to spravne len tu mame debatu ze keby bolo upne ine zadanie, cize ine vahy a ina cielova hmotnost, tak by sa mohlo stat ze bude viac "optimalnych rieseni" co pri tomto nebude ale keby tak by sa to muselo osetrit. a teda o poliach tam v tvojom nic nepisu ani o dalsich a ten priklad je urceny na jedno takze nevidim problem. a o vine uz ani debaty Návrat hore D4K4P0 Novice Pohlavie: Stav: Založený: 04.12.2007 Príspevky: 5 Karma:     Zaslal: 18 Dec 2007, 11:22    Predmet:   hehe ok dik moc welmi si mi pomohol Návrat hore Diestro Expert Pohlavie: Stav: Založený: 29.01.2006 Príspevky: 157 Karma:     Zaslal: 25 Dec 2007, 22:32    Predmet:   D4K4P0, prvak na UCM, co. By si nemal takto riesit semestralku Návrat hore keny8899 Amateur Pohlavie: Stav: Založený: 24.10.2005 Príspevky: 30 Bydlisko: TT Karma:     Zaslal: 31 Dec 2007, 14:25    Predmet:   ja som ju robil podstivo sam aj dokumentaciu toto ma nenapadlo ale nemam s tym problem nastastie UCM rulezz Návrat hore D4K4P0 Novice Pohlavie: Stav: Založený: 04.12.2007 Príspevky: 5 Karma:     Zaslal: 04 Máj 2008, 16:45    Predmet:   Diestro napísal: D4K4P0, prvak na UCM, co. By si nemal takto riesit semestralku no mas pravdu chodim na UCM len to programovanie mi nejako nejde Návrat hore Zobraziť príspevky z predchádzajúcich: Všetky príspevky1 deň1 týždeň2 týždne1 mesiac3 mesiace6 mesiacov1 rok Najskôr najstaršieNajskôr najnovšie  Časy uvádzané v GMT + 1 hodina        Obsah fóra www.hojko.com -> Programovanie Choď na stránku 1, 2  Ďalšia Strana 1 z 2   Prejdi na: Zvoľte fórum Informácie a pravidlá----------------!!! INFO !!! Diskusia----------------VtipyLáska, vzťahy, priateľstvoPolitikaŠportKultúra (film, hudba, tv, rádio...)Život, štýl, cestovanie...Voľná diskusiaPripomienky a návrhyHľadámOstatné Počítače----------------HardwareSoftwareHryInternet a sieteGrafika, video a zvukProgramovanieLinuxOverclocking a tuning PCPomocPoradňa pri kúpeBazárOstatné (PC)NávodyKôš Mobilné zariadenia----------------Mobilné telefóny, PDA, Smartphone  Nemôžete odosielať nové témy do tohto fóra Nemôžete odpovedať na témy v tomto fóre Nemôžete upravovať svoje príspevky v tomto fóre Nemôžete mazať svoje príspevky v tomto fóre Nemôžete hlasovať v tomto fóre Nemôžete pripájať súbory do tohto fóra Môžete sťahovať súbory v tomto fóre Powered by phpBB © 2005 phpBB Group, phpBB SEO, © Hojko 2004-2008 [ Vygenerované za: 0.1s ] :: [ 16 Queries ] :: [ 36,896 stránok za dnes ] :: [ Dnes DB: 677,602 ] :: [ Max DB: 2,334,336 Queries ]