Not; 2) and; 3) or; 4) хоr

Примеры логических выражений:

1) True; 2) False; 3) А>В; 4) (А=В) and (C<=D).

Операции отношений (=, <>, <=, <=, <, >) имеют более низкий приоритет, чем логические операции, поэтому их следует заключать в скобки при использовании по отношению к ним логических операций.

Задание к лабораторной работе №1

1. Создайте свою папку на своем носителе, где будут находиться тексты программ на языке Турбо Паскаль.

2. Получите задание у преподавателя по теме лабораторной работы Линейные алгоритмы.

3. Подготовьте текст программы и контрольный пример по своему заданию.

4. Используя план работы в Турбо Паскале, описанный выше, выполните свой вариант.

5. Результаты выполнения программы должны совпадать с результатами контрольного примера.

6. Если нет ошибок, контрольный пример совпадает с результатом выполнения программы, результаты лабораторной работы покажите преподавателю.

ЛАБОРАТОРНАЯ РАБОТА № 2

ТЕМА. Программирование ветвящихся алгоритмов

Для программирования ветвящихся алгоритмов применяются условный оператор (оператор ветвления) и оператор выбора.

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

if <логическое выражение> then <оператор 1> else <оператор 2>;

Оператор 1 и 2 могут быть простыми или составными.

Если логическое выражение, выступающее в качестве условия ветвления, принимает значение False, то выполняется оператор 2, если True — оператор 1.

Неполная форма условного оператора:

if <логическое выражение> then <оператор>;

Пример 1. Из трех данных вещественных чисел X, Y, Z выбрать наибольшее.

Решение 1. Используем алгоритм с вложенными полными ветвлениями.

Program МахЗ_1;

Uses Crt;

Var X,Y,Z,MAX: real;

Begin

Clrscr;

write ('Введите X, Y, Z');

readln (X, Y, Z);

if X>=Y then

if X>=Z then MAX: =X

else MAX: =Z

Else

if Y>=Z then MAX: =Y

else MAX: =Z;

writeln ('Максимальное значение=', MAX:4:2)

End.

Решение 2. Используем алгоритм с последовательными неполными ветвлениями и сложными логическими выражениями.

Program МахЗ_2;

Uses Crt;

Var X, Y, Z: real;

begin

Clrscr;

write (' Введите X, Y, Z');

readln(X, Y, Z);

if (X>=Y) and (X>=Z) then MAX: =X;

if (Y>=X) and (Y>=Z) then MAX:=Y;

if (Z>=X) and (Z>=Y) then MAX:=Z;

writeln ('Максимальное значение=', MAX); end.

Пример 2. Дано действительное число а. Вычислить f(x), если

Решение. Алгоритм имеет вложенную ветвящуюся структуру-

Program Formulа;

Uses Crt;

Var X, F: Real;

Begin

Clrscr;

writeln (' Введите действительное число: ');

readln (X);

if X<=0 then F:=0

else if X<=1 then F:=sqr (X) -X

else F:=sqr (X) -sin (Pi*X*X);

writeln (' Значение функции F (x) при x = ', X,' равно ', F);

End.