double arrow

Примечание. В отличие от других языков программирования в Object Pascal приоритет операций отношения меньше, чем у логинеёкйх" операции

В отличие от других языков программирования в Object Pascal приоритет операций отношения меньше, чем у логинеёкйх" операции, по этому отдельные составные части сложного логического вьфажёния 5 заключаются в скобки. Например, такая запись предыдущего оператора будет неверной:

if a>b and b <> 0 then...// Ошибка так как фактически (с учетом приоритета операции) компилятор будет транслировать такую строку:
if a>(b and b)<>0 then...


Часть else <оператор2> условного оператора может быть опущена. Тогда при значении True условного выражения выполняется <оператор1>, в противном случае этот оператор пропускается:

var
X, Y, Max: Integer;
begin
if X > Мах then Мах:= X;
Y:= X;
end;

В этом примере переменная y всегда будет иметь значение переменной х, а в мах запоминается максимальное значение X.

Поскольку любой из операторов <оператор1> и <оператор2> может быть любого типа, в том числе и условным, а в то же время не каждый из "вложенных" условных операторов может иметь часть else <оператор2>, то возникает неоднозначность трактовки условий. Эта неоднозначность в Object Pascal решается следующим образом:

любая встретившаяся часть else соответствует ближайшей к ней сверху по тексту программы части then условного оператора. Например:

var
a,b,c,d: Integer;
begin a:= 1;
b:= 2;
с:= 3;
d:= 4;
if a < b then // Да
if с < d then // Да
if с < 0 then // Нет
с:= 0 // Этот оператор не выполняется
else
а: = b; // а равно 2
if а < b then // Да
if с < d then // Да
if с < 0 then // Нет
с:= 0 // с равно 0
else // if с < О
else //if с < d
else // If a < b
а:= b; // Этот оператор не выполняется
end;

Учебная программа INTTEST

Игра "Угадай число": программа случайным образом выбирает целое число в диапазоне О... 1000 и запоминает его. Пользователь пытается угадать его и вводит свое число. Сравнив ввод с запомненным числом, программа сообщает - больше, меньше или равно введенное число запомненному. Ввод продолжается до угадывания, после чего программа предлагает сыграть еще раз.

Поскольку пользователь вводит только числа, изменим форму fmExample: как и в предыдущей программе intmult вместо компонента edinput типа TEdit поместим на форму одноименный компонент типа TMaskEdit. Выберите опцию File | New | Application, щелкните по компоненту edinput и удалите его с помощью клавиши Delete, затем поместите на его место компонент MaskEdit (страница Additional), назовите его edInput (свойство Name) и в его свойство EditMask поместите строку

0999;1;


В секцию private описания класса fmExampie поместите объявление целочисленного поля х:


private


{ Private declarations }

X: Integer;

Для обработчика события OnActivate формы fmExampie Напишите такой код:

procedure TfmExample.FormActivate(Sender: TObject);
begin
X:= Random (1001); // Загадываем случайное число
edinput.SetFocus; // Передаем строке edinput фокус ввода
Caption:= 'Угадай целое число в диапазоне О...1000';
IbOutput.Caption:== 'Введите число:';
end;

Поместите в обработчик события onciick кнопки bbRun такой код:

procedure TfmExample.bbRunClick(Sender: TObject);
var
Y: Integer;
begin
if edinput.Text = '' then
Exit; // Если нет входного текста, прекращаем работу
// Преобразуем ввод в число:
Y:= StrToInt(Trim(edInput.Text));
edinput.Text:= ''; // Очищаем ввод
edinput.SetFocus; // Устанавливаем фокус ввода
{ Параметр Tag = 0 означает угадывание числа, иначе - ответ на вопрос, будет ли пользователь играть после угадывания }
if Tag = 0 then
if X < Y then // Угадывание числа
mmOutput.Lines.Add('X < '+IntToStr(Y))
else if X > Y then
mmOutput.Lines.Add('X > '+IntToStr (Y))
else // X = Y begin
mmOutput.Lines.Add("X = +IntToStr(Y));
MessageBeep(MB_OK); // Звук для привлечения внимания
IbOutput.Caption:='Вы угадали! Введите 1, если хотите повторить:';
Tag:= 1; // Следующий ввод - ответ на вопрос
end;
else // Анализ ответа
if Y = 1 then
begin
X:= Random(1001); // Новое число
IbOutput.Caption:= 'Введите число:';
Tag:= 0; // Следующий ввод - угадывание
edinput.SetFocus
end
else
Close;
end;

Комментарий к программе

При активизации окна программы обработчик FormActivate с помощью оператора


Х:= Random(1001);


помещает в поле X случайное целое число в диапазоне от 0 до 1001 -1 = 1000 (параметр обращения к генератору псевдослучайных чисел Random на единицу больше верхней границы диапазона).

Каждый компонент Delphi имеет целочисленное свойство Tag, которым программист может распоряжаться по своему усмотрению. Программа использует это свойство формы fmExampie для разделения алгоритма обработки события OnClick кнопки bbRun на два варианта: пользователь угадывает число (тад = 0) или отвечает на предложение сыграть еще раз (тад = 1). В момент создания экземпляра класса TfmExmple - объекта fmExample - все его поля обнуляются, поэтому первоначально Tag = 0 и программа анализирует угадывание числа. При угадывании срабатывает составной оператор

begin
mmOutput.Lines.Add('X = Ч-IntToStr(Y));
MessageBeep(MB OK); // Звук для привлечения внимания
IbOutput.Caption:='Вы угадали! Введите 1, если хотите повторить:';
Tag:= 1; // Следующий ввод - ответ на вопрос
end

и Tag получает значение 1 (стандартная процедура MessageBeep заставляет звуковую систему ПК издать короткий звуковой сигнал).

Теперь очередной щелчок по кнопке bbRun будет означать, что пользователь подготовил ответ на вопрос, и программа анализирует его. Если пользователь ввел число отличное от 1, произойдет обращение к методу close формы fmExample и программа прекратит работу.


Понравилась статья? Добавь ее в закладку (CTRL+D) и не забудь поделиться с друзьями:  



Сейчас читают про: