Неполная форма: 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. Найти наибольшее из трех чисел.