begin

writeln('Vvedite A');

read(A);

writeln('Vvedite B');

read(B);

writeln('Vvedite C');

read(C);

X:=A+B;

if X>A+C then X:=A+C;

if X>B+C then X:=B+C;

Y:=A;

if Y<2*B then Y:=2*B;

if Y>3*C then Y:=3*C;

Z:=X/Y;

if ((X>=-3) and (X<=-2)) and ((Y<=1) and (Y>=-2)) then

begin

U:=ln(X+Y)/ln(10);

end

else

if X*X+Y*Y<=1*1 then

begin

U:=X-Y+Z;

end

else U:=1;

writeln('U = ',U:5:2);

end.

Результат работы:

Задание 3. Использование циклических структур

Составить программу расчета значений функций двух переменных z=f(x,y) с использованием оператора цикла. Значение переменных x и y изменяются соответственно от x_нач. до x_кон. с шагом h_x и от y_нач. до y_кон. с шагом h_y и вводятся с клавиатуры. Указанные переменные относятся к вещественному типу. Вывести на экран таблицу значений x,y,z.