Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Zyken
0 / 0 / 5
Регистрация: 19.11.2014
Сообщений: 33
#1

Найти значение y при заданном x - Pascal

19.11.2014, 16:12. Просмотров 516. Ответов 9
Метки нет (Все метки)

Найти значение y при заданном x
http://www.cyberforum.ru/pascal/thread86111.html
0
Миниатюры
Найти значение y при заданном x  
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.11.2014, 16:12
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти значение y при заданном x (Pascal):

Найти max значение из величин a=x*e^x; b=tg x; c=ln(x) при заданном x
Найти max значение из величин,определяемых арифметическими выражениями:a=x*ex;...

Рекурсия: вычислить значение функции Х(n) при заданном значении n
Народ помогите пожалуйста вычислить значение функции Х(n) при заданном значении...

Вычислить значение функции при заданном значении аргумента
Вычислить y=16x2-1 при заданном x. Если y>=3, то вычислить и напечатать b=x3;...

Найти наименьшее и наибольшее значение функции на заданном промежутке
Задание: Найти наименьшее и наибольшее значение функции на промежутке. ...

Найти и вывести среднее арифметическое значение функции на заданном интервале.
Y=cos(a - x 2 ) +b x 2 (x изменяется от 1 до 3 с шагом 0.3) Найти и вывести...

9
JokeR.BY
CAPITAL OF ROCK!
1278 / 705 / 982
Регистрация: 03.03.2010
Сообщений: 2,284
Завершенные тесты: 2
19.11.2014, 16:14 #2
рисунок то неправильный. чему равен y при x=1?
0
Zyken
0 / 0 / 5
Регистрация: 19.11.2014
Сообщений: 33
19.11.2014, 16:17  [ТС] #3
рисунок не я чертил
учитель такой дал
0
JokeR.BY
CAPITAL OF ROCK!
1278 / 705 / 982
Регистрация: 03.03.2010
Сообщений: 2,284
Завершенные тесты: 2
19.11.2014, 16:31 #4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
    x : Single;
begin
    Write('Введите x='); ReadLn(x);
    if (x >= 0) then
    begin
        if ((x < 1) Or ((x > 2) And (x < 4)) Or ((x > 7) And (x < 12))) then
            WriteLn('y=', 1);
        if (((x > 1) And (x < 2)) Or ((x > 4) And (x < 7)) Or (x > 12)) then
            WriteLn('y=', -1);
        if ((x = 1) Or (x = 2) Or (x = 4) Or (x = 7) Or (x = 12)) then
            WriteLn('y=[-1; 1]');
    end
    else
        WriteLn('Неверное значение x');
end.
1
Zyken
0 / 0 / 5
Регистрация: 19.11.2014
Сообщений: 33
19.11.2014, 17:09  [ТС] #5
спасибо

Добавлено через 32 минуты
Вы написали код только до 12
а функция же может продолжаться дальше
как описать последующие значения?
0
JokeR.BY
CAPITAL OF ROCK!
1278 / 705 / 982
Регистрация: 03.03.2010
Сообщений: 2,284
Завершенные тесты: 2
19.11.2014, 17:29 #6
Zyken, судя по вашему рисунку дальше y=-1
0
Zyken
0 / 0 / 5
Регистрация: 19.11.2014
Сообщений: 33
19.11.2014, 17:46  [ТС] #7
там такова суть, что следующие промежутки (их длинна) определяются суммой двух предыдущих
надо вот и написать программу, для определения y заданном x
0
Cyborg Drone
Модератор
5249 / 3116 / 2432
Регистрация: 17.08.2012
Сообщений: 10,070
20.11.2014, 15:00 #8
Приращение координат при переходе значения функции через 0 соответствует ряду Фибоначчи. Поэтому непосредственное вычисление значения функции невозможно. Только рекуррентно.
Числа Фибоначчи в программе вычисляются парами: 1, 1; 2, 3; 5, 8 и так далее. В комментарии {} - альтернативный способ печати значения функции. Разбирайтесь:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var i, j, k, n: integer;
    x: real;
begin
  repeat
    write('x = ');
    readln(x);
    if x < 0 then writeln('Error: x < 0, reenter.')
  until x >= 0;
  n := trunc(x);
  i := 1;
  j := 0;
  repeat
    i := i + j;
    j := i + j;
    n := n - i - j
  until n < 0;
  if n + j >= 0 then write('y = -1') else write('y = 1');
  {write('y = ', 1 - 2 * ord(n + j >= 0));}
  readln
end.
0
JokeR.BY
CAPITAL OF ROCK!
1278 / 705 / 982
Регистрация: 03.03.2010
Сообщений: 2,284
Завершенные тесты: 2
20.11.2014, 15:09 #9
Цитата Сообщение от Zyken Посмотреть сообщение
там такова суть, что следующие промежутки (их длинна) определяются суммой двух предыдущих
ну дак надо сразу уточнять.
0
Cyborg Drone
Модератор
5249 / 3116 / 2432
Регистрация: 17.08.2012
Сообщений: 10,070
20.11.2014, 15:59 #10
Да, чуть не забыл. В точках разрыва функция доопределена :

http://www.cyberforum.ru/cgi-bin/latex.cgi?<br />
y(x)=\lim_{a\rightarrow 0}\;y(x+a)\ ;\ \ a>0<br />
0
20.11.2014, 15:59
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.11.2014, 15:59
Привет! Вот еще темы с решениями:

Найти наибольшее и наименьшее значение функции в заданном интервале с заданным шагом.
Найти наибольшее и наименьшее значение функции в заданном интервале с заданным...

При заданном х найти предел последовательности
Последовательность функции Yn=Yn(x),где 0&lt;x определется следущим образом ...

При заданном действительном X найти сумму первых N членов ряда
Здравствуйте! При заданном действительном X найти сумму первых N членов ряда:...

Найти наименьшее значение функции y= sin(x) / (1+x) и значение аргумента, при котором оно получено
1. Найти наименьшее значение функции y= sin(x) / (1+x) и значение аргумента,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru