Даны координаты полей шахматной доски (х1, у1) и (х2, у2), где х1, у1, х2, у2 - это целые числа в диапазоне от 1 до 8, п

[kostya_hor]

Даны координаты полей шахматной доски (х1, у1) и (х2, у2), где х1, у1, х2, у2 - это целые числа в диапазоне от 1 до 8, при этом координата х соответствует буквенном кода поля, а координата у - числовом . Например, е2 - это (5, 2), а 3 - (1, 3), f6 - (6, 6). Поле с координатами (1,1) - черное. Определить, является ли данное поле черным.



У меня есть готовое задание в паскале,но мне нужно переделать его на Делфи и расставить елементы
я пытался сделать так

var
x,y,f:byte;

begin
Memo1.Clear;
x:=StrToFloat(LabeledEdit1.Text);
y:=StrToFloat(LabeledEdit2.Text);
f:=(NOT odd(x+y));
Memo1.Lines.Add(FloatToStr(f));

end;

но оно не работает



а это паскаль

var
x, y: byte;
begin
writeln('Vvedite koordinaty polya shahmatnoj doski (1-8):');
write('x = ');
readln(x);
write('y = ');
readln(y);
writeln;
writeln(Not odd(x + y));
readln

[Аватар]

А Float пробовал перевести? Или почитать о функции StrToFloat?

[kostya_hor]

Вот если нужно,то уже ответ.

procedure TForm2.Button1Click(Sender: TObject);
var
x,y:integer;
begin
Memo1.Clear;
x:=StrToInt(LabeledEdit1.Text);
y:=StrToInt(LabeledEdit2.Text);
if odd(x+y) then Memo1.Lines.Add('Поле біле')
else Memo1.Lines.Add('Поле чорне');
end;