Нужно написать в Паскаль

[Удален]

20 мая 2011, 08:29

372

Х>0.5,у<>0. р={1/2 tg(x/3),(если х<1);корень из(х в 3+ у во 2 ступенях),(если х>1);у-х,(в противном случае)

Cмотрите, р= дальше система. ; разделяет критерии системы. где корень писать через степень. так в задании написано

ZedwardT

22 мая 2011, 08:39

if (x>0.5) and (y<>0) then

__begin

__if x<1 then

____p:=(1/2)*(tg(x/3))

__else

____if x>1 then

______p:=exp(ln(sqr(x)*x+sqr(y))*(1/2)) {корень через степень}

____else

______p:=y-x

__end

else {Несоответствие условий}

end;

Копирайтинг. Рерайтинг. Примеры работ можно посмотреть тут (http://sevtext.ru), отзывы – здесь (/ru/forum/579145) и здесь (/ru/forum/916955).