Pascal POMOC

Laam · Príspevok od používateľa **Laam** » 27 nov 2009, 18:49

pozri si pretekara script a 3/4 mas hotove.

Kalinko

Laam napísal:pozri si pretekara script a 3/4 mas hotove.

c-ice · Príspevok od používateľa **c-ice** » 28 nov 2009, 0:38

Kalinko napísal:

Ja som tiež nepochopil že o čom to tam píše aky "skript pretekára" však robíte v pascale a tam skripty nerobíte a myslím si že nejaky skript ti nepomôže ale možno chcel povedat program to by davalo zmysel

xxroloxx

c-ice napísal:Ja som tiež nepochopil že o čom to tam píše aky "skript pretekára" však robíte v pascale a tam skripty nerobíte a myslím si že nejaky skript ti nepomôže ale možno chcel povedat program to by davalo zmysel

Pokial som to ja správne pochopyl tak myslel že si máš, či skorej máme pozrieť skriptá a tam je zdrojový kood na program pretekar, to je v podstate taky isty program ako tá pila

i ked ešte sem tam tam niečo zmenit...

c-ice

xxroloxx napísal:Pokial som to ja správne pochopyl tak myslel že si máš, či skorej máme pozrieť skriptá a tam je zdrojový kood na program pretekar, to je v podstate taky isty program ako tá pila i ked ešte sem tam tam niečo zmenit...

nie to nebolo isto pre mna asi si nečítal par postov hore a tieto zaklady mám už dost dávno za sebou takže to bolo pre vas z UCM...

Kalinko

no a kde najdem ten program ,,pretekar"?

//autoeditácia príspevku ( 02 Dec 2009, 22:25 )
uz som to nasiel

...
len skoda ze z tejto mojej som uuplny debil...
ak by sa nasla nejaka dobra dusa a mala by chvilu volneho casu tak by sa mohla na to pozriet..verim ze sa niekto najde, lebo som z toho debil
a priznavam ze to neviem

//autoeditácia príspevku ( 02 Dec 2009, 23:42 )
este mam otazku.. ako prevediem text z pascalu napriklad do word padu

otvoríš ten pas súbor vo wordpade

Kalinko

pani moze ten program vyzerat takto?

Kód: Vybrať všetko

program semestralka;
var
a,b,c,d,e, mozn : integer;
prve : array [1..100] of integer;
begin
 writeln('Celkova dlzka kmenu stromu: 270 cm, pocet narezanych kusov : max.5');
 writeln('1. rez: 70 cm');
 writeln('2. rez: 60 cm');
 writeln('3. rez: 50 cm');
 writeln('4. rez: 30 cm');
 writeln('5. rez: 20 cm');
 writeln; mozn:=0;
 for a:= 0 to 5 do
    for b:= 0 to 5 do
        for c:= 0 to 5 do
            for d:=0 to 5 do
                 if ((a*70 + b*60 + c*50 + d*30 + e*20) = 270 ) and ((a+b+c+d+e)<=5)
                     then
                       begin
                        mozn:=mozn+1;
                        writeln('Moznost c.',mozn,': ',a,'x, ',b,'x, ',c,'x, ',d,'x ',e,'x ');
                        prve[mozn]:=a;
                       end;
 writeln;
 writeln('Celkovy pocet moznosti je: ',mozn);
 writeln('Najziskovejsia moznost je: ',prve[mozn]);
 write('Najuspesnejsie moznosti: ');
 for a:=1 to mozn do
     if (prve[a]=prve[mozn]) then write(a,'., ');
 readln;
end.

áno, tak vypadá pascal

Kalinko

no ale myslim ten moj program ... to zadanie

//autoeditácia príspevku ( 03 Dec 2009, 11:30 )
no do p---!!! Nevychadza mi to.... Malo by to vyjst takto ->

Dlzka kmena: 270 cm, maximalne narezanych 5 kusov.
Kus c. 1: 70 cm.
Kus c. 2: 60 cm.
Kus c. 3: 50 cm.
Kus c. 4: 30 cm.
Kus c. 5: 20 cm.

Moznost c. 1: 0x, 2x, 3x, 0x, 0x
Moznost c. 2: 0x, 4x, 0x, 1x, 0x
Moznost c. 3: 1x, 0x, 4x, 0x, 0x
Moznost c. 4: 1x, 2x, 1x, 1x, 0x
Moznost c. 5: 1x, 3x, 0x, 0x, 1x
Moznost c. 6: 2x, 0x, 2x, 1x, 0x
Moznost c. 7: 2x, 1x, 1x, 0x, 1x
Moznost c. 8: 3x, 0x, 0x, 2x, 0x
Moznost c. 9: 3x, 1x, 0x, 0x, 0x

Celkovy pocet moznosti: 9
Najviac najdlhsich kusov: 3
Najcennejsie moznosti: 8., 9.

A MNA TO TAK NEVYCHADZA ....NEMOHLI BY STE SA NIEKTO NA TO POZRET A ZISTI KDE MAM CHYBU ???

xxroloxx

Kalinko napísal:no ale myslim ten moj program ... to zadanie

//autoeditácia príspevku ( 03 Dec 2009, 11:30 )
no do p---!!! Nevychadza mi to.... Malo by to vyjst takto ->

Dlzka kmena: 270 cm, maximalne narezanych 5 kusov.
Kus c. 1: 70 cm.
Kus c. 2: 60 cm.
Kus c. 3: 50 cm.
Kus c. 4: 30 cm.
Kus c. 5: 20 cm.

Moznost c. 1: 0x, 2x, 3x, 0x, 0x
Moznost c. 2: 0x, 4x, 0x, 1x, 0x
Moznost c. 3: 1x, 0x, 4x, 0x, 0x
Moznost c. 4: 1x, 2x, 1x, 1x, 0x
Moznost c. 5: 1x, 3x, 0x, 0x, 1x
Moznost c. 6: 2x, 0x, 2x, 1x, 0x
Moznost c. 7: 2x, 1x, 1x, 0x, 1x
Moznost c. 8: 3x, 0x, 0x, 2x, 0x
Moznost c. 9: 3x, 1x, 0x, 0x, 0x

Celkovy pocet moznosti: 9
Najviac najdlhsich kusov: 3
Najcennejsie moznosti: 8., 9.

A MNA TO TAK NEVYCHADZA ....NEMOHLI BY STE SA NIEKTO NA TO POZRET A ZISTI KDE MAM CHYBU ???

Ved to už vam tam chyba dopísat len zopar jednoduchych riadkov do zdrojaku a mate to hotve... JA, to už mam

)

Kalinko

no a jakych riadkov ?

leader

ja mam tu istu semestralku len ine zadanie

prosim ta hodte to sem kto nasiel chybu,prosim vas a na tie A4 mame co popisat, to mas?do sukromnej spravy ti pisem moj email.ozvi sa

Gregi · Príspevok od používateľa **Gregi** » 04 dec 2009, 2:37

Prepacte za upravu, ale za to moze tento system (rozhadzuje to ako sa mu chce)

Kód: Vybrať všetko

Program PILA;
uses Crt;
const
  kusov=5;
  dlzka=270;
var
  r1,r2,r3,r4,r5,r6,out,i,x: Integer;
  p: array [1..10] of Integer;

BEGIN
  ClrScr;
  WriteLn ('program: PILA');
  WriteLn;
  WriteLn ('Dlzka kmena: ',dlzka,' cm, maximalny pocet narezanych kusov: ',kusov);
  WriteLn ('Kus c.1: 70 cm');
  WriteLn ('Kus c.2: 60 cm');
  WriteLn ('Kus c.3: 50 cm');
  WriteLn ('Kus c.4: 30 cm');
  WriteLn ('Kus c.5: 20 cm');
  WriteLn;
  for r1:= 0 to 5 do
    for r2:= 0 to 5 do
      for r3:= 0 to 5 do
        for r4:= 0 to 5 do
          for r5:= 0 to 5 do
            for r6:= 0 to 5 do
              if (r1+r2+r3+r4+r5+r6=kusov) then
	    if (70*r1+60*r2+50*r3+30*r4+20*r5=dlzka) then begin
	      x:=succ(x);
	      WriteLn ('Moznost c.',x,': ',r1,'x, ',r2,'x, ',r3,'x, ',r4,'x, ',r5,'x');
	      out:=r1;
	      p[x]:=r1;
	    end;
  WriteLn;
  WriteLn ('Celkovy pocet moznosti: ',x);
  WriteLn ('Najviac prvych miest  : ',out);
  Write ('Najlepsia moznost     : ');
  for i:=1 to x do
    if p[i]=out then Write (i,'. ');
  ReadLn;

END.

uprava na poziadavku. Inak skus sa nad tym zamysliet, preco tam nie je m6 pri tom nasobeni (ale neverim, ze to spravis

)

Kalinko

super...toto je to co som potreboval.
Len tam musim este upravit to, ze ABY SOM TU DLZKU KMENA NEMUSEL ZADAVAT JA ,ALE ABY TO TAM UZ BOLO, TYCH 270CM. NEVIEM KDE TO TAM MAM UPRAVIT ABY TO SPRAVNE FUNGOVALO.
POPROSIM RADU,DIKY.

//autoeditácia príspevku ( 04 Dec 2009, 14:17 )
...no uz som to opravil
GREGI DIKY MOC, POMOHOL SI MI

mastnaciga

Kalinko napísal: super...toto je to co som potreboval.
Len tam musim este upravit to, ze ABY SOM TU DLZKU KMENA NEMUSEL ZADAVAT JA ,ALE ABY TO TAM UZ BOLO, TYCH 270CM. NEVIEM KDE TO TAM MAM UPRAVIT ABY TO SPRAVNE FUNGOVALO.
POPROSIM RADU,DIKY.

//autoeditácia príspevku ( 04 Dec 2009, 14:17 )
...no uz som to opravil
GREGI DIKY MOC, POMOHOL SI MI

to si fakt až taký tupý? načo si šiel vôbec na informu keď "pascal je tvoj nepriateľ" ? by som bol zvedavý ako chceš spraviť skúšku keď sa na také triviálne hovadiny pýtaš... zbytočne chodíš na Ucm ... teraz by si mal byť radšej niekde za pásom a zarábať lóve. uniká ti dôchodok chlapče

mastnaciga napísal:to si fakt až taký tupý? načo si šiel vôbec na informu keď "pascal je tvoj nepriateľ" ? by som bol zvedavý ako chceš spraviť skúšku keď sa na také triviálne hovadiny pýtaš... zbytočne chodíš na Ucm ... teraz by si mal byť radšej niekde za pásom a zarábať lóve. uniká ti dôchodok chlapče

Informatika na UCM nestojí za vela, tak sa nedivím že chodí práve tam. (už len to že robia v pascale hovorí o úrovni tej informatiky)

audiotrack napísal:Informatika na UCM nestojí za vela, tak sa nedivím že chodí práve tam. (už len to že robia v pascale hovorí o úrovni tej informatiky)

to ze sa tam berie pascal nie je az taka tragedia, ale to ze riesenie jednoduchych zadani je pre studenta/studentov taky problem tragedia uz je

sundevil napísal:to ze sa tam berie pascal nie je az taka tragedia, ale to ze riesenie jednoduchych zadani je pre studenta/studentov taky problem tragedia uz je

skôr som chcel poukázať na to, že na tú informatiku sa dostaneš bez skúšok, berú tam (aj vo vyšších ročníkoch) to čo sme mali na strednej a vela iných vecí ktoré podporujú to že študenti sú takýto ^
(a to že robia v pascale aj trošku vadí, lebo potom sa nikdy nestretnú s niečim ako OOP, návrhové vzory /factory, singleton, decorator.../ a podobne, a bez toho sa v programovaní nedá zaobísť. Pascal je tak dobrý na strednú, no na výške už určite nie)

v tom mas pravdu, vacsinu tychto zadani (co sa tu vo velkom teraz objavuju)som pred par rokmi riesil ako stredoskolak a pokial je skola kde sa to vyucuje este v ramci bc/ing studia tak je to na zamyslenie
pascal som mal aj ja vyske, ale ked porovnam tieto zadania tak my sme robili o dost zlozitejsie veci a nielen par riadkove programy

Pascal POMOC

Odpoved