Сделать, чтобы пустой квадрат был в нижнем правом углу (игра пятнашки)

[Nikitos_]

Как сделать чтобы пустой квадрат был в нижнем правом углу(игра пятнашки) а то он у меня как и все чила рондомом появляется

Program fift;
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
i,j,k: integer;
s: set of byte;
begin
s:=[];
randomize;
for i:=1 to n do   begin
for j:=1 to n do begin
repeat
k:=random(16)+1;
until not (k in s );
a[i,j]:=k; s:=s+[k];

end ;

end;
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+1,j+1];
str(d,ds);
if d<>16 then
outtextXY (x+h div 2+h*j,y+h div 2+h*i, ds);
end;

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

[s-andriano]

Начнем с того, что у Вас реализован неоптимальный алгоритм заполнения игрового поля.
Обычно сначала заполняют массив числами по порядку, а затем при помощи ДПСЧ перемешивают. В этом случае при перемешивании просто нужно исключить из перемешивания пустую ячейку.
Если не хочется переделывать программу, то можно оставить и Ваш алгоритм, исключив из него ячейку, которую предполагается оставить пустой и число, соответствующее пустой ячейке.

Кстати, хороший тон требует откомментировать программу прежде, чем размещать ее на форуме, а также сообщить необходимые детали реализации. Например, какое число соответствует пустой ячейке.

[Nikitos_]

дак ты сможешь помочь?

[s-andriano]

А разве я еще не помог?

[Nikitos_]

ну сможешь написать сам код?

[s-andriano]

Могу.
Но тогда это уже не будет помощью.

Кстати, в своем первом ответе я высказал некоторые пожелания существенные для продуктивного обсуждения темы. Но, похоже, они проигнорированы.

[Nikitos_]

Program fift;
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) {рисует таблицу 4 на 4}
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;{числа от 1 до 16 рондомом}
var
i,j,k: integer;
s: set of byte;
begin
s:=[];
randomize;
for i:=1 to n do   begin
for j:=1 to n do begin
repeat
k:=random(16)+1;
until not (k in s );
a[i,j]:=k; s:=s+[k];

end ;

end;
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+1,j+1];
str(d,ds);
if d<>16 then{не выводить 16, тоесть это и есть пустой квадрат}
outtextXY (x+h div 2+h*j,y+h div 2+h*i, ds);
end;

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

[s-andriano]

var a0 : array[0..15]of integer absolute a; // для наглядности делаем массив одномерным
begin
  for i := 0 to 15 do // заполняем ячейки костяшками
    a0[i] := i+1; // хотя лично мне кажется более логичным обозначать пустое место 0
  for i := 0 to 14 do begin // перемешиваем костяшки, не трогая последнюю ячейку
    j := random(15);
    tmp := a0[j];
    a0[j] := a0[i];
    a0[i] := tmp;
  end;

[Nikitos_]

мне то нужен двумерный массив, если можете то изменяйте в моей программе

[s-andriano]

1. Посмотрите внимательно мой код. Он подходит для случая, когда массив a двумерный.
2. Если хочется производить манипуляции с самим массивом a, а не с его псевдонимом, вычисляйте индексы.