Outline · [ Standard ] · Linear+ Zanimljivi Zadaci

[Anchi]

Resenje je 7. Nema sanse 8 nikako da se postavi

This post has been edited by Anchi: Feb 9 2007, 10:19 PM

[^_NiN0_^]

Nisam racunao da dama napada i po dijagonali! I ja mislim da je 7, tj mogu i da dokazem (mozda :s)

[Puzzler]

Samo isprobavajte...
Rešenje stiže u nedelju.

[pyost]

7 moze sigurno, to sam i nacrtao..


0 0 0 1 0 0 0 0
0 0 0 0 0 1 0 0
0 0 1 0 0 0 0 0
0 0 0 0 0 0 0 0
0 1 0 0 0 0 0 0
0 0 0 0 0 0 1 0
0 0 0 0 1 0 0 0
1 0 0 0 0 0 0 0


Mozda sam pogresio.. Nevazno, sada proveravam da li moze za 8

[Puzzler]

7 moze sigurno, to sam i nacrtao..


0 0 0 1 0 0 0 0
0 0 0 0 0 1 0 0
0 0 1 0 0 0 0 0
0 0 0 0 0 0 0 0
0 1 0 0 0 0 0 0
0 0 0 0 0 0 1 0
0 0 0 0 1 0 0 0
1 0 0 0 0 0 0 0


Mozda sam pogresio.. Nevazno, sada proveravam da li moze za 8

Jako dobro!!!
Ali, razmisliću da li sad da odam rešenje, ili ne.

[pyost]

Moze 8!!!!!!! Idem sada da veceram, dobijate resenja za 10 minuta

[Anchi]

Ma ja i dalje mislim da 8 ne moze

[Puzzler]

Evo!!!

Ko pogleda sliku, samo će mu se kaz'ti...

[pyost]

Ja sam to resio na drugaciji, malo neefikasniji nacin

CODE

program queen;

type
   tabla = array [1..8,1..8] of integer;

var
  a:tabla;
  i,j,p:integer;
  skup: set of 1..8;


function moze(i,j:integer;t:tabla):boolean;
var
  x,y:integer;
  help:boolean;
begin
    help:=true;

    for x:=1 to 8 do
        for y:=1 to 8 do
            if ((x=i) or (y=j) or (x-y=i-j) or (x+y=i+j)) and (t[x,y]=1) and not ((x=i) and (y=j))
                  then help:=false;

    moze:=help;
end;

function proveri:boolean;
var
  i,j:integer;
  help:boolean;
begin
    help:=true;

    for i:=1 to 8 do
        for j:= 1 to 8 do
            if a[i,j]=1 then if not moze(i,j,a) then help:=false;

    proveri:=help;
end;


begin

    randomize;

    p:=1;

    while p<100000 do
    begin

         for i:=1 to 8 do
             for j:=1 to 8 do
                a[i,j]:=0;

         skup:=[];

         for i:=1 to 8 do
         begin

              repeat
                    j:=random(8)+1;
              until not (j in skup);

              skup:=skup+[j];

              a[i,j]:=1;

         end;

         if proveri then
         begin
                 for i:=1 to 8 do
                 begin
                      for j:=1 to 8 do
                          write(a[i,j],' ');
                      writeln;
                 end;
                 writeln;
         end;

         p:=p+1;

    end;

    writeln('Kraj');
end.

Ovaj program proverava za 100000 random kobinacija, a neke se pri ispisu i ponavljaju.

[Puzzler]

Ja sam koristio samo papir i olovku

[pyost]

Mi ipak zivimo u 21. veku

[Puzzler]

Dobro, ovo baš nije iz analize, i mnogo je lako, ali evo...

CODE

Bašta je pravougaonog oblika. U Bašti se nalazi kamen. (joj, kako glupa postavka ) Ako je kamen od jednog temena bašte udaljen 4m, od drugog 13m, od trećeg 20m, koliko je udaljen od četvrtog?

[pyost]

16

[^_NiN0_^]

Ja sam to resio na drugaciji, malo neefikasniji nacin

CODE

program queen;

type
   tabla = array [1..8,1..8] of integer;

var
  a:tabla;
  i,j,p:integer;
  skup: set of 1..8;
function moze(i,j:integer;t:tabla):boolean;
var
  x,y:integer;
  help:boolean;
begin
    help:=true;

    for x:=1 to 8 do
        for y:=1 to 8 do
            if ((x=i) or (y=j) or (x-y=i-j) or (x+y=i+j)) and (t[x,y]=1) and not ((x=i) and (y=j))
                  then help:=false;

    moze:=help;
end;

function proveri:boolean;
var
  i,j:integer;
  help:boolean;
begin
    help:=true;

    for i:=1 to 8 do
        for j:= 1 to 8 do
            if a[i,j]=1 then if not moze(i,j,a) then help:=false;

    proveri:=help;
end;
begin

    randomize;

    p:=1;

    while p<100000 do
    begin

         for i:=1 to 8 do
             for j:=1 to 8 do
                a[i,j]:=0;

         skup:=[];

         for i:=1 to 8 do
         begin

              repeat
                    j:=random(8)+1;
              until not (j in skup);

              skup:=skup+[j];

              a[i,j]:=1;

         end;

         if proveri then
         begin
                 for i:=1 to 8 do
                 begin
                      for j:=1 to 8 do
                          write(a[i,j],' ');
                      writeln;
                 end;
                 writeln;
         end;

         p:=p+1;

    end;

    writeln('Kraj');
end.

Ovaj program proverava za 100000 random kobinacija, a neke se pri ispisu i ponavljaju.

Ja nisam ukapirao da ste vi postavili zadatak - tj Puzzler. I ja sam hteo da resim programerski, mada mrzelo me , a i zaboravio sam

[jeele]

0 0 0 1 0 0 0 0
0 0 0 0 0 1 0 0
0 0 1 0 0 0 0 0
0 0 0 0 0 0 0 1
0 1 0 0 0 0 0 0
0 0 0 0 0 0 1 0
0 0 0 0 1 0 0 0
1 0 0 0 0 0 0 0

eto tu moze osma...

[jeele]

dobro sad sam procitala i da je reseno...ali eto ovo je druga kombinacija...

drugi zadatak...16...

[pyost]

I to je reseno, al' nema veze, poklapaju nam se resenja

0 0 0 1 0 0 0 0
0 0 0 0 0 1 0 0
0 0 1 0 0 0 0 0
0 0 0 0 0 0 0 1
0 1 0 0 0 0 0 0
0 0 0 0 0 0 1 0
0 0 0 0 1 0 0 0
1 0 0 0 0 0 0 0

eto tu moze osma...

Jel' si sigurna

[jeele]

............
pa dooobro....malo sna je u mennbi...

[Eli0t]

Ovaj program proverava za 100000 random kobinacija, a neke se pri ispisu i ponavljaju.

Haha, i ti bese imas 5 iz informatike?

[pyost]

Imam, jel si ljubomoran mozda