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

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

Рассмотрим данную тему на конкретных примерах.

Задание1: Составить программу вычисления выражения

Технология выполнения задания

Постановка задачи: Создать приложение вычисления значений функции f.

Математическая модель представляется так: исходные данные – переменные х, у и z, результат - f, связь между данными и результатом выражается формулой

Алгоритм решения задачи: запишем алгоритм решения поставленной задачи с помощью блок-схемы (описываем только процедуру вычисления значения функции).

Программа: Установите компоненты на форме и измените свойство Caption для каждого компонента в соответствии с рисунком 8.

Для компонента BitBtn1 (кнопка Закрыть) в инспекторе объектов измените свойство Kind – bkClose.

Двойным щелчком по компоненту Button1 (кнопка Вычислить) автоматически создается в окне кода стандартная структур. В данную структуру впишите часть программы (у каждого варианта своя индивидуальная часть программы).

Для задания 1 эта часть выглядит следующим образом:

var x,y,z,f:real;

begin

x:=StrToFloat(Edit1.text);

y:=StrToFloat(Edit2.Text);

z:=StrToFloat(Edit3.Text);

if x>3 then f:=sqr(x)+y+z else

if x=3 then f:=x+sqr(y)+z else f:=x+y+sqr(z);

Label4.Caption:=FloatToStrF(f,fffixed,6,3);

end;

Рисунок 8 - Итоговый вид формы

Задание2: Найдите максимальное из трех заданных чисел.

Технология выполнения задания

Постановка задачи: Создать приложение нахождения максимального из трех чисел x,y,z.

Математическая модель представляется так: исходные данные – переменные х, у и z, результат – максимальное из исходных данных.

Алгоритм решения задачи: запишем алгоритм решения поставленной задачи с помощью блок-схемы (описываем только процедуру вычисления значения функции).

Программа: Установите компоненты на форме и измените свойство Caption для каждого компонента в соответствии с рисунком 9.

Для компонента BitBtn1 (кнопка Закрыть) в инспекторе объектов измените свойство Kind – bkClose.

Двойным щелчком по компоненту Button1 (кнопка Вычислить) автоматически создается в окне кода стандартная структур. В данную структуру впишите часть программы (у каждого варианта своя индивидуальная часть программы). Для примера2 эта часть выглядит следующим образом:

var x,y,z:real;

begin

x:=StrToFloat(Edit1.Text);

y:=StrToFloat(Edit2.Text);

z:=StrToFloat(Edit3.Text);

if x>y then if x>z then

Label4.Caption:='максимальное'+FloatToStrF(x,fffixed,6,3)

else Label4.Caption:='максимальное'+FloatToStrF(z,fffixed,6,3)

else if y>z then

Label4.Caption:='максимальное'+FloatToStrF(y,fffixed,6,3)

else Label4.Caption:='максимальное'+FloatToStrF(z,fffixed,6,3)

end;

Рисунок 9 - Образец размещения компонент на форме

Задание3: Вычислить значение функции

Технология выполнения задания

Постановка задачи: Создать приложение вычисления значений функции y(x).

Математическая модель представляется так: исходные данные – переменные х, у, результат - y, связь между данными и результатом выражается формулой

Алгоритм решения задачи: запишем алгоритм решения поставленной задачи с помощью блок-схемы (описываем только процедуру вычисления значения функции).

Программа: Установите компоненты на форме и измените свойство Caption для каждого компонента.

Для компонента BitBtn1 (кнопка Закрыть) в инспекторе объектов измените свойство Kind – bkClose.

Двойным щелчком по компоненту Button1 (кнопка Вычислить) автоматически создается в окне кода стандартная структур. В данную структуру впишите часть программы (у каждого варианта своя индивидуальная часть программы). Для задания 1 эта часть выглядит следующим образом:

var x,y:real;

begin

x:=StrToFloat(Edit1.text);

if x>1 then y:=x-1 else

if x<-1 then y:=x+1 else y:=0;

Label4.Caption:='y='+FloatToStrF(f,fffixed,6,3);

end;

Таблица 5 - Индивидуальные варианты лабораторной работы №3

№ В	Варианты индивидуальных заданий
Написать программу, вычисляющую значения следующих функций:

Продолжение таблицы 5

1
2
3
4
5
6
7
8

Продолжение таблицы 5

9
10
11
12
13
14
15

Продолжение таблицы 5

16
17
18	; a=8.7, b=-5.2, x=8.1
19	; x=1.204, a=0.8
20	; где z – любое действительное число
21	; b=0.251, x=0.004
22
23	; где
24

Продолжение таблицы 5

25	; x=0.15394
26	; x=2.4, a=2.65, b=4.24, c=1.83
27	; y=0.1465, x=2.3864
28
29	; a=16.01, b=18.1, x=5.93
30	; a=7.02, b=16.02, x=1.085