Пожалуйста помогите с Паскалем

Question

Пожалуйста помогите с Паскалем

---

Comments

Что, просто вычислить значения функций в одной заданной точке или как?

---

да - просто вычислить и написать в форме паскаля

Answer 1

Vary,x:real;beginwriteln('Введите число x: ');readln(x);if x<-2 then writeln('при х=',x,'  y=',sqrt(abs(x)))elseif (x=-2) and (x<3) then writeln('при х=',x,'  y=',sin(1/sqr(x)))elseif x>=3 then writeln('при х=',x,'  y=',ln(sqr(x)));end.

Comments

var
y,x:real;
begin
writeln('Введите число x: ');
readln(x);
if x<-2 then writeln('при х=',x,' y=',sqrt(abs(x)))<br>else
if (x=-2) and (x<3) then writeln('при х=',x,' y=',sin(1/sqr(x)))<br>else
if x>=3 then writeln('при х=',x,' y=',ln(sqr(x)));
end.