Цитата:
Сообщение от tema001
Вычислить значение Y:=Y1+sqr(Y2), где Y1:=(sqr(x)-sin(x)/cos(x))/3,если (0<X<5), или Y1:=exp(0.5*ln(sqr(x)+5)), если (X≥5), или «Нет решений» в противном случае, а Y2:=ln(X)+1.
|
И Вам здравствуйте, дорогой Тёма, самый первый из тысячи Тём. Столь вежливо изложенная просьба, разумеется, не может остаться без ответа.
Код:
VAR
x,Y,Y1,Y2:REAL;
BEGIN
Write('x= ');
ReadLn(x);
If x<=0 then WriteLn('No solution')
else
begin
Y2:=ln(x)+1;
if x>=5.0 then Y1:=exp(0.5*ln(sqr(x)+5))
else
Y1:=(sqr(x)-sin(x)/cos(x))/3;
Y:=Y1+sqr(Y2);
WriteLn(Y);
end;
ReadLn;
END.
Больше никаких распоряжений не будет? Обращайтесь, если что.
P.S. Ну вот видите - сразу два программиста откликнулись! Можем еще привлечь, если надо!