Сделать ** Pascal.Составить программу для вычисления функции, заданой графиком:

Question

Сделать на Pascal.Составить программу для вычисления функции, заданой графиком:

---

Answer 1

Var x,y:real;
begin
write('x = ');
readln(x);
if (x<-4)or(x>4)
 then writeln('Функция не определена')
 else begin 
   if x<0<br>        then y:=0
        else if x<2 then y:=x*x<br>                    else y:=4;
   writeln('Y = ',y);
   end;
end.

Пример:
x = 1.5
Y = 2.25

Answer 2

Var y,xn,xk,s:real;
begin
readln(s,xn,xk);//s-шаг функции xn и xk - интервал иксов, в котором мы рассматриваем функцию
writeln('x','   ','y');
while xnwhile xn<0 do begin y:=0; xn+=s; writeln(xn,'   ',y); end;<br>while y<4 do begin y:=power(xn,2); xn+=s; writeln(xn,'   ',y); end;<br>while xnexit;
end;
end.