pomoc s jednym cvicením Pascal

kimar

ahojte potreboval by som poradit so smestralnou pracou cez turbo pascal

Pretekár automobilových závodov dosiahol po niekoľkých pretekoch určitý bodový zisk (za každý pretek určitý počet bodov).

Úloha 1: Vypočítajte programom a zobrazte na obrazovke všetky možnosti (kombinácie), ako bolo možné dosiahnuť aktuálny bodový zisk z jednotlivých pretekov (nezáleží na poradí).

Úloha 2: Vypočítajte programom a zobrazte na obrazovke "najúspešnejšiu" možnosť (alebo možnosti), v ktorom (ktorých) získal pretekár najväčší počet prvých umiestnení v pretekoch.

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

Celkový dosiahnutý bodový zisk: 25 bodov

Počet pretekov, ktorých sa pretekár zúčastnil: 5

Počet bodovaných miest v každom preteku: 5

Bodovanie za poradie v preteku: 1. miesto=6 bodov, 2. miesto=5 bodov, 3. miesto=4 body, 4. miesto=3 body, 5. miesto=2 body, ostatné miesta sú nebodované

dakujem pekne

Charger

prvak UCM??

ja to uz mam... praca na 5 minut.. 5x for cyklus a mas kombinacie + daka podmienka

grays

heeej aj ja som

, caute kluci. Ale no charger bud trosku vyrecnejsi s tou ulohou. iba trosku viac popis

mirom11

Ale mohli by ste to tu trochu viac rozpisat

ved pomahat si treba ne?

Charger

keby ste chodili na prednsky a cvicenia tak s tym nemate problem, nieje to nic viac. ja ti sem nepastnem moj zdrojak, nech ti ho da niekto iny, ale na skuske z programovania vyleti najviac ludi zo skoly. to upozornoval horal ze to netreba podcenovat ale to uz nieje moj problem. ked si nedokazes sam spravit tuto jednoduchu ulohu tak na skole s IT zameranim nemac co robit...

snake2

to som robil mojmu byvalemu spoluzakovi , co tam chodi

Kód: Vybrať všetko

program semestralka; {nazov programu, sklada sa z jednoslovneho pomenovania}
var {var-zaciatok deklaracie premennych pouzivanych v programe}
i,j,k,l, mozn {<-premenne pouzite v programe} : integer; {integer- vsetky premenne v programe su tohto typu, premnne mozu nadobudat hodnoty v intervale od -32768 do 32767}
prve : array [1..100] of integer;
begin   {zaciatok tela programu}
 writeln('Program PRETEKAR, zadanie c. xxx, riesitel: snake2 :P'); {writeln- vypisanie textu a posunitie kurzora o radok nizsie}
 writeln('Celkovo ziskanych: 25 bodov, odjazdenych 6 pretekov.');
 writeln('Za 1. miesto: 7 bodov.');
 writeln('Za 2. miesto: 5 bodov.');
 writeln('Za 3. miesto: 4 body.');
 writeln('Za 4. miesto: 2 body.');
 writeln; mozn:=0;
 for i:= 0 to 6 do
    for j:= 0 to 6 do
        for k:= 0 to 6 do
            for l:=0 to 6 do
                 if ((i*7 + j*5 + k*4 + l*2) = 25 ) and ((i+j+k+l)<=6)
                     then
                       begin
                        mozn:=mozn+1;
                        writeln('Moznost c.',mozn,': ',i,'x, ',j,'x, ',k,'x, ',l,'x ');
                        prve[mozn]:=i;
                       end;
 writeln;
 writeln('Celkovy pocet moznosti je: ',mozn);
 writeln('Najviac 1. miest je: ',prve[mozn]);
 write('Najuspesnejsie moznosti: ');
 for i:=1 to mozn do
     if (prve[i]=prve[mozn]) then write(i,'., ');
 readln;
end.

ale inak kazdy, co nespravi aspon rozbor tejto ulohy samostatne, tak nema co na UCM robit , aj ked je to skola s kvalitami niekde

Charger

snake2 napísal:to som robil mojmu byvalemu spoluzakovi , co tam chodi

Kód: Vybrať všetko

program semestralka; {nazov programu, sklada sa z jednoslovneho pomenovania}
var {var-zaciatok deklaracie premennych pouzivanych v programe}
i,j,k,l, mozn {<-premenne pouzite v programe} : integer; {integer- vsetky premenne v programe su tohto typu, premnne mozu nadobudat hodnoty v intervale od -32768 do 32767}
prve : array [1..100] of integer;
begin   {zaciatok tela programu}
 writeln('Program PRETEKAR, zadanie c. xxx, riesitel: snake2 :P'); {writeln- vypisanie textu a posunitie kurzora o radok nizsie}
 writeln('Celkovo ziskanych: 25 bodov, odjazdenych 6 pretekov.');
 writeln('Za 1. miesto: 7 bodov.');
 writeln('Za 2. miesto: 5 bodov.');
 writeln('Za 3. miesto: 4 body.');
 writeln('Za 4. miesto: 2 body.');
 writeln; mozn:=0;
 for i:= 0 to 6 do
    for j:= 0 to 6 do
        for k:= 0 to 6 do
            for l:=0 to 6 do
                 if ((i*7 + j*5 + k*4 + l*2) = 25 ) and ((i+j+k+l)<=6)
                     then
                       begin
                        mozn:=mozn+1;
                        writeln('Moznost c.',mozn,': ',i,'x, ',j,'x, ',k,'x, ',l,'x ');
                        prve[mozn]:=i;
                       end;
 writeln;
 writeln('Celkovy pocet moznosti je: ',mozn);
 writeln('Najviac 1. miest je: ',prve[mozn]);
 write('Najuspesnejsie moznosti: ');
 for i:=1 to mozn do
     if (prve[i]=prve[mozn]) then write(i,'., ');
 readln;
end.

ale inak kazdy, co nespravi aspon rozbor tejto ulohy samostatne, tak nema co na UCM robit , aj ked je to skola s kvalitami niekde

pojdes za neho aj na skusku?

snake2

ne , cele riesenie sme prebrali

.. ale s tym uz skusenosti mam a povim , ze nikdy viac. take stresy mi netreba

Charger

ved vidim, ze si mu to okomentoval ako keby bol dement

{writeln- vypisanie textu a posunitie kurzora o radok nizsie}

snake2

to som nekomentoval ja , ale uz ten dotycny

Charger

aj tak pochybujem ze sa bude chciet mu kontrolovat 200 programov

mirom11

hmmm zaujimave inak diky za pomoc

Charger

ja to mam podobnym sposobom len trochu profesionalnejsie

Frko · Príspevok od používateľa **Frko** » 08 dec 2008, 16:17

[quote="Charger"]keby ste chodili na prednsky a cvicenia tak s tym nemate problem, nieje to nic viac. ja ti sem nepastnem moj zdrojak, nech ti ho da niekto iny, ale na skuske z programovania vyleti najviac ludi zo skoly. to upozornoval horal ze to netreba podcenovat ale to uz nieje moj problem. ked si nedokazes sam spravit tuto jednoduchu ulohu tak na skole s IT zameranim nemac co robit...[/quot

ak si z ucm,,, tak ti je potom hej ak mas horala na cviceniach,,,, chod ale ku inym na cvicenia,, a uvidis ze tam sa do kopy nikto nic nenauci,, viem co vravim som prvak,,, a ak sa mam priznat aj ja sa trapim s touto ulohou,,, ale pomalicky postupujem

snad to spravim

Charger

nemam cvicenia s horalom. programovat ta nik nenauci, musis sa sam.

imro_zakruta

neviem ale ucit sa pascal na vysokej skole, mno neviem ci to ma zmysel v tejto dobe

Frko · Príspevok od používateľa **Frko** » 09 dec 2008, 23:40

no kedze nas to ucia daky to urcite bude mat,,, a k tomu programovaniu ano berem ze sa to musis ucit sam,,, ale mam radsej ked mi niekto vysvetli preco to pouzivam,, a aky to ma vysledok ked to nepouzijem,, ako ked to mam bezducho hadzat

gwixt · Príspevok od používateľa **gwixt** » 10 dec 2008, 8:40

imro_zakruta napísal:neviem ale ucit sa pascal na vysokej skole, mno neviem ci to ma zmysel v tejto dobe

ber to tak ze sa ucis programovat a nie pascal

Marto

Charger napísal:keby ste chodili na prednsky a cvicenia tak...

Bol som veru na prednaske(stala za dve veci), ale ti, co videli programko prvy krat a su externi, su mierne v prdeli. Inak som uz dobre dlho nevidel normalny TP a neprogramoval som v nom vobec. Nasupkovat si ho do VBoxu a vidiet rozhranie bolo celkom fun. Aspon vidno ako je na tom nase skolstvo, ked musi pouzivat dosacke programiky...

Charger

nemusis pouzivat dosacke prostredie... kod mozes pisat v notepade a potom ho skompilovat.

co mas proti dosackemu prostrediu?? je uplne jedno v com pises program ked vies programovat.