Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.05.2018, 21:33   #1
kostya_hor
Пользователь
 
Регистрация: 23.05.2018
Сообщений: 58
По умолчанию Даны координаты полей шахматной доски (х1, у1) и (х2, у2), где х1, у1, х2, у2 - это целые числа в диапазоне от 1 до 8, п

Даны координаты полей шахматной доски (х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
Изображения
Тип файла: png Безымянный.png (8.4 Кб, 35 просмотров)
kostya_hor вне форума Ответить с цитированием
Старый 23.05.2018, 21:50   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

А Float пробовал перевести? Или почитать о функции StrToFloat?
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 23.05.2018, 21:50   #3
kostya_hor
Пользователь
 
Регистрация: 23.05.2018
Сообщений: 58
По умолчанию

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

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;
kostya_hor вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
даны целые числа а1 а2 an указать Irinka_x C++ Builder 0 27.03.2016 17:37
Даны целые числа m, a1,..., a20. Найти три натуральных числа i, j, k, каждое из которых не превосходит двадцати, такие, что ai+ aj anabel123123 Помощь студентам 11 24.11.2014 23:43
Множества: Даны целые числа а1,.....,Аn. Вывести на печать сообщение - имеется ли в последовательности х повторяющиеся числа lialia Паскаль, Turbo Pascal, PascalABC.NET 3 24.12.2012 21:11
Даны целые числа р и q. Получить все делители числа q, взаимно простые c г. Владан Паскаль, Turbo Pascal, PascalABC.NET 2 03.12.2012 23:39
Даны целые числа Хутор Паскаль, Turbo Pascal, PascalABC.NET 2 17.12.2010 19:23