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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 18.01.2017, 14:57   #1
Olya65
Новичок
Джуниор
 
Регистрация: 18.01.2017
Сообщений: 1
По умолчанию Протабулировать функцию

Система:
y=ln(2x/c)
y=e^c-2x

Промежуточные функции:
c=arctg(2q/(1-q^2))
x=arctg(q)

-0,93<=q<=0,95
delta(q)=0,15


Условие, при котором выводить результат
|cos^2*(q)-1|<0,1
Olya65 вне форума Ответить с цитированием
Старый 18.01.2017, 15:10   #2
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
procedure f(q:real; var y1,y2:real);
var c,x:real;
begin
   c:=ArcTan(2*q/(1-q*q));
   x:=ArcTan(q);
   y1:=Ln(2*x/c);
   y2:=Exp(c)-2*x;
end;

const a=-0.93;
      b=0.95;
      dq=0.15;
var q,y1,y2:real;
begin
   q:=a;
   Repeat
      f(q,y1,y2);
      If Abs(Cos(q)*Cos(q)-1)<0.1 then
         Writeln(q:5:2,'  ',y1:8:5,'  ',y2:8:5);
      q:=q+dq;
   Until q>=b;
   Writeln;
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Протабулировать функцию Andry95 JavaScript, Ajax 0 20.11.2016 15:15
Протабулировать функцию С++ cristianoman Помощь студентам 1 18.03.2013 15:37
Протабулировать функцию testtest01 Паскаль, Turbo Pascal, PascalABC.NET 1 07.06.2012 17:45
протабулировать функцию varkich C/C++ Базы данных 0 07.06.2012 01:13
протабулировать функцию Broneslav Помощь студентам 6 17.02.2009 01:17