Задание 1. Использование условного оператора

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

Блок-схема алгоритма предложенной задачи будет иметь вид:

Р ис. 2. Блок-схема программы

1. Запустите Turbo Pascal.

2. В окне редактирования наберите текст программы:

Program Uslovie_1;

var x, y: real;

begin

Write ('Введите значение х');

Read (x);

If x<0 Then y:=x*x

Else y:=3*exp(-x);

Writeln('При х = ', x:4:2, ' y= ', y :6:2)

end.

3. Запустите процесс компиляции программы комбинацией клавиш Alt+F9.

4. Запустите программу на выполнение.

5. Просмотрите результаты.

6. Протестируйте программу при некоторых значениях переменной .

7. Сохраните программу на диске под именем uslov1.

Задание 2. Вложенные условные операторы

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

П ри решении таких задач нужно учесть, что условия на значения Х делят числовую ось на три интервала (в нашем случае точки деления Х=0 и Х=1), поэтому при реализации алгоритма используется вложенный условный оператор, блок-схема которого приведена на рис. 3.

Рис. 3. Блок-схема вложенного условного оператора

1. Запустите Turbo Pascal.

2. В окне редактирования наберите текст программы:

Program Uslovie_2;

var x, y: real;

begin

Writeln ('Введите значение х');

Read (x);

If x<0 Then y :=exp(-x+1)

Else If x>1 Then y:= 1/x+sin(x)

Else y:= Sin(x)/Cos(x);

Writeln ('При х=', x :4:2, 'y=', y:6:2);

end.

3. Запустите процесс компиляции программы.

4. Запустите программу на выполнение.

5. Протестируйте программу при некоторых значениях переменной .

6. Сохраните программу на диске под именем uslov2.

Задание 3. Нахождение максимума двух чисел

Найти максимум двух чисел a и b.

1. Запустите Turbo Pascal.

2. В окне редактирования наберите текст программы:

Program Uslovie_3;

var a, b, max :real;

begin

Writeln(' Введите значение a');

Read(a);

Writeln(' Введите значение b');

Read(b);

if a >= b then max :=a

else max :=b;

Writeln ('a=', a :4:2,' b =', b :4:2);

Writeln ('max =', max :4 :2);

end.

3. Запустите процесс компиляции программы.

4. Запустите программу на выполнение.

5. Протестируйте программу при некоторых значениях переменных a и b.

6. Сохраните программу на диске под именем uslov3.

Задание 4. Самостоятельное решение задач

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

Табл.3

№ варианта	Условие	Исходные данные
1	Ввести с клавиатуры три действительных числа a, b, c. Вывести на экран из них те, которые принадлежат интервалу (1, 10).	a, b, c
2	Ввести с клавиатуры два числа a, b. Если сумма этих чисел больше 30, то переменной с присвоить значение разности a – b, иначе произведения a*b. Вывести с на экран.	a, b
3	Ввести с клавиатуры два числа a, b. Если сумма этих чисел меньше 24, то переменной с присвоить значение разности a * b, иначе удвоенной суммы этих чисел. Вывести с на экран.	a, b
4	Найти максимум трех чисел a, b, c.	a, b, c
5	Найти минимум трех чисел a, b, c.	a, b, c
6	Ввести с клавиатуры два числа a, b. Меньшее заменить квадратом, а большее уменьшить на 1. Результаты вывести на экран.	a, b
7	Ввести с клавиатуры два числа a, b. Меньшее утроить, а большее заменить 0. Результаты вывести на экран.	a, b
8	Ввести с клавиатуры два числа a, b. Меньшее заменить полусуммой, а большее – удвоенным произведением. Результаты вывести на экран.	a, b
9	Ввести с клавиатуры два числа a, b. Меньшее заменить большим, а большее – своим квадратом. Результаты вывести на экран.	a, b
10	Проверьте, делится ли введенное с клавиатуры число х на 5 и на 7	х
11	Проверьте, делится ли введенное с клавиатуры число х на 7 и на 11	х
12	Проверьте, делится ли введенное с клавиатуры число х на 2 и на 3	х
13	Проверьте, делится ли введенное с клавиатуры число х на 2, на 3 и на 5	х
14	Проверьте, делится ли введенное с клавиатуры число х на 3, на 5 и на 11	х
15	Проверьте, делится ли введенное с клавиатуры число х на 2, на 3 и на 11	х