лабораторная работа / ЛР_2

Операторы языка Турбо Паскаль

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

Условный оператор позволяет проверить некоторое условие и в зависимости от результатов проверки выполнить то или иное действие. Таким образом, условный оператор – это средство ветвления вычислительного процесса.

Структура условного оператора имеет следующий вид:

IF <условие> THEN <опрератор1> ELSE <оператор2>,

где IF , THEN , ELSE - зарегистрированные слова (если, то, иначе);

<условие> - произвольное выражение логического типа;

<опрератор1> , <оператор2> - операторы языка Турбо Паскаль;

Условный оператор работает по следующему алгоритму. Вначале вычисляется условное выражение <условие> . Если результат есть истина, то выполняется <опрератор1>, а <оператор2> пропускается; если результат есть ложь, наоборот, пропускается <опрератор1>, а выполняется <оператор2> . Пример:

Var

x,y,max: Integer;

begin

………..

if x>max then

y:=max;

else

y:=x;

При выполнении этого фрагмента переменная Y получит значение переменной X, если только это значение не превышает МАХ, в противном случае Y станет равно МАХ.

Задание.

Составить программу для определения частного от деления целых чисел х и у, при выполнении условия ( у <> 0 ), иначе вывести ошибку (‘деление на ноль’).

Program lab3;

Var x,y:integer;

Res:real;

Begin

X:= ;

Y:= ;

IF (y<>0) THEN

Begin

Res:=x/y;

Writeln(‘Res=’,res:8:3);

End

Else Write (‘деление на ноль’);

End.