Дано действительное число а. Вычислить f(a) для функции f(x)

[Artem1987]

. Дано действительное число а. Вычислить f(a) для функции f(x)


f(X)=1-|X|, XE(-1,1)
-1+X, XE(1,2)
-1-X, XE(-2,1)
мужики, как написать программу на паскале для вычисления функции ,
знакомый математик подсказал решение на листе, оно сверху, надо его описать в паскале т.е при Х принадлежащему от(-1,1),выполнить 1-|X| и тд.Спасибо за помощь!!!

[Traveller]

Program z1; var X,Y:real; begin WriteLN('Введите X'); ReadLN(X); Y:=1-abs(X); WriteLN('Ответ = ',y); end.

[kommunist]

program func;

uses
crt;

var x,y:integer;
begin
writeln('ââåäèòå x: ');
readln(x);
clrscr;
if (-1<x) and (x<1) then
y:=(1-abs(x));
begin
if (1<x) and (x<2)
then y:=-1+x;
if (-2<x) and (x<1) then y:=-1-x ;
writeln('y=',y);
readln;

end;
end.

[Artem1987]

спасибо!!! А что за uses crt;и clrscr;Допустим х=0 то выполняется 1-й или 3-й IF ?

[Alex21]

Сообщение от Artem1987

Допустим х=0 то выполняется 1-й или 3-й IF ?

А это уже к вам вопрос. Где у вас интервалы включительны? Где не включительны? Вы уж обозначте. А то в этом случае во-втором интервале - решения нет!

[Artem1987]

Я так понимаю, что и в первом и во втором IF интервал X=0 включен, а при х=1,5 должен выполняться второй If и вывод 0,5, а выводится 5,0000+,,,,это при Y: real, а при Y:integer вылетает ошибка!
ПОЧЕМУ Кто знает ?

[kommunist]

1)Слушай artem1987 я не понял как во втором интервале 0 может быть включеным когда там интервал от 1 до 2;
2) integer не прокатит потому что это целый тип, а 0ю5 далеко не целое число.
3)вот тебе код где все выводится правильно:
program chisla;
var x,y:real;
begin
writeln('vvedite x: ');
readln(x);
if (-1<x) and (x<1) then
y:=(1-abs(x));
begin
if (1<x) and (x<2)
then y:=-1+x;
if (-2<x) and (x<1) then y:=-1-x ;
writeln('y=',y:2:2);
readln;

end;
end.
П р о в е р е н о !

[Artem1987]

Я так понимаю, что и в первом и в ТРЕТЬЕМ IF интервал X=0 включен, извеняюсь, ошибся.

[barok]

Дано действительное число А. Для функции F(X), график которой представлен на Рис 1. вычислить F(A).
Помогите пожалуйста с решением в Pascal очень надо!!!Заранее спасибо!

[Utkin]

Ну переделайте имеющуюся выше программу. Вам в зависимости от х нужно решать одно из трех уравнений:
В случае если х меньше нуля
В случае если х больше нуля и меньше 4
В случаее если х больше 4-х