F1 F2 F3
--------------- -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');
|
-------------------- 
