Цикл: найти значения функций, продолжаемых по симметрии в заданных точках ЯП- Pascal

[NomadZ]

Цикл: найти значения функций, продолжаемых по симметрии в заданных точках ЯП- Pascal

Здравствуйте, помогите пожалуйста с написанием кода для следующих функций на Pascal'е.
Задача:
Найти значения функций, продолжаемых по симметрии в точках 10.2 и sqrt{105}
А) Функция, созданная отрезками прямых
y=\left|1-x \right| , \left|x \right|<1

Б) Функция, созданная отрезками парабол
y=1-x\wedge 2

 

[Vladimir_S]

К сожалению, для меня обозначения типа "y=\left|1-x \right| , \left|x \right|<1" и "y=1-x\wedge 2" — тёмный лес (никогда не встречал таких). Разъясните подробно (или дайте ссылку), как это следует читать/понимать? Тогда и с Паскалем разберёмся.

 

[NomadZ]

Извините думал тут работают формулы.
А)Функция, созданная отрезками прямых
y=|1-x| , |x|<1

Б)Функция, созданная отрезками парабол
y=1-x^2

 

[NomadZ]

К сожалению, для меня обозначения типа "y=\left|1-x \right| , \left|x \right|<1" и "y=1-x\wedge 2" — тёмный лес (никогда не встречал таких). Разъясните подробно (или дайте ссылку), как это следует читать/понимать? Тогда и с Паскалем разберёмся.

Извините думал тут работают формулы.
А)Функция, созданная отрезками прямых
y=|1-x| , |x|<1

Б)Функция, созданная отрезками парабол
y=1-x^2

 

[Vladimir_S]

М-да... чертовски стыдно признавать собственное невежество но, увы, легче не стало.
Ну хорошо, пусть есть отрезок прямой
y = (1-x), |x|<1 (в этом случае y ≥ 0, поэтому знак абсолютной величины бессмыслен). Как из этих отрезков (каких отрезков? я вижу только один) создать функцию? И что такое "продолжение по симметрии"? Похоже, не только я, но и Сеть этого не знает.
Может быть, речь идёт о периодической функции, которая строится путём бесконечного повторения указанного фрагмента со сшивкой на концах промежутка? Тогда в первом примере получится пилообразная зависимость. Или нет?

 

[NomadZ]

М-да... чертовски стыдно признавать собственное невежество но, увы, легче не стало.
Ну хорошо, пусть есть отрезок прямой
y = (1-x), |x|<1 (в этом случае y ≥ 0, поэтому знак абсолютной величины бессмыслен). Как из этих отрезков (каких отрезков? я вижу только один) создать функцию? И что такое "продолжение по симметрии"? Похоже, не только я, но и Сеть этого не знает.
Может быть, речь идёт о периодической функции, которая строится путём бесконечного повторения указанного фрагмента со сшивкой на концах промежутка? Тогда в первом примере получится пилообразная зависимость. Или нет?

Да соглашусь с вами тогда будет выглядеть так

 

[Vladimir_S]

Да соглашусь с вами тогда будет выглядеть так

А, ну тогда-то что... Сейчас нарисую.

 

[Vladimir_S]

Вот, получите:

Var
 x1,x2:real;

Function F1(x:real):real;
begin
 F1:=1-Abs(x);
end;

Function F2(x:real):real;
begin
 F2:=1-x*x;
end;

Begin
 x1:=10.2;
 x2:=Sqrt(105);
 Writeln(' x = ',x1:6:3);
 Writeln('y1 = ',F1(frac(x1)):6:3);
 Writeln('y2 = ',F2(frac(x1)):6:3);
 Writeln;
 Writeln(' x = ',x2:6:3);
 Writeln('y1 = ',F1(frac(x2)):6:3);
 Writeln('y2 = ',F2(frac(x2)):6:3);
 Readln
End.

 

[NomadZ]

Вот, получите:

Var
 x1,x2:real;

Function F1(x:real):real;
begin
 F1:=1-Abs(x);
end;

Function F2(x:real):real;
begin
 F2:=1-x*x;
end;

Begin
 x1:=10.2;
 x2:=Sqrt(105);
 Writeln(' x = ',x1:6:3);
 Writeln('y1 = ',F1(frac(x1)):6:3);
 Writeln('y2 = ',F2(frac(x1)):6:3);
 Writeln;
 Writeln(' x = ',x2:6:3);
 Writeln('y1 = ',F1(frac(x2)):6:3);
 Writeln('y2 = ',F2(frac(x2)):6:3);
 Readln
End.

Большое спасибо)