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

Пример использование условного оператора на языке ПАскаль

var t:integer;

begin

Writeln(‘Введите температуру тела’);

Readln(t);

if t = 36,6 then Writeln(‘Человек здоров’)

else Writeln (‘ Есть подозрение на болезнь’);

end.

y then Writeln (x) else Writeln (y); end Else Writeln(‘Числа равны’); end." width="640"

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

Определить наибольшее из двух чисел. Если числа равны, указать данных факт при выводе результата.

var x,y:integer;

begin

Readln(x, y);

If xy then begin

if xy then Writeln (x)

else Writeln (y); end

Else Writeln(‘Числа равны’);

end.

Логические функции

And – логическое и

Or – логическое или

Xor – исключающее или

Not - отрицание

=0) and (x=1) and (y Writeln(‘Точка А попадает в заштрихованную область’) else Writeln(‘Точка не попадает’);" width="640"

Задача

Определить, попадает ли точка А (x,y) в заштрихованную область?

if (x=0) and (x=1) and (y

Writeln(‘Точка А попадает в заштрихованную область’)

else Writeln(‘Точка не попадает’);

Задача для самостоятельного решения

Дан треугольник со сторонами M, N, L . Написать программу, определяющую, существует ли данный треугольник.

M

N

L

Задача на дом

Точка А задана координатами X,Y . Написать программу, которая выводит слово «Принадлежит» , если точка принадлежит заштрихованной области и « Не принадлежит» в противном случае.

Закрепление материала

1. Что такое ветвление?

2. В каких случаях используется условный оператор в программах на языке Паскаль?

3. Какие виды ветвлений вам известны?

4. Назовите логические функции в Паскале