Условный оператор

Тема урока:

Простые и составные условия.

Составной оператор. Оператор ветвления.

Простое условие – это два выражения, связанные одним из знаков отношений: =; <>; > ; < ;<=; >=;

a>0;  b<=c+a;   a+2*b>=c/3;

Если условие выполняется, то говорят, что условие истинно, в противном случае – условие ложно.

Составные условия – это условия, состоящие из двух или более простых условий, соединенных с помощью логических операций: and (и); or (или), not (не).

(x>=0) оr (x<-3) ; Not (a=0) or (b=0);

Если в зависимости от первоначального условия задачи, должны выполняться различные выражения, то мы будем использовать условный оператор. Условный оператор может быть записан в полной и неполной форме.

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

if  < условие>  then  оператор 1   else   оператор 2 ;

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

if  < условие>  then  оператор;

if  then  else – зарезервированные слова (если, то, иначе)

Рассмотрим несколько примеров:

Пример 1. Даны  два  числа.  Найти большее  из  них.

program zadacha4_1;

var max,b,c:real;

Begin

writeln('Введите  число  b '); readln(b);

writeln(' Введите  число c '); readln(c);

if b>c then  max:=b  else  max:=c;

writeln('большее из двух = ',max);

End.

Пример 2. Даны  три  числа.  Найти  максимальное.

program zadacha4_2;

var max,x,y,z:real;

Begin

writeln(' Введите  три числа ');

readln(x,y,z);

if x>y then max:=x else max:=y;

if z>max then max:=z;

writeln('большее из трёх =',max);

End.

Пример 3. Задано число a. Кратно ли оно 4.

program zadacha4_3;

var а:longint;

Begin

writeln(' Введите число');

readln(а);

if a mod 4 =0 then writeln(a,' кратно4’)

else  writeln(a,' не кратно 4’); 

End.

Пример 4. Дано  число.  Дать  характеристику  числа:

ü положительное,  отрицательное;

ü чётное,  нечётное;

ü целое, не целое.

program zadacha4_4;

var    a:real;

k,m,p:string;

Begin

writeln('Введите  число');

readln(a);

if a<0    then k:='отрицательное' else k:=' положительное';

if a=int(a)   then m:=' целое' else m:='не целое';

if a/2=int(a/2) then p:=' чётное' else p:=' нечётное ';

writeln('число  ',a,' ; ',k,' ; ',m,' ; ',p);

End.

Пример 5. Дано три числа x, y, z. Вычислить сумму только положительных чисел из трех данных.

program zadacha4_5;

var    x,y,z,sum:real;

Begin

writeln('Введите три числа');

readln(x,y,z);

sum:=0;

if x>0   then  sum:=sum+x;

if y>0   then  sum:=sum+y;

if z>0   then  sum:=sum+z;

writeln('сумма положительных чисел = ',sum);

End.