Question

ЭТО НАДО СДЕЛАТЬ В ПАСКАЛЕ АБС

Задача 2 Построить таблицу значений функции на

интервале [-1; 1] с шагом Δх = 0,1 если функция имеет вид:

x+1, при x<-0.5

Y= x2 , при -0.5<=x<=0.5

x -2, при x>0.5

repeat

if (x<-0.5) then y:=x+1;

if (x>=-0.5) and (x<=0.5) then y:=x*x;

if (x>0.5) then y:=x-2;

writeln ('x= ',x:7:5,' y= ',y:7:5);

x:=x+dx;

until (x>1);

Задача 3. Построить таблицу значений функции,

на интервале [-10 ; 10] с шагом Δх = 1.

repeat

if (x<>1) then begin

y:= (x+1)/(1-x);

writeln ('x= ',x:7,' y= ',y:7:5);

end;

x:=x+dx;

until (x>10);

y

x 1

(1 x)