не могу понять почему не правильно выводятся числа массива

[Nikitos_]

Program games;
uses crt,graph;
const
n=4;
type mas=array[1..n,1..n] of integer;

VAR gm,gd,ch,vx,vy,l:integer;
a:mas;

procedure zastavka;
begin
end;
procedure kvadrat(x,y,c,k:integer) ;
var i,j:integer;
begin
for i:=0 to k-1 do
for j:=0 to k-1 do
rectangle(x+i*c,y+j*c,x+i*c+c,y+j*c +c);
end;

procedure massiv;
var
b:array[1..n*n] of integer;
i,j,k,q,g: integer;
begin
randomize;
k:=0;
for i:=1 to 1 do
for j:=1 to 16 do
begin
inc(k);
b[k]:=j;
end;
for q:=1 to 16 do
begin
i:=random(15)+1;
g:=b[i];
j:=random(15)+1;
b[i]:=b[j];
b[j]:=g;
end;
k:=0;
for i:=1 to n do
begin
for j:=1 to n do
begin
inc(k);
a[i,j]:=b[k];
write(a[i,j]:6);
end;
writeln;
end;
writeln;
readln;
end;

procedure odin (x,y,h:integer);
var i,j,d:integer;
ds:string;
begin
for i:=0 to 4-1 do
for j:=0 to 4-1 do begin
d:=a[i,j];
str(d,ds);
if d<16 then
outtextXY (x+h div 2+h*j,y+h div 2+h*i, ds);
end;

end;
BEGIN
begin
gd:=detect;
Initgraph(gm,gd,'C:\TP7.1\TP\BGI');
vx:=180;
vy:=100;
l:=60;
ch:=4;
end;
massiv;
kvadrat(vx,vy,l,ch);
odin(vx,vy,l);
outtext('exit "enter"');
readln;
end.

[Poma][a]

код оформляй кнопкой с #, иначе он нечитабелен!

[Nikitos_]

Program games;
uses crt,graph;
const
n=4;
type mas=array[1..n,1..n] of integer;
 
VAR gm,gd,ch,vx,vy,l:integer;
a:mas;
 
procedure  zastavka;
 begin
 end;
procedure kvadrat(x,y,c,k:integer) ;
var i,j:integer;
begin
for i:=0 to k-1 do
for j:=0 to k-1 do
rectangle(x+i*c,y+j*c,x+i*c+c,y+j*c+c);
end;
 
procedure massiv;
var
b:array[1..n*n] of integer;
i,j,k,q,g: integer;
begin
randomize;
k:=0;
for i:=1 to 1 do
for j:=1 to 16 do
begin
inc(k);
b[k]:=j;
end;
for q:=1 to 16 do
begin
i:=random(15)+1;
g:=b[i];
j:=random(15)+1;
 b[i]:=b[j];
 b[j]:=g;
  end;
 k:=0;
 for i:=1 to n do
 begin
 for j:=1 to n do
 begin
 inc(k);
 a[i,j]:=b[k];
 write(a[i,j]:6);
 end;
 writeln;
 end;
 writeln;
readln;
end;
 
procedure odin (x,y,h:integer);
var i,j,d:integer;
ds:string;
begin
for i:=0 to 4-1 do
for j:=0 to 4-1   do    begin
d:=a[i,j];
str(d,ds);
if d<16 then
outtextXY (x+h div 2+h*j,y+h div 2+h*i, ds);
end;
 
end;
BEGIN
begin
gd:=detect;
Initgraph(gm,gd,'C:\TP7.1\TP\BGI');
vx:=180;
vy:=100;
l:=60;
ch:=4;
end;
massiv;
kvadrat(vx,vy,l,ch);
odin(vx,vy,l);
outtext('exit "enter"');
readln;
end.

[Nikitos_]

ну может всё таки кто нибудь сможет помочь? срочно надо

[Poma][a]

если не секрет, то что делает данная программа.

[Nikitos_]

это не вся программа а кусок, мне задали сделать игру пятнашки в этом куске программы массыв заполнения клеток рондомом , числа от 1 до 15, но у меня почемуто выводятся не все числа и они повторяются, я даже не знаю что сделать(

[Poma][a]

Вот... программа будет работать медленно (ОЧЕНЬ), но будет... (я и так впервые в 2-ух мерными работал... и с заданиями такого типа....)

function IntToStr ( t : Integer) : string;

begin
        Str (t, IntToStr);
end;

var
        a : array [1..4, 1..4] of Integer;
        rn, st : string; // repeats numbers
        i, j, t : Integer;

begin
        Randomize;

        rn := '';

        for i := 1 to 4 do begin
                for j := 1 to 4 do begin
                        t := Random (16);

                        while Pos (IntToStr (t), rn) <> 0 do
                                t := Random (16);

                        rn := rn + ' ' + IntToStr (t);
                        a[i, j] := t;
                end;
        end;

        a[i, j] := 0;
        for i := 1 to 4 do
                for j := 1 to 4 do
                        WriteLn (a[i, j]);


end.

[JIeIIIa]

var
   c:array [1..16] of byte;
   a:array [1..4,1..4] of byte;
   i, j, r, U:byte;

begin
   U:=16;
   for i:=1 to U do c[i]:=i;
   randomize;
   while U>1 do begin
       r:=random(U-1)+1;
       a[(U-1) div 4 +1, (U-1) mod 4 +1]:=c[r];
       for i:=r to U-1 do c[i]:=c[i+1];
       U:=U-1;
   end;
   a[1,1]:=c[1];
   for i:=1 to 4 do begin
      for j:=1 to 4 do write(a[i,j]:5);
      writeln;
   end;
   readln;
end.

Заполнит массив 4*4 случайным образом числами от 1 до 16.