Пример схемы алгоритма и текста программы определения экстремума для варианта задания вида:

x = max(min(a, b), max(c, d))

Начало

Ввод

a, b, c, d

min = a

min > b

a < b

да нет нет

min = b

да

min = a

min = b

c > d

max = c

да нет

max < d

нет

max = c

max = d

max = d

да

min > max

да нет

x = min

x = max

x = min

Вывод

x

x < max

нет

x = max

да

Вывод

x

Конец

Пример программы

Program Extremum;

{Определение максимального или минимального значения

с использованием структур "выбор" и "обход".

Вычислить x = max(min(a,b), max(c,d))}

Var

a,b,c,d:Integer; {исходные данные}

max,min:Integer; {промежуточные значения}

x:Integer; {результат вычисления}

Begin

{Ввод исходных данных}

WriteLn('Введите значения a,b,c,d: ');

ReadLn(a,b,c,d);

{Решение задачи с использованием структуры "Выбор"}

If a<b {Определяем наименьшее значение между a и b}

Then min:=a

Else min:=b;

If c>d {Определяем наибольшее значение между c и d}

Then max:=c

Else max:=d;

If min>max {Определяем наибольшее значение между max и min}

Then x:=min

Else x:=max;

{Вывод результата решения с использованием структуры "Выбор"}

WriteLn('Использование структуры "Выбор": x = ',x);

{Решение задачи с использованием структуры "Обход"}

min:=a; {Определяем наименьшее значение между a и b}

If min>b

Then min:=b;

max:=c; {Определяем наибольшее значение между c и d}

If max<d

Then max:=d;

x:=min; {Определяем наибольшее значение между max и min}

If x<max

Then x:=max;

{Вывод результата решения с использованием структуры "Обход"}

WriteLn('Использование структуры "Обход": x = ',x);

ReadLn;

End.

Лабораторная работа №5 Определение принадлежности точки выделенным областям на плоскости

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

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

Порядок выполнения работы:

1) Получить у преподавателя индивидуальное задание и выполнить постановку задачи: сформулировать условие, определить входные и выходные данные.

2) Разработать математическую модель – условия принадлежности точки выделенным областям на плоскости.

3) Построить схему алгоритма решения задачи.

4) Составить программу на языке Турбо Паскаль.

5) Входные данные вещественного типа real вводить с клавиатуры по запросу. Выходные данные (сообщения) выводить на экран в развернутой форме.

6) Проверить и продемонстрировать преподавателю работу программы на полном наборе тестов.

7) Оформить отчет о лабораторной работе в составе: постановка задачи, математическая модель, схема алгоритма решения, текст программы, контрольные примеры.