Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.10.2019, 18:40   #1
walet
Пользователь
 
Регистрация: 03.10.2019
Сообщений: 11
По умолчанию [Delphi] Поиск значения у по заданному х

Помогите составить алгоритм поиска значения у по известному х
заранее спасибо
Изображения
Тип файла: jpg 5MMt5ilxvTI.jpg (53.1 Кб, 52 просмотров)
walet вне форума Ответить с цитированием
Старый 03.10.2019, 19:33   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 18,922
По умолчанию

А на картинке что нарисовано? Там алгоритма одна строчка:
y:=Tan(x);
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 03.10.2019, 20:02   #3
walet
Пользователь
 
Регистрация: 03.10.2019
Сообщений: 11
По умолчанию

Цитата:
Сообщение от Аватар Посмотреть сообщение
А на картинке что нарисовано? Там алгоритма одна строчка:
y:=Tan(x);
Да, но график ограничен
walet вне форума Ответить с цитированием
Старый 03.10.2019, 20:17   #4
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,550
По умолчанию

if x<(Pi/2) then x1:= (-Pi/2) else if x>(Pi/2) then x1:= (Pi/2) else x1 := x ;
y := Tan(x1) * 4 ;
digitalis вне форума Ответить с цитированием
Старый 03.10.2019, 22:27   #5
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Цитата:
Сообщение от digitalis Посмотреть сообщение
Tan(x1)
что-то Вы не то написали.
Если я правильно понимаю, то в точке Pi/2 значение sin(Pi/2) =0, а cos(pi/2)=0
соответственно тангенс не определён.

102270002_43f6acf15d95904b41737febd699e594_800.jpg

все намного проще:
Код:
if x<=-pi/2 then y:=-4 
  else if x>=pi/2 then y:=4 
         else y:=sin(x)/cos(x);

Последний раз редактировалось Serge_Bliznykov; 03.10.2019 в 22:30.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 04.10.2019, 11:04   #6
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,550
По умолчанию

Да.
Но тогда уж (не последнего слова ради, а токмо истины)
Код:
xabs := ArcTan(4) ;
if x<=-xabs then y:=-4 
  else if x>xabs then y:=4 
         else y:=sin(x)/cos(x) ;
Но все равно задача мутная, несмотря на простоту. Или же -4 +4 должны дальше "всовываться" внутрь интервала, или же между ArcTan(4) и Pi/2 будет х.з.ч.
За таблицу отдельный сенькс. Весь Гуголь измучил - где бы найти таблицу триг. функций ?
Изображения
Тип файла: jpg tg.JPG (15.0 Кб, 34 просмотров)

Последний раз редактировалось digitalis; 04.10.2019 в 11:13.
digitalis вне форума Ответить с цитированием
Старый 04.10.2019, 11:39   #7
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Цитата:
Сообщение от digitalis Посмотреть сообщение
Но тогда уж (не последнего слова ради, а токмо истины)
Возможно.
Это чуть не соответствует графику (ваш график другой), но зато по смыслу ваш код точнее - исходный график мутный и не соответствует обозначенным на нём точкам
(Pi/2 = 1.57079632679)

таблица значений y=tg(x) в этом месте выглядеть будет иначе, чем на исходном графике:

tan( 1.32582 ) = 4.00000
tan( 1.40000 ) = 5.79788
tan( 1.50000 ) = 14.10142
tan( 1.51000 ) = 16.42809
tan( 1.52000 ) = 19.66953
tan( 1.53000 ) = 24.49841
tan( 1.54000 ) = 32.46114
tan( 1.55000 ) = 48.07848
tan( 1.56000 ) = 92.62050
tan( 1.57000 ) = 1255.76559

Последний раз редактировалось Serge_Bliznykov; 04.10.2019 в 11:50.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 05.10.2019, 01:25   #8
Desc
Участник клуба
 
Аватар для Desc
 
Регистрация: 21.11.2007
Сообщений: 1,063
По умолчанию

И ТС теперь не понимает что с этим всем делать..
А ожидал толковый листинг сопровождаемый блок схемой..
I am not a wizard, I am just learning.

Последний раз редактировалось Desc; 05.10.2019 в 01:27.
Desc вне форума Ответить с цитированием
Старый 05.10.2019, 09:58   #9
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,550
По умолчанию

Цитата:
Сообщение от Desc Посмотреть сообщение
И ТС теперь не понимает что с этим всем делать..
А ожидал толковый листинг сопровождаемый блок схемой..
+ ключ от квартиры, где деньги лежат
Блок-схема от одной строчки кода... Впрочем, вполне ничего: ромбик и 3 прямоугольничка.
Упорно игнорируя ГОСТ, по традиции продолжаем старое название.
digitalis вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Все уникальные значения по заданному критерию Aswerd Microsoft Office Excel 2 24.08.2015 23:01
Вычисление значения функции по заданному значениям введённым с консоли lect111 Паскаль, Turbo Pascal, PascalABC.NET 1 03.10.2012 06:43
Delphi+sql поиск максимального значения newcooller Помощь студентам 3 18.03.2012 15:15
Поиск наибольшего значения (Delphi) Сварог Помощь студентам 1 05.11.2011 11:51