Kód: Vybrať všetko

uses crt;
var  i,z,q,w :integer;
     pole:array[1..15,1..15] of integer;
begin
clrscr;
randomize;

 for i:=1 to 15 do
    begin
     for z:=1 to 15 do
      begin
       pole[i,z]:=0;

      end;
    end;


   for i:=1 to 15 do
    begin
     repeat
      q:=random(6)+1;
      w:=random(5)+1;
      if pole[q,w]=0 then pole[q,w]:=i;

     until pole[q,w]=i;
    end;


   for z:=1 to 15 do
    begin
     repeat
      q:=random(6)+1;
      w:=random(5)+1;
      if pole[q,w]=0 then pole[q,w]:=z;

     until pole[q,w]=z;
    end;

{to som si skusal ze ci fakt}
 writeln(pole[1,1]);
  writeln(pole[1,2]);
  writeln(pole[1,3]);
  writeln(pole[1,4]);
  writeln(pole[1,5]);
  writeln(pole[1,6]);
  writeln(pole[2,1]);
  writeln(pole[2,2]);
  writeln(pole[2,3]);
  writeln(pole[2,4]);
readln;

end.

Kód: Vybrať všetko

type lol=record
      meno:string;
      score:integer;
      end;
var
ff:file of lol;
 hrac : lol;
skore,meno1:string;

....
  reset(ff);         //tu som zapisoval nejake udaje//
        if IOResult<>0 then rewrite(ff);
       {$I+}
       hrac.meno:=meno1;
       hrac.score:=h;
       write(ff,hrac);
       close(ff);
.
.
.
//tu ich chcem prečitať na obrazovku//

  reset(ff);
  read(ff,hrac); //neviem čo tu mám použiť na vypisanie , upozornujem som v grafickom mode//
 
 close(ff);

Kód: Vybrať všetko

var
  dalej: Boolean;

for i := 1 to 30 do begin
  dalej := False;
  repeat
    q := random(6) + 1;
    w := random(5) + 1;
    if pole[q,w] = 0 then begin
      if i > 15 then
        pole[q,w] := i - 15
      else
        pole[q,w] := i;
      dalej := True;
    end;
  until dalej;
end;