general2000vn
06-03-2003, 16:57
AI chỉ mình làm cái Pascal này với , mình định cho xoá (disable)từng ô (biến cell ) của bàn cờ vua (true là enable , false là disable) , sau đó báo kết quả , mà không biết sao nó chỉ chạy các hàng với mỗi mình cột 8 thôi à , giúp với , thanks.
PROGRAM Chess_cell;
VAR
hang,cot:INTEGER;
cell: ARRAY[1..8,1..8] OF Boolean;
BEGIN
{Xoa Ma Tran}
FOR hang:=1 TO 8 DO
BEGIN
FOR cot:=1 TO 8 DO
cell[hang,cot]:=FALSE;
IF cell[hang,cot]=FALSE THEN
BEGIN
WRITE('Da Xoa Xong Hang: ',hang,' Cot: ',cot);
READ;
END
ELSE
WRITE('Van chua xoa Hang: ',hang,' Cot: ',cot);
READ;
END;
END.
PROGRAM Chess_cell;
VAR
hang,cot:INTEGER;
cell: ARRAY[1..8,1..8] OF Boolean;
BEGIN
{Xoa Ma Tran}
FOR hang:=1 TO 8 DO
BEGIN
FOR cot:=1 TO 8 DO
cell[hang,cot]:=FALSE;
IF cell[hang,cot]=FALSE THEN
BEGIN
WRITE('Da Xoa Xong Hang: ',hang,' Cot: ',cot);
READ;
END
ELSE
WRITE('Van chua xoa Hang: ',hang,' Cot: ',cot);
READ;
END;
END.