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

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

- - Цикл: найти значения функций, продолжаемых по симметрии в заданных точках ЯП- Pascal (http://www.tehnari.ru/f43/t258096/)

NomadZ

11.02.2018 08:30

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

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

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

Vladimir_S

11.02.2018 09:52

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

NomadZ

11.02.2018 10:44

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

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

NomadZ

11.02.2018 11:19

Цитата:

Сообщение от Vladimir_S (Сообщение 2555753)

Vladimir_S

11.02.2018 13:02

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

NomadZ

11.02.2018 13:34

Вложений: 1

Цитата:

Сообщение от Vladimir_S (Сообщение 2555788)

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

Vladimir_S

11.02.2018 13:39

Цитата:

Сообщение от NomadZ (Сообщение 2555793)

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

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

Vladimir_S

11.02.2018 13:56

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

Код:

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

11.02.2018 14:14

Цитата:

Сообщение от Vladimir_S (Сообщение 2555798)

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

Код:

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.

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

Часовой пояс GMT +4, время: 03:42.