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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 13.12.2015, 14:36   #1
andrmerk
Пользователь
 
Регистрация: 13.12.2015
Сообщений: 14
Печаль Вычислить значения функции y=tg(nx)+2n/x при n=5 и изменении x в интервале [1;3]

Вычислить значения функции y=tg(nx)+2n/x при n=5 и изменении x в интервале [1;3] с шагом дельта(x)=0.2. отпечатать только значения y>15

Помогите пожалуйста,вроде бы сделал,но не уверен что правильно,кажется есть ошибка..

Код:
program inform;
  var n,x,x0,y:real;
  begin
    n:=5;
    x0:=1;
    y:=sin(n*x)/cos(n*x)+2*n/x;
    repeat
    if y>15 then
    writeln('y=',y);
    x:=x+0.2;
    until x>3
  end.

Последний раз редактировалось Stilet; 13.12.2015 в 15:35.
andrmerk вне форума Ответить с цитированием
Старый 13.12.2015, 15:09   #2
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Тут уменьшать шаг, тогда заработает!
Код:
const h=0.2;
      a=1;
      b=3;
      n=5;
      max=15;
var x,y:real;
begin
   x:=a;
   While x<=b do
   begin
      y:=sin(n*x)/cos(n*x)+2*n/x;
      If y>max then
         Writeln('x = ',x:3:1,'  y = ',y:5:5);
      x:=x+h;
   end;
   Readln;
end.
Сойдет?
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 13.12.2015, 15:15   #3
andrmerk
Пользователь
 
Регистрация: 13.12.2015
Сообщений: 14
По умолчанию

Ввожу значение и ничего не происходит..Что-то не так
andrmerk вне форума Ответить с цитированием
Старый 13.12.2015, 15:17   #4
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Конечно не будет работать! Я же написал
Цитата:
Тут уменьшать шаг!
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 13.12.2015, 15:23   #5
andrmerk
Пользователь
 
Регистрация: 13.12.2015
Сообщений: 14
По умолчанию

Понял,сделал
А так и должно быть,что он бесконечные числа будет выводить?
andrmerk вне форума Ответить с цитированием
Старый 13.12.2015, 15:25   #6
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

При h=0.2 ничего не выведет. А при h=0.02 сколько?
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 13.12.2015, 15:31   #7
andrmerk
Пользователь
 
Регистрация: 13.12.2015
Сообщений: 14
По умолчанию

3 значения x и 3 значения y
Я просто не так понял,думал что x:=x+h на поменять на x:=x-h
andrmerk вне форума Ответить с цитированием
Старый 13.12.2015, 15:46   #8
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Правильно! А если еще уменьшить, то еще больше будет!
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вычислить и напечатать значения функции при следующих условиях bagzr Помощь студентам 6 15.01.2015 09:17
Вычислить значения функции на заданном интервале+ использовать 3 разных цикла while- do while- for tereb Помощь студентам 1 12.11.2014 22:05
Вычислить и вывести на экран в виде таблицы значения функции F на интервале Ashley12 Помощь студентам 2 04.11.2013 22:42
Вычислить и вывести на экран в виде таблицы значения функции F на интервале, C zenya21 Помощь студентам 6 31.10.2012 01:25
Вычислить и вывести на экран в виде таблицы значения функции F на интервале от Хнач. до Хкон. с шагом dX. blondino4ka_milk Общие вопросы C/C++ 2 04.03.2010 16:49