1. Скласти програму обчислення значень функції:
ln/x/ , якщо х≤0
y= ex+1-sinx , якщо 0<х<10
x2 +cosx , якщо х³10
де: х – ціле число.
/*вычисление значения функции*/
PROGRAM R1;
VAR
X:INTEGER;
Y:REAL;
BEGIN
WRITELN (‘Bведите значение Х’);
READLN (X);
IF X<=0
THEN Y:=LN(ABS(X))
ELSE IF X>=10
THEN Y:= SQR(X)+COS(X)
ELSE Y:= EXP(X+1)-SIN(X);
WRITELN (‘значение Y=’,Y:8:4)
END.
2. Скласти програму визначення мінімального і максимального з трьох цілих чисел x,y,z .
/*поиск экстремальных значений*/
PROGRAM R2;
VAR
X,Y,Z,MIN,MAX:INTEGER;
BEGIN
WRITELN (‘введите числа X,Y,Z’);
READLN (X,Y,Z);
IF X<Y THEN MIN:=X ELSE MIN:=Y;
IF Z<MIN THEN MIN:=Z;
IF X>Y THEN MAX:=X ELSE MAX:=Y;
IF Z>MAX THEN MAX:=Z;
WRITELN (‘значение MAX=’,MAX);
WRITELN (‘значение MIN=’,MIN)
END.
3. Скласти програму обчислення значень функції, використовуючи оператор варіанту:
x3, при k=4
ex-a2+b, при k=5
F= 
, при k=6 де: a,b – цілі числа, х – дійсне число.
ln/x/, при k=7
sin2x+cosx2, при k=8
/*вычисление значения функции*/
PROGRAM R3;
VAR
A,B: INTEGER;
X, F:REAL;
K:4..8;
BEGIN
WRITELN (‘введите числа X,A,B’);
READLN (X,A,B);
WRITELN (‘введите значение селектора K’);
READLN (К);
CASE K OF
4:F:=EXP(3*LN(X));
5:F:=EXP(X)-SQR(A)+B;
6:F:=SQRT(X+A*B);
7:F:=LN(ABS(X));
8:F:=SQR(SIN(X))+COS(SQR(X))
END;
WRITELN (‘при селекторе k=’,К);
WRITELN (‘значение функции F=’,F:10:5)
END.
