Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Zyken
0 / 0 / 0
Регистрация: 19.11.2014
Сообщений: 33
#1

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

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

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

Найти значение функции Y(X) при заданном X - Pascal
Цель задания 1. Изучение порядка действий при вычислении выражений. 2. Приобретение навыков в записи выражений на...

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

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

Найти наименьшее и наибольшее значение функции на заданном промежутке - Pascal
Задание: Найти наименьшее и наибольшее значение функции на промежутке. y=\sqrt{x-{x}^{3}}\, x\epsilon Проблема в том, что не...

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

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

9
JokeR.BY
CAPITAL OF ROCK!
1274 / 701 / 573
Регистрация: 03.03.2010
Сообщений: 2,284
Завершенные тесты: 2
19.11.2014, 16:14 #2
рисунок то неправильный. чему равен y при x=1?
0
Zyken
0 / 0 / 0
Регистрация: 19.11.2014
Сообщений: 33
19.11.2014, 16:17  [ТС] #3
рисунок не я чертил
учитель такой дал
0
JokeR.BY
CAPITAL OF ROCK!
1274 / 701 / 573
Регистрация: 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 / 0
Регистрация: 19.11.2014
Сообщений: 33
19.11.2014, 17:09  [ТС] #5
спасибо

Добавлено через 32 минуты
Вы написали код только до 12
а функция же может продолжаться дальше
как описать последующие значения?
0
JokeR.BY
CAPITAL OF ROCK!
1274 / 701 / 573
Регистрация: 03.03.2010
Сообщений: 2,284
Завершенные тесты: 2
19.11.2014, 17:29 #6
Zyken, судя по вашему рисунку дальше y=-1
0
Zyken
0 / 0 / 0
Регистрация: 19.11.2014
Сообщений: 33
19.11.2014, 17:46  [ТС] #7
там такова суть, что следующие промежутки (их длинна) определяются суммой двух предыдущих
надо вот и написать программу, для определения y заданном x
0
Cyborg Drone
Модератор
4727 / 2894 / 1130
Регистрация: 17.08.2012
Сообщений: 9,218
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!
1274 / 701 / 573
Регистрация: 03.03.2010
Сообщений: 2,284
Завершенные тесты: 2
20.11.2014, 15:09 #9
Цитата Сообщение от Zyken Посмотреть сообщение
там такова суть, что следующие промежутки (их длинна) определяются суммой двух предыдущих
ну дак надо сразу уточнять.
0
Cyborg Drone
Модератор
4727 / 2894 / 1130
Регистрация: 17.08.2012
Сообщений: 9,218
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
Привет! Вот еще темы с ответами:

При заданном х найти предел последовательности - Pascal
Последовательность функции Yn=Yn(x),где 0&lt;x определется следущим образом Y1=X; Yn=Y(n-1)*(2-x*Y(n-1)) ; n=2,3,4... При заданном х...

При заданном действительном X найти сумму первых N членов ряда - Pascal
Здравствуйте! При заданном действительном X найти сумму первых N членов ряда: Y = X – X3/3! + X5/5! – X7/7! + X9/9! - … . Сравнить Y со...

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

Вычислить значение выражения в заданном интервале - Pascal
Ребят, помогите пожалуйста написать программу в паскале. вот задание: x2-ln(1+x)-3, в интервале очень прошу вас


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

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

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