[es] - zadatak...

anon676

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

Profil

^{11.04.2002. u 15:38 - pre 268 meseci}

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 [[email protected]]
}

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.

Odgovor na temu

BaCkSpAcE

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

Profil

Re: zadatak...

^{12.04.2002. u 01:49 - pre 268 meseci}

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.

Odgovor na temu

anon676

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

Profil

Re: zadatak...

^{12.04.2002. u 09:29 - pre 268 meseci}

hvala sinisa, znao sam da ces uraditi :))

Odgovor na temu

pegazus
Beograd

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

Profil

Re: zadatak...

^{26.04.2002. u 22:56 - pre 267 meseci}

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 .......

Odgovor na temu

tomdam
Tomic Damjan
Beograd

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

ICQ: 135970738
Sajt: localhost

Profil

Re: zadatak...

^{29.04.2002. u 04:08 - pre 267 meseci}

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

Odgovor na temu