Ситкин. Информатика. Программирование в DELPHI

Button.

61

procedure TForm1.Button1Click(Sender: TObject); var x, y:real;

a, b:boolean;

begin

x:= StrToFloat(LabeledEdit1.Text);

y:= StrToFloat(LabeledEdit2.Text);

a:=(y<=x)and(y>=0)and(x<=3); b:=(y>=x)and(y<=0)and(x>=-3);

if a or b then Label1.Caption:='Точка принадлежит области' else Label1.Caption:='Точка не принадлежит области';

end;

В данном случае при выводе результата в компонент Label1 не использовались функции преобразований FloatToStr. Это объясняется тем, что выводится не число-

вой результат, а текст (тип String), что соответствует типу свойства Caption и преоб-

разования не нужны.

Пример работы приложения

представлен на рис. 5.9.

Рис. 5.9

Оператор выбора

В тех случаях, когда количество условий становится значитель-

ным, использование условных операторов создаёт громоздкие и запу-

танные конструкции. Для реализации множественного выбора удобно использовать оператор выбора, схема работы которого представлена на рис. 5.10, а сам оператор в общем случае имеет вид

62

case ключ of

константы 1 : оператор S1 ;

константы 2 : оператор S2 ;

где case, of, else, end служеб-

ные слова; ключ перемен- конст N да оператор SN ная или выражение порядкового

типа (обычно, целый или сим-

вольный типы); константы N

список констант порядкового типа; оператор SN оператор,

выполняемый в случае совпадения значения ключа со значением из списка константы N . Если необходимо выполнение нескольких операторов в ветви, то они заключаются в операторные скобки begin

и end.

Сначала вычисляется значение ключа , затем оно сравнивается со значениями констант из списков. В случае совпадения выполняется соответствующий оператор. Константа не должна входить в несколь-

ко списков. Если значение ключа не совпало ни с одной из кон-

стант из списков, то выполняется оператор SN+1 . Ветвь else ( опера-

тор SN+1 ) может отсутствовать, тогда при отсутствии совпадений оператор выбора пропускается, такая конструкция соответствует не-

полной форме оператора выбора.

63

Компонент CheckBox (независимый переключатель /флажок/)

Предназначен для установки параметров с двумя возможными состояниями. Основные свойства компонента описаны в табл. 5.2.

Обычно независимый переключатель CheckBox может иметь два состояния, определяемые свойством Checked: установлен (True) или сброшен (False). Бывает, что переключатель может иметь еще и тре-

тье состояние промежуточное. В этом состоянии переключатель за-

крашивается серым цветом. Если переключатель может находиться в трёх состояния, то вместо свойства Checked используется свойство State, а в свойстве AllowGrayed устанавливается значение True.

Состояние независимого переключателя не зависит от состоя-

ний других переключателей, отсюда и название независимый.

64

procedure TForm1.Button1Click(Sender: TObject);

var st:real; n:byte; begin

n:=ListBox1.ItemIndex;

case n of

0: st:=300; 1,2: st:=100; 3..6: st:=200;

else

if CheckBox1.Checked then st:=st*0.75; Label2.Caption:='в кассу '+FloatToStr(st)+' руб';

end;

Задание

I. Разработать алгоритм вычисления значения функции, пред-

ставить его в виде блок-схемы и реализовать, создав проект

67

II.Разработать алгоритм определения отношения точки

выделенной области (рис. 5.13) и реализовать его, создав проект

Рис. 5. 13

68

III. Разработать справочную систему для информирования поль-

зователя о стоимости проезда в соответствии с вариантом табл. 5.5.

Содержание отчёта

цель работы и задание;

для каждого из трёх заданий:

блок-схема алгоритма решения;

текст модуля проекта;

пример работы приложения с указанием компонентов;

выводы по работе.

Контрольные вопросы

1.Какой алгоритм называют разветвляющимся?

2.Что такое логическое выражение, как оно строится?

3.Приведите таблицу истинности основных логических операций.

4. Каков синтаксис полной и неполной форм условного оператора?

5.Что такое составной оператор, когда его используют?

6.Какую конструкцию реализует запись if x = 0 then else y:= 1?

7.Каков синтаксис оператора выбора и схема его работы?

8.В чём состоят отличия зависимого переключателя от флажка?

69

Лабораторная работа № 6

КОНТРОЛЬ СИНТАКСИСА ВВОДИМЫХ ДАННЫХ

Цель работы приобретение умений построения конструкций контроля вводимых числовых данных пользователем.

В предыдущих проектах при вводе чисел с компонентов формы приходилось рассчитывать только на аккуратность предполагаемого пользователя. В случае ошибочного наличия в числе недопустимого символа (например, буквы) происходит ошибка при попытке преобразовать содержимое поля редактирования Edit или LabeledEdit (свойство Text) из строки в число функциями преобразования StrToInt или StrToFloat, что может повлечь аварийную остановку работы приложения. Программист должен предусмотреть возможные некорректные действия пользователя и корректную реакцию приложения на них.

Предположим, что в проекте на форме расположен компонент

Edit1 для ввода вещественного числа. К нарушению синтаксиса, а в последствии невозможности преобразовать в число содержимое поля

Edit1.Text приведут:

наличие недопустимых символов в числе (буквы, спецсимволы, точка, знаки вопроса или восклицания и т.п.);

наличие двух и более запятых или знаков минуса;

наличие знака минуса не в начале числа;

отсутствие данных в поле вообще.

Для корректной работы приложения следует либо исключить ввод недопустимых символов, либо предотвратить работу функции преобразования StrToFloat при наличии синтаксических ошибок в числе и сообщить пользователю о них.

70