Графическая и параметрическая задача.

[Diego90]

№1 Графическая:
Рисунок №15
Найти кратчайшее расстояние от произвольной точки M(x,y) до конца фигуры.

Program Z15;
Var x,y,L,R:Real;
Begin
    Writeln('Введите x,y,R');
    Readln(x,y,R);
    If y<=0
    Then If (x<=R) and (x>=-R)
            Then L:=Abs(y)
            Else  L:=sqrt(sqr(Abs(x)-R)+y*y)
     Else  If sqrt(x*x+y*y)>=R
            Then L:=sqrt(x*x+y*y)-R
            Else if R-sqrt(x*x+y*y)<Abs(y)
                  Then L:=R-sqrt(x*x+y*y)
                  Else L:=Abs(y);
     Writeln('l=',l:8:2)
End.

№2 Параметрическая:

Program Z15;
Var A,B,W,x:Real;
       k:integer;
       mist:=Boolean;
Begin
   Writeln('Введите A,B,W,k'); 
   Readln(A,B,W,k);
   mist:=False;
   Case k of
   1..6:  If (exp(k*ln(w))-a*w+b)>=0
           Then x:=sqrt(exp(k*ln(w))-A*W+B)
           Else mist:=True;
   7..20: if B*abs(W-A)>0
           Then x:=exp(ln(B*W)*ln(k))/B*Abs(W-A)
           Else mist:=True;
    Else  If sin(W+k*B)>=0
           Then x:=sqrt(ln(W+k*A))+sqrt(sin(W+k*B))
           Else mist:=True
    End;
    If mist
    Then Writeln('Решений нет')
    Else Writeln('x=',x:8:2)
End.

Посмотрите пожалуйста , правильно решены задачи или нет.

[Stilet]

А ты на бумажке посчитай результат, потом сверь с программным подсчетом.

[Diego90]

Я делал трассировку по второй задаче , всё сходится .
По первой не делал , так как не знаю , правильно ли решил её.Правильную ли область я положил в рамке или нет?
Так что надеюсь на адекватность .