ПРАКТИЧЕСКОЕ ЗАНЯТИЕ № 5

ОПЕРАТОР УСЛОВНОГО ПЕРЕХОДА

Неполная форма: IF условие THEN серия;

УСЛОВИЕ - это логическое выражение, принимающее значение истина или ложь.

Выполняется инструкция так: если условие истинно, то выполняется серия ,

иначе выполняется следующая за IF..THEN инструкция.

СЕРИЯ - один оператор языка.

Полная форма : IF условие THEN серия1

ELSE серия2;

Если условие истинно , то выполняется серия1 , иначе выполняется серия2.

В Н И М А Н И Е! Перед словом ELSE точка с запятой не ставится !!

Найти большее из двух чисел а и b.

Program Bid; Uses crt;

var a,b,max: integer;

Begin

ClrScr;

write(' Введите целое число а='); readln(a);

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

if a>=b then max:=a { если условие =true,то max:=а }

else max:=b; { если условие =false,то max:=b }

writeln('Max=',max);

readkey;

End.

При нажатии цифры 1 печатается слово1, а при нажатии любой клавиши слово2.

Program Text; Uses crt;

var x: integer;

Begin

ClrScr;

write('Введите цифру 1 или любую :'); readln(x); ClrScr;

if x=1 then write(' В а с я')

else write(' П е т я');

readkey;

End.

З А Д А Н И Я:

1. Набрать программу Bid и проверить ее работу для '+' и '-' чисел.

2. В программе Bid применить округление для вещественных чисел.

3. Набрать программу Text , получить результат.

4. Изменить программу Text так, чтобы второе слово выводилось только при нажатии цифры 2 , а при нажатии цифры кроме 1 и 2 выводилось сообщение “ERROR”.

5. Составить программу вычисления для любого х функции Y =1/x ,

при х=0 выдать сообщение ' функция не существует '.

6. Найти наибольшее из трех чисел.