[es] - zadatak...

dpanic
Dušan Panić
Loznica

Član broj: 676
Poruke: 756
*.beotel.net

Jabber: dpanic@elitesecurity.org
Sajt: www.znamo.se

Profil

zadatak...

^{11.04.2002. u 15:38}

pomoc...

Code:
{Samo da napomenem da sam paskal naucio pre 2 dana...a pre toga sam znao c :)
i jos uvek ga znam, tako da evo uvoda:

  Program treba da bude resenje sledeceg zadatka:
          Napisati program kojim se ispisuju sve mogucnosti da pri jednom
          bacanju tri kockice zbir brojeva bude dati broj S.
          NPR.: za S=5 sva resenja (bez ponavljanja) su 1,1,3 i 1,2,2

EH sada umoran sam previse da bih opisivao dizajn programa ali ko se imalo
razume shvatice...poentu

dARKmIND [darkfirexyu@yahoo.com]
}

program kockica;
uses Crt;
        type
            ia=array[1..6] of integer;
            ib=array[1..6] of integer;
            ic=array[1..6] of integer;
        var
           aa:ia;
           bb:ib;
           cc:ic;

        var
        kraj,na:shortint;

        var
        s,ss,r:0..15+3;
        a,b,c:integer;

        label pocetak;

              procedure nemanule(var a,b,c:integer);
              begin
              repeat
              if (a<=0) or (b<=0) or (c<=0) then
                      Randomize;
                       a:=random(6);
                       b:=random(6);
                       c:=random(6);
              until (a>0) and (b>0) and (c>0) and (a<=6) and (b<=6) and (c<=6);
              end;

begin

ClrScr;

writeln('Uneti s=');
readln(s);

     repeat
     if (s<3) or (s>18) or (s=0)  then
          readln(s);
     until (s>=3) and (s<=18);

  repeat
  Randomize;
    a:=random(6);
    b:=random(6);
    c:=random(6);

nemanule(a,b,c);

  r:=a+b+c;

   if (r=s) then a:=aa[na];
   if (r=s) then b:=bb[na];
   if (r=s) then c:=cc[na];
   if (r=s) then writeln('Rezultat:',aa[na],' ',bb[na],' ',cc[na],'             ',a,' ',b,' ',c);

       if (aa[na-1]=aa[na]) and (bb[na-1]=bb[na]) and (cc[na-1]=cc[na]) then
          na:=na-1

       else
          na:=na+1;

  until kraj = 1;

end.

http://www.svetlecereklame.net

^{11.04.2002. u 15:38}

BaCkSpAcE
vozim kamion (al' djubretarski)

Član broj: 10
Poruke: 519
*.dial.InfoSky.Net

ICQ: 319660682

Profil

Re: zadatak...

^{12.04.2002. u 01:49}

Ako ti znash ovde shta si ti uradio ili shta si hteo, svaka chast

Evo ti moj code za tvoj problem. Ceo code ce biti ravan tako da nece biti lep na oko (bar meni), ali vazno je da radi.

Code:

program kockica;
uses crt;
var s,a,b,c,i,j,k:integer;
               ch:char;
begin
     ClrScr;
     write ('Unesi brojku: ');
     read (s);
     if (s<3) or (s>18) then
     begin
          writeln ('Resenja');
          writeln ('********');
          writeln ('nema resenja');
     halt(1);
     end;

     for i:=1 to 6 do
     begin
          a:=i;
          for j:=1 to 6 do
          begin
               b:=j;
               for k:=1 to 6 do
               begin
                    c:=k;
                    if s=a+b+c then
                    begin
                         writeln ('Kombinacija: ',a,' ',b,' ',c);
                    end;
               end;
          end;
     end;
     readln (ch);
end.

^{12.04.2002. u 01:49}

dpanic
Dušan Panić
Loznica

Član broj: 676
Poruke: 756
*.verat.net

Jabber: dpanic@elitesecurity.org
Sajt: www.znamo.se

Profil

Re: zadatak...

^{12.04.2002. u 09:29}

hvala sinisa, znao sam da ces uraditi :))

http://www.svetlecereklame.net

^{12.04.2002. u 09:29}

pegazus
Stafan Tarana
Beograd

Član broj: 2413
Poruke: 52
*.25.EUnet.yu

Profil

Re: zadatak...

^{26.04.2002. u 22:56}

Ako bi se zadatak pa da glasi:

Napisati broj S na sve nacine:
1.kao sumu od K brojeva.(0<k<s)
2.kao sumu.

Onda bi ovo postao stvarno zanimljiv zadatak ovako .......

^{26.04.2002. u 22:56}

tomdam
Tomic Damjan
Beograd

Član broj: 2495
Poruke: 36
*.yubc.net

ICQ: 135970738
Sajt: localhost

Profil

Re: zadatak...

^{29.04.2002. u 04:08}

Samo mi nije jasno BaCkSPace zasto si u svom resenju koristio promenljive a,b i c
kad si opusteno mogao da iskoristis i,j,k i da kazes

......
If i+j+k=s then writeln('.......');
......

toliko
Pozdrav!

blog

^{29.04.2002. u 04:08}