Паскаль Здача

[kinwood]

Program Lab1_Primer1;
Var   x, y, P, max, F: real;
      k: integer;
Function f1:real;
Begin
f1:=(ln(y-x)/ln(3))/sqr(x)+5*x+sin(sqr(x)-7)
End;
Function f2:real;
Begin
f2:=exp(1.23)+exp(2.5*ln(abs(x)))/(1-abs(y));
End;
Function f3:real;
Begin
f3:=sqrt(abs(x+y))+2*(cos(x-pi/3)/sin(x-pi/3))
End;
begin
K:=0;
Read(x,y);
if (-3<=x<0) then
   if (sqr(x)+5*x<>0) and (y-2>0) then P:=f1
                                  else K:=1
       Else
   if (0<=x<3) then
      if (1-abs(y)<>0) then p:=f2
                        else K:=2
       Else
    if (sin(x-pi/3)<>0)  then p:=f3
                          else K:=3
                          
    Case K of
   1: Writeln('Нет ООФ для f1');
   2: Writeln('Нет ООФ для f2');
   3: Writeln('Нет ООФ для f3');
   0: begin                    
    if P-1>y-x then max:=P-1 else max:=y-x;
       F:=max;
         end;
End;
End.

закончить незнаю как вывести на икран

[ViktorR]

Тут ошибка:

Function f1:real;
Begin
f1:=(ln(y-x)/ln(3))/sqr(x)+5*x+sin(sqr(x)-7)
End;

Вроде так правильнее:

Function f1:real;
Begin
f1:=(ln(y-2)/ln(3))/(sqr(x)+5*x)+sin(sqr(x)-7)
End;

Это правильнее переписать. Поскольку Х может быть равен нулю, то

Function f2:real;
Begin
f2:=exp(1.23)+exp(2.5*ln(abs(x)))/(1-abs(y));
End;

даст ошибку. Вернее так:

Function f2:real;
Begin
f2:=exp(1.23) + sqr(x) * sqrt(abs(x))/(1-abs(y));
End;

Проверь старшинство арифметических операций.

if (-3<=x<0) then ...

Условные выражения следует расписывать более подробно:

if ((-3<=x) AND (x < 0)) then ...

и группировать в скобки.
Так неправильно:

if (sqr(x)+5*x<>0) and (y-2>0) then ...

Вернее так:

if (((sqr(x)+5*x)<>0) and ((y-2) > 0)) then ...

и т.д.


Как-то так ...