1: 2: Out: v1: writeln(‘ ошибка‘);
Пример выполнения лабораторной работы №1
1. U=Min (z, y);
F1 F2 F3
---------------
--------------------
------------------
X
-2 2
Program Lab1_Primer;
uses CRT;
Var X, y, z, Min, u: real;
k: integer;
Function f1:real;
begin
f1:=(Ln(abs(x)+3)-sin(x+pi/5)/cos(x+pi/5))/cos(y);
end;
Function f2:real;
begin
f2:=(1.5*exp(y-1)+Arctan(x-y))/(2-y);
end;
Function f3:real;
begin
f3:=sqrt(abs(y-1))+sqr(sin(x-pi));
end;
{------------ main -------------------}
BEGIN
clrscr;
Writeln('введите значения x, y');
read(x,y);
IF x<=-2 THEN
if cos(y)<>0 Then Z:=f1
Else k:=1
ELSE if (x>-2)and(x<2) then
if 2-y<>0 then Z:=f2
else k:=2
else Z:=f3;
case k of
1:Writeln('Не выполняется ооф для f1');
2:Writeln('Не выполняется ооф для f2');
Else
begin
if Z<y then Min:=Z else Min:=y;
U:=Min;
Writeln('x=',x:3:1,'y=',y:3:1,'Z=',Z:5:3,'U=',U:5:3);
end;
end;