Question

Информатики!! помогите ПРОШУ СРОЧНО НУЖНО) ПОСЛЕДНЕЕ ЗАДАНИЕ ДЛЯ ЭКЗАМЕНА ВЫПОЛНИТЬ В ПАСКАЛЕ


3. Вычислить f(x), если (используя составные условия)
f(x) = x, если -2<=x <2
f(x) = 4, если x=>2, x<-2

Answer 1

1 var
2 x:real;
3  rez:real;
4 begin  
5read(x);//ввод
6 if(x<0) then rez:=0;//первый случай
7 if(x<=1)and(x>=0) then rez:=x;//второй случай  
8 if(x>1) then rez:=2;//третий
9 writeln(rez);//вывод результата
10 end.

Вроде бы правильно,но это неточно 

Answer 2

Как понял я, то тебе нужно что то такое


var f:array[1..10000]of longint;
x:longint;
begin
writeln('Введите x');
readln(x);
if (x>=2) or (x<=-2) then
f[x]:=x
else f[x]:=4;
writeln('f[x] = ',f[x]);
end.

Answer 3

Код изменён