|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
03.10.2019, 18:40 | #1 |
Пользователь
Регистрация: 03.10.2019
Сообщений: 11
|
[Delphi] Поиск значения у по заданному х
Помогите составить алгоритм поиска значения у по известному х
заранее спасибо |
03.10.2019, 19:33 | #2 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
А на картинке что нарисовано? Там алгоритма одна строчка:
y:=Tan(x);
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
03.10.2019, 20:02 | #3 |
Пользователь
Регистрация: 03.10.2019
Сообщений: 11
|
|
03.10.2019, 20:17 | #4 |
Старожил
Регистрация: 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 ; |
03.10.2019, 22:27 | #5 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
что-то Вы не то написали.
Если я правильно понимаю, то в точке Pi/2 значение sin(Pi/2) =0, а cos(pi/2)=0 соответственно тангенс не определён. 102270002_43f6acf15d95904b41737febd699e594_800.jpg все намного проще: Код:
Последний раз редактировалось Serge_Bliznykov; 03.10.2019 в 22:30. |
04.10.2019, 11:04 | #6 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,550
|
Да.
Но тогда уж (не последнего слова ради, а токмо истины) Код:
За таблицу отдельный сенькс. Весь Гуголь измучил - где бы найти таблицу триг. функций ? Последний раз редактировалось digitalis; 04.10.2019 в 11:13. |
04.10.2019, 11:39 | #7 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Возможно.
Это чуть не соответствует графику (ваш график другой), но зато по смыслу ваш код точнее - исходный график мутный и не соответствует обозначенным на нём точкам (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. |
05.10.2019, 01:25 | #8 |
Участник клуба
Регистрация: 21.11.2007
Сообщений: 1,063
|
И ТС теперь не понимает что с этим всем делать..
А ожидал толковый листинг сопровождаемый блок схемой..
I am not a wizard, I am just learning.
Последний раз редактировалось Desc; 05.10.2019 в 01:27. |
05.10.2019, 09:58 | #9 | |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,550
|
Цитата:
Упорно игнорируя ГОСТ, по традиции продолжаем старое название. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Все уникальные значения по заданному критерию | 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 |