новая папка 1 / ОТЧЕТ5

Министерство образования и науки Российской Федерации

ФЕДЕРАЛЬНОЕ ГОСУДАРСТВЕННОЕ БЮДЖЕТНОЕ

ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ

ВЫСШЕГО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ

«ОРЕНБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ»

Факультет информационных технологий

Кафедра информатики

ОТЧЕТ

по лабораторной работе № 5

по дисциплине «Программирование»

Разработка программ разветвляющейся структуры. Компонент TCheckBox.

Руководитель

преподаватель

Е.А. Мучкаева

«___» ______________ 2015г.

Исполнитель

студент группы 14ПО(ба)Ин

А.М. Зобова

«___» ______________ 2015г.

Оренбург 2015

Цель работы:

Познакомиться с операторами языка Object Pascal. Рассмотреть применение данных операторов в написании программ разветвляющейся структуры. Также познакомиться с индикатором CheckBox.

Задание:

Вариант №2.

Вычислить значение функции в точке x:

Теоретическая часть.

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

Безусловный оператор перехода goto.

Оператор goto позволяет изменить порядок выполнения операторов программы и передать управление оператору, помеченному специальной меткой. Метки, на которые может передаваться управление, объявляются в разделе описания меток. Каждая метка может обозначаться идентификатором или числом от 0 до 9999.

Точка, в которую передается управление, помечается именем метки, после чего следует двоеточие “:”. Сам оператор goto имеет форму:

goto <метка>

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

Составной оператор.

Составной оператор объединяет группу операторов в единое целое, после чего они могут считаться одним оператором. Составной оператор состоит из последовательности объединяемых операторов, которые располагаются между ключевыми словами begin и end. Составной оператор называют иногда операторными скобками. Используется составной оператор в случаях, когда в алгоритмической конструкции необходимо выполнить несколько операторов, а Object Pascal позволяет использовать только один.

Так, условный оператор IF имеет структуру: IF <условие> Then <оператор>. Если в операторе IF необходимо выполнить несколько действий, то необходимо использовать составной оператор.

Условный оператор IF.

Оператор If предназначен для выполнения тех или иных действий в зависимости от истинности или ложности некоторого условия. Условие задается выражением, имеющим результат булева типа.

Оператор имеет две формы — полную и неполную. В полной форме оператор имеет следующий вид:

if <условие> Then <оператор1> else <оператор2>

Если условие имеет значение true, то выполняется оператор1. В противном случае (если условие имеет значение false) выполняется оператор2.

Индикатор CheckBox.

Индикаторы с флажком CheckBox используются в приложениях в основном для того, чтобы пользователь мог включать и выключать какие-то опции, или для индикации состояния.

Этим трем состояниям соответствуют три значения свойства компонента State: cbChecked, cbGeayed, cbUnchecked. Впрочем, эти три состояния допускаются только при значении другого свойства AllowGrayed равном true. Если же AllowGrayed = false (значение по умолчанию), то допускается только два состояния: выделенное и не выделенное. И State, и AllowGrayed можно устанавливать во время проектирова¬ния или программно во время выполнения.

В компоненте CheckBox имеется также событие OnClick, возникаю¬щее при каждом изменении пользователем состояния индикатора. Его можно ис¬пользовать для обработки результатов изменения.

Практическая часть.

1)procedure TForm1.Button1Click(Sender: TObject);

var

g, x:real;

begin

x:=StrToInt(edit1.text);

if x<=-3 then

g:=5*x*x*x;

if x>2 then

g:=SIN(x);

label1.Caption:=FloatToStr(g);

end;

2)procedure TForm1.Button1Click(Sender: TObject);

var x,y:real;

begin

x:=StrToInt(Edit1.text);

y:=StrToInt(Edit2.text);

if (x>0) and (y>0) then

label1.Caption:=('Точка М лежит в 1-ой четверти');

if (x<0) and (y>0) then label1.Caption:=('Точка М лежит вo 2-ой четверти');

if (x<0) and (y<0) then label1.Caption:=('Точка М лежит в 3-eй четверти');

if (x>0) and (y<0) then label1.Caption:=('Точка М лежит в 4-ой четверти');

end;