Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

zadatak...

[es] :: Pascal / Delphi / Kylix :: zadatak...

[ Pregleda: 4468 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

dpanic
Darko Pavlovic

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



Profil

icon zadatak...11.04.2002. u 15:38 - pre 246 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

icon Re: zadatak...12.04.2002. u 01:49 - pre 246 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

dpanic
Darko Pavlovic

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



Profil

icon Re: zadatak...12.04.2002. u 09:29 - pre 246 meseci
hvala sinisa, znao sam da ces uraditi :))
 
Odgovor na temu

pegazus
Beograd

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



Profil

icon Re: zadatak...26.04.2002. u 22:56 - pre 245 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

icon Re: zadatak...29.04.2002. u 04:08 - pre 245 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!
 
Odgovor na temu

dpanic
Darko Pavlovic

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



Profil

icon Re: zadatak...29.04.2002. u 13:48 - pre 245 meseci
ma to je radio na brzinu... :)) tako da nije to ni bilo bitno
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: zadatak...

[ Pregleda: 4468 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.