Anonymní profil jurad – Programujte.com

#25 JoDiK
krokuju a pri krocich pri ruznych vystupech padnu bud tam nebo tam

 V:= V - ( (V div (rozmer krabice[k]*rozmer krabice[k]*rozmer krabice[k] ) )  * (rozmer krabice[k]*rozmer krabice[k]*rozmer krabice[k]) 

a 

  V:= V - ( (V div (rozmer krabice[l]*rozmer krabice[l]*rozmer krabice[l] ) )  * (rozmer krabice[l]*rozmer krabice[l]*rozmer krabice[l]) )

me to hlasi chybu system_handleerroraddrframe$longint$pointer$pointer a system handle error  frame$longint$pointer$pointer a 

#22 JoDiK
chyba 215 nevis co to je?

#19 JoDiK
krokovani by tam melo fungovat stejne jak to tam delas?

#16 JoDiK
pouzivam free pascal 

blbe sem to napsal vcera mi to chyby vypisovalo kde jsou ted mi to vypise chyby ze tam jsou ale nevybehne takovej ten ramecek kde ti pise kde jsou

#14 JoDiK
jak se to dela pres to neumim to 

#12 jurad
#11 JoDiK
nevis nahodou proc se me furt ten pascal stve ze jednou vypise chyby pri completaci a nekdy ne?

#11 JoDiK
pupravoval jsem to ted pro rychlost v textovym poly jinak pochopitelne ze ne

#7 JoDiK

begin
clrscr;
rozmer krabice[1]:=20;
rozmer krabice[2] := 40;
rozmer krabice[3] :=60;
rozmer krabice[4] := 80;
rozmer krabice[5]:=100;
rozmer krabice[6] :=120;
V:=1728000;
p:=0;
for i:=1 to 6 do
readln (pocet krabic[i]);

for i:=1 to 6 do

writeln (rozmer krabice[i], ' ');
  p:=pocet krabic[6];
for j:=5 downto 1 do   begin      {delam dokud mam krabici}
   while (pocet krabic [j]<>0) do begin
         pocet krabic [j]:=pocet krabic[j]-1;

            V:=V-(rozmer krabice[j]*rozmer krabice[j]*rozmer krabice[j] ) ;
            k:=j;
           if (k>1) then
           for k:=j-1 downto 1  do  begin
            if (V mod (rozmer krabice[k] * rozmer krabice[k]*rozmer krabice[k]) = 0 )then begin
               pocet krabic[k]:= rozmer kabice [k] - (V div (rozmer krabice[k]*rozmer krabice[k]*rozmer krabice[k]) );
                V:= V - ( (V div (rozmer krabice[k]*rozmer krabice[k]*rozmer krabice[k] ) )  * (rozmer krabice[k]*rozmer krabice[k]*rozmer krabice[k]) ) end
            else
                 if (k>1) then
                 for l:=k-1 downto 1 do begin
                 pocet krabic[l]:= rozmer krabice[l] - (V div (rozmer krabice[l]*rozmer krabice[l]*rozmer krabice[l]) )   ;
                 V:= V - ( (V div (rozmer krabice[l]*rozmer krabice[l]*rozmer krabice[l] ) )  * (rozmer krabice[l]*rozmer krabice[l]*rozmer krabice[l]) )  end;end;

            V:=1728000;

            end;      end;
                         writeln (p);
            readln
            end.

takze takhle to tucne sem opravil pac si myslim ze v tom byla take ta chyba

#7 JoDiK
nechtelo me to vzit 120*120*120 proto i kdyz nechapu duvod proc 

#4 JoDiK
to prave nemuzu jinak to bude hazet chybu tak to musim prepsat 

#2 JoDiK

pointa je ta ze do B davam pocty tech krabic a do A musim dat ty rozmery to se dopisoval proto tam jsou obcas chyby ale zapominal jsem na komenty tak se v tom uz stracim takze kazdej postreh je dobrej

caute mam ukol 

Továrna expeduje své výrobky v krabicích tvaru krychle. Používá 6 velikostí krabic, a to krabice o hraně velikosti 20 cm, 40 cm, 60 cm, 80 cm, 100 cm a 120 cm. Zabalené výrobky se odvážejí v paletách, které mají tvar krychle o hraně 120 cm.

Na standardním vstupu je zadáno šest kladných celých čísel (z rozsahu typu integer), která představují počty jednotlivých druhů krabic připravených na odvoz v pořadí od nejmenších krabic po největší krabice. Určete, jaký minimální počet palet je třeba použít k odvozu všech těchto krabic s výrobky.

Krabice se při ukládání do palet nesmějí nijak deformovat. Výsledkem výpočtu je jediné celé číslo představující počet potřebných palet, program ho vypíše na standardní výstup.

uses crt;
var      b: array [1..6] of longint;
         a: array [1..6] of longint;
         p,i,j,k,l,V:longint;

begin
clrscr;
a[1]:=20;
a[2] := 40;
a[3] :=60;
a[4] := 80;
a[5]:=100;
a[6] :=120;
V:=1728000;
p:=0;
for i:=1 to 6 do
readln (a[i]);

for i:=1 to 6 do

writeln (a[i], ' ');
  p:=b[6];
for j:=5 downto 1 do   begin      {delam dokud mam krabici}
   while (b[j]<>0) do begin
           a [j]:=b[j]-1;
                        p:=p+1;
            V:=V-(a[j]*a[j]*a[j] ) ;
            k:=j;
           if (k>1) then
           for k:=j-1 downto 1  do  begin
            if (V mod (a[k] * a[k]*a[k]) = 0 )then begin
                b[k]:= b[k] - (V div (a[k]*a[k]*a[k]) );
                V:= V - ( (V div (a[k]*a[k]*a[k] ) )  * (a[k]*a[k]*a[k]) ) end
            else
                 if (k>1) then
                 for l:=k-1 downto 1 do begin
                 b[l]:= a[l] - (V div (a[l]*a[l]*a[l]) )   ;
                 V:= V - ( (V div (a[l]*a[l]*a[l] ) )  * (a[l]*a[l]*a[l]) )  end;end;

            V:=1728000;

            end;      end;
              write ('ahoj');
            writeln (p);
            readln
            end.

nechce se mi to pocitat a nevim kam dat pocitadlo popripade nemuzu najit logickou chybu v tom muzete me poradit?