Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 11.02.2018, 08:30   #1 (permalink)
NomadZ
Member
 
Регистрация: 14.12.2017
Сообщений: 18
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Цикл: найти значения функций, продолжаемых по симметрии в заданных точках ЯП- Pascal

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

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

Старый 11.02.2018, 08:30
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Информация которая содержится в этих обсуждениях должна вам помочь

Экран в точках
Вычислить значения суммы ряда при заданных с консоли начальном и конечном значениях
Нужно сделать в Pascal с использованием функций и процедур
Pascal ABC. Массивы. Нахождение значения переменной Y

Старый 11.02.2018, 09:52   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 25,454
Сказал(а) спасибо: 258
Поблагодарили 476 раз(а) в 151 сообщениях
Репутация: 82625
По умолчанию

К сожалению, для меня обозначения типа "y=\left|1-x \right| , \left|x \right|<1" и "y=1-x\wedge 2" — тёмный лес (никогда не встречал таких). Разъясните подробно (или дайте ссылку), как это следует читать/понимать? Тогда и с Паскалем разберёмся.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 11.02.2018, 10:44   #3 (permalink)
NomadZ
Member
 
Регистрация: 14.12.2017
Сообщений: 18
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

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

Б)Функция, созданная отрезками парабол
y=1-x^2
NomadZ вне форума   Ответить с цитированием
Старый 11.02.2018, 11:19   #4 (permalink)
NomadZ
Member
 
Регистрация: 14.12.2017
Сообщений: 18
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

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

Б)Функция, созданная отрезками парабол
y=1-x^2
NomadZ вне форума   Ответить с цитированием
Старый 11.02.2018, 13:02   #5 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 25,454
Сказал(а) спасибо: 258
Поблагодарили 476 раз(а) в 151 сообщениях
Репутация: 82625
По умолчанию

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

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 11.02.2018, 13:34   #6 (permalink)
NomadZ
Member
 
Регистрация: 14.12.2017
Сообщений: 18
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Цитата:
Сообщение от Vladimir_S Посмотреть сообщение
М-да... чертовски стыдно признавать собственное невежество но, увы, легче не стало.
Ну хорошо, пусть есть отрезок прямой
y = (1-x), |x|<1 (в этом случае y ≥ 0, поэтому знак абсолютной величины бессмыслен). Как из этих отрезков (каких отрезков? я вижу только один) создать функцию? И что такое "продолжение по симметрии"? Похоже, не только я, но и Сеть этого не знает.
Может быть, речь идёт о периодической функции, которая строится путём бесконечного повторения указанного фрагмента со сшивкой на концах промежутка? Тогда в первом примере получится пилообразная зависимость. Или нет?
Да соглашусь с вами тогда будет выглядеть так
Миниатюры
aacuiyiiue.png  
NomadZ вне форума   Ответить с цитированием
Старый 11.02.2018, 13:39   #7 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 25,454
Сказал(а) спасибо: 258
Поблагодарили 476 раз(а) в 151 сообщениях
Репутация: 82625
По умолчанию

Цитата:
Сообщение от NomadZ Посмотреть сообщение
Да соглашусь с вами тогда будет выглядеть так
А, ну тогда-то что... Сейчас нарисую.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 11.02.2018, 13:56   #8 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 25,454
Сказал(а) спасибо: 258
Поблагодарили 476 раз(а) в 151 сообщениях
Репутация: 82625
По умолчанию

Вот, получите:
Код:
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.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 11.02.2018, 14:14   #9 (permalink)
NomadZ
Member
 
Регистрация: 14.12.2017
Сообщений: 18
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Цитата:
Сообщение от 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 вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Метки
функции, циклы

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




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

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.