Составной оператор. Вложенные условные операторы.

Задание 1

Запишите на языке Паскаль следующие условия

да

program n_9;

var x, a, b: real;

begin

writeln ('Определение принадлежности

точки отрезку');

write ('Введите а, b');

readln (a, b);

write ('Введите x');

readln (x);

if (x=a) and (xthen

writeln ('Точка принадлежит отрезку')

else writeln ('Точка не принадлежит отрезку')

еnd.

(x=a) and (x

Конспект в тетрадь

В условном операторе (ветвлении) и после then, и после else можно использовать только один оператор.

Если в условном операторе после then или после else нужно выполнить несколько операторов, то используют составной оператор – конструкцию вида: begin end

Составной оператор подразумевает вложение других условных операторов после then, или после else . Такой оператор называется вложенным.

if then

if then

else

else

Вспомним задачу, которую требовалось разобрать в домашнем задании.

Даны переменные P, k. Если P k принимает значение 2, если 10Pk принимает значение 3, если Р=20 то k принимает значение 4

Обратите внимание, операторы ветвления идут друг за другом

Program YYY;

Var P, k : integer;

Begin

Writeln ('введите P');

Readln (P);

IF P

IF (P10) and (P

IF P=20 then k:=4;

Writeln ('K= ',k);

Readln ;

End.

При запуске программы:

если мы вводили значение Р меньше или равно 10, получали ответ 2;

если мы вводили значение Р больше 10, но меньше 20 меньше, получали ответ 3;

если мы вводили значение Р больше или равно 20, получали ответ 4

Данную задачу можно было решить другим способом.

С помощью вложенного оператора ветвления

Здесь добавляется служебное слово полной формы ветвления Else (Иначе)

Program YYY;

Var P, k : integer;

Begin

Writeln ('введите P');

Readln (P);

IF P

Else

IF (P10) and (P

Else

IF P=20 then k:=4;

Writeln ('K= ',k);

Readln ;

End.

При запуске программы:

ЕСЛИ мы вводили значение Р меньше или равно 10, получали ответ 2;

ИНАЧЕ (т.е. вводим значение больше 10)

ЕСЛИ мы вводили значение Р больше 10, но меньше 20 меньше, получали ответ 3;

ИНАЧЕ (т.е. предыдущие условия ЛОЖНЫ)

ЕСЛИ мы вводили значение Р больше или равно 20, получали ответ 4

Задание 2

Д ана программа на языке Паскаль

Что будет результатом программы при следующих исходных данных (записать):

Блок-схема к программе

Задание 3

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

Задание 4

Ознакомьтесь с программой решения квадратного уравнения. Найдите 2 ошибки (ошибок 5, но они 2-х типов). Запишите строки с ошибками в тетрадь.

Задание 5

Рассмотрите программу. Составьте к ней условие задачи

Program nom5;

Var x : integer;

Begin

Writeln ('введите оценку');

Readln (x);

IF x=3 then Writeln ('удовлетворительно')

Else

IF x=4 then Writeln ('хорошо')

Else

IF x=5 then Writeln ('отлично');

Readln ;

End.

Домашнее задание

Изучить материал урока

Решить задачу

Напишите программу с помощью вложенного условного оператора, в которой вы вводите порядковое число времени года (1-зима, 2-весна,3-лето,4-осень), программа должна вывести его название.