Программирование. Lazarus. Урок 5.

Практическая работа 19

Тема: Реализация разветвляющихся алгоритмов средствами языков программирования.

Цели: научиться применять разветвляющиеся алгоритмы при решении задач.

Оборудование: компьютер

Выполнение работы:

Задание 1. Создайте новый проект «Поиск максимального значения».

1. Разместите на форме четыре метки Label, для вывода поясняющих надписей, четыре текстовых поля Edit и одну командную кнопку Button1.

1. Выделите объект Button1, который подписан как «Пуск», перейдите в окно редактора кода и пропишите следующий код:

procedure TForm1.Button1Click(Sender: TObject);

var

A, B, C, max: integer;

begin

A:=StrToInt(Edit1.Text);

B:=StrToInt(Edit2.Text);

C:=StrToInt(Edit3.Text);

if A=B then max:=A else max:=B;

if Cmax then max:=C;

Edit4.Text :=IntToStr(max);

end;

1. Сохраните проект в папке на Рабочем столе. Запустите проект на исполнение.

Задание 2. Создайте новый проект «Тест».

1. Разместите на форме пять вкладок PageControl (Вопрос 1, Вопрос 2, Вопрос 3, Вопрос 4, Вопрос 5), одну командную кнопкуButton («Завершить») и Memo–поле.

2. На каждой вкладке разместить Labelдля вопросов. Например: Море с самой прозрачной водой. В зависимости от вопроса разместить RadioButton (выбор одного ответа) или CheckBox (выбор двух или больше правильных ответов).

1. Выделите объект Button1, который подписан как «Завершить», перейдите в окно редактора кода и пропишите следующий код:

procedure TForm1.Button1Click(Sender: TObject);

begin

if (RadioButton3.Checked) then Memo1.Lines.Add('Ответ 1 - Верно') else Memo1.Lines.Add('Ответ 1 -Неверно');

if (CheckBox1.Checked) and (CheckBox2.Checked) then Memo1.Lines.Add('Ответ 3 -Верно') else Memo1.Lines.Add('Ответ 3 -Неверно');

end;

1. Код для Вопроса 2, Вопроса 4, Вопроса 5 напишите самостоятельно.

2. Сохраните проект в папке на Рабочем столе. Запустите проект на исполнение.

3. Выберите ответы на пять вопросов, кликнете по кнопке «Завершить» и в Memo- поле должен отобразиться результат.

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

Ввод данных из диалогового окна в среде Lazarus.

Окно ввода —это стандартное диалоговое окно, которое появляется на экране в результате вызова функции InputBox. В общем виде оператор ввода данных с использованием этой функции записывают так:

имя:=InputBox (заголовок_окна ,подсказка ,значение ) ;

Где:

• заголовок_окна—строка, определяющая название окна;

• подсказка—текст поясняющего сообщения;

• значение—строка, которая будет находиться в поле ввода при появлении окна на экране;

• имя—переменная строкового типа, которой будет присвоено значение из поля ввода.

После выполнения фрагмента программы

var S : string ;

begin

S:=InputBox ( ’ЗАГОЛОВОК␣ОКНА ’ ,

’Подсказка : ␣введите␣исходные␣данные ’ , ’Данное␣значение ’ ) ;

end;

Вывод сообщений в среде Lazarus.

Для этого можно воспользоваться функцией MessageDlg, которая выводит сообщение в отдельном окне.

Общий вид функции:

MessageDlg (сообщение , тип_сообщения , [ список_кнопок ] , справка ) ;

Где:

• сообщение—текст, который будет отображён в окне сообщения;

• тип_сообщения—определяет внешний вид окна ;

• список_кнопок—константы (перечисляются через запятую), определяющие тип кнопок окна сообщения;

• • справка—номер окна справочной системы, которое будет выведено на экран, если нажать F1; параметр равен нулю, если использование справки не предусмотрено.

Тип окна сообщения

Тип кнопки в окне сообщения