встроенные функции,использование записей и файлов

[OLesechka300490]

помогите пожалуйста решить задачу,вообще ума не приложу((((
Поля шахматной доски характеризуются записью
Type
Pole=record
Vera,b,c,d,e,f,g,h); {вертикальные координаты}
Hor:1..8; {горизонтальные координаты}
end;

Вывести шахматную доску, пометив крестиками все поля, которые «бьет» ферзь, стоящий на поле с координатами Ver и Hor , и ноликами – остальные поля.

[eoln]

Можно так

type pole=record
   ver: 'a'..'h';
   hor: 1..8;
end;
var
  xy: pole;
  i: byte;
  j: char;
begin
   write('x, y == '); readln(xy.ver, xy.hor);
   for i:=1 to 8 do begin
     for j:='a' to 'h' do
        if (xy.ver=j) or (xy.hor=i) or (ord(j)-ord(xy.ver)=i-xy.hor)
        or (ord(j)-ord(xy.ver)=xy.hor-i)
        then write('x ') else write('o ');
     writeln
   end;
   readln
end.

[SunKnight]

Лучше использовать 2-у мерный массив MAS:array [1..8,1..8] of ..; Ферзь бьет весь столбец и строку и диогонали( главную и побочную). Допустим Ф[4,3] (3 это c) значит выделяеш все ячейки
For i:=1 to 8 do
MAS[4,i]:='Х';
MAS[i,3]:='X';

а затем и диогонали.

[OLesechka300490]

да я бы с радостью так сделала,но надо именно с помощью записи...

спасибо,только как это потом на экран в делфи вывести с помощью чего?

[eoln]

Так там с помощью записи и сделано
В Delphi делаем консольное приложение и всё. Если надо оконное приложение, то then write('x ') else write('o '); writeln заменяем на

memo1.text:=memo1.text+'x ' else memo1.text:=memo1.text+'0 ';
memo1.lines.add('');

А лучше StringGrid использовать

[Stilet]

А лучше StringGrid использовать

Поддерживаю. Вот даже примерчик могу показать, который отрисовывает клетки которые под боем ферзя. Мышой выбирается клетка (она красным подсвечивается) и от нее все зеленые - боевые

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    procedure FormResize(Sender: TObject);
    procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormResize(Sender: TObject);
begin
StringGrid1.DefaultColWidth:=Width div 8-10;
StringGrid1.DefaultRowHeight:=Height div 8-10;
StringGrid1.Align:=alClient;
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
StringGrid1.Invalidate;
if (ACol=StringGrid1.Col)or(ARow=StringGrid1.Row)
 or (abs(ACol-StringGrid1.Col)=abs(ARow-StringGrid1.Row)) then
 StringGrid1.Canvas.Brush.Color:=clGreen
else
 StringGrid1.Canvas.Brush.Color:=clBtnFace;
if (ACol=StringGrid1.Col)and(ARow=StringGrid1.Row) then
 StringGrid1.Canvas.Brush.Color:=clRed;

StringGrid1.Canvas.FillRect(Rect);
end;

end.