Вам надо докончить программу ферзи вместо комментариев без скобок написать нужные действия.
Замечание надо чтобы только там писать где скобок нету в комментариях.
Дополнение если кому не буть нужны дополнительные переменные то может это сделать но написать коментария надо будет зачем они .
вот сама программка
program valdovės;
const n = 8;
type lenta = array [1..n, 1..n] of boolean;
var len: lenta;
jau: boolean;
function galima (len: lenta; x, y: integer): boolean;
begin
тут надо проверить можно ли на клеточке (x, y) ставить ферзя тоесть чтобы не один
другой ферзь не стояли на вертикальной,горизонтальной и на диагонали.
end;
procedure statyti (var len: lenta; { доска шахмат с отмечеными ферзями }
x: integer; { x-тая доски строчка }
var jau: boolean); { поставлен последний ферьзь }
var y: integer; {y-тая столбик}
begin
y := 0;
repeat
y := y + 1;
if galima (len, x, y) then
begin
len[x, y] := true;
if x = n
then jau = true { поставлен последний ферьзь }
else begin
if not jau then { если не все ферьзи поставлены }
рекурсионное обращение в процедуру statyti
end
end
until jau or (y = n)
end;
procedure spausdinti (len: lenta);
begin
печатаем всю доску (массив len) с ферзями на доске ферзи будут обозначатся буквой v а пустота знаком +
end;
begin {ферьзь}
масив len заполните значениеми весь false
jau := false;
statyti (len, 1, jau);
spausdinti (len)
end.
у меня в функции galima ошибка как я думаю
program valdoves;
const n = 8;
type lenta = array [1..n, 1..n ] of boolean;
var len: lenta;
jau: boolean;
var i,j:integer;
function galima (len: lenta; x, y: integer): boolean;
var z,x1,y1:integer;
begin
z:=0;
x1:=x;
y1:=y;
for i:=1 to n do
if len[x1,i]=true then inc(z);
for i:=1 to n do
if len[i,y1]= false then inc(z);
for i:=x1 to n do
for j:=y1 to n do
if len[i,j]=true then inc(z);
while (x1<>1) and (y1<>1) do
begin
dec(x1);
dec(y1);
if len[x1,y1]=true then inc(z);
end;
while (y1<>1) and (x1<>8) do
begin
inc(x1);
dec(y1);
if len[x1,y1]=true then inc(z);
end;
if z=0 then len[x,y]:=true;
end;
procedure statyti (var len: lenta; x: integer; var jau: boolean);
var y: integer;
begin
y := 0;
repeat
y := y + 1;
if galima (len, x, y) then
begin
len [x, y] := true;
if x = n
then jau:= true
else begin
if not jau then statyti(len,x+1,jau)
end
end
until jau or (y = n)
end;
procedure spausdinti (len: lenta);
begin
for i:=1 to n do
begin
for j:=1 to n do
if len[i,j] then write('+')
else write('v');
writeln;
end;
end;
begin
for i:=1 to n do
for j:=1 to n do
len[i,j]:= false;
jau := false;
statyti (len, 1, jau);
spausdinti (len);
readln
end.
Добавлено через 1 мин.
чегото я запутался в проверке по диагоналям
Сообщение отредактировано: maksimla -