[ Outline ] · Standard · Linear+ Zanimljivi Zadaci

[ex-paydoman]

1. zadatak:

u gradu a zziwi berberin koji brije one i samo one stanownike toga grada koji ne briju sami sebe. gde se nalazi grad a?

2. zadatak:

da li je istina da ako prodjete kroz dugu promenite pol?


zadao nam je prof. analize, prof. dr Ninoslaw Tjiritj

pa, reshawajte

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