PascalABC.NET - Программа, которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика.

[serge-first]

Помогите написать программу, которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика. Параметр R задается как константа. Условный оператор if.

Спасибо.

[Mad_Cat]

контакты в профиле! welcome!

[serge-first]

Привет! А у Вас нет обычной почты, скайпом и аськой я не пользуюсь.

Подскажите, может были уже подобные задачи?

[alexander13]

Есть как минимум два пути решения задачи.. Один тупо в лоб, типа

if (x< -9) then ...
if (x > -9) and (x < -6) then ...

Лично мне нравится другой вариант: вывести уравнение этой кривой. Например, для правой части, которая больше нуля, там получится что-то типа y = (3 - x + 3*abs(x-3))/4. Ну это я так прикинул, потому что быстро.. чтобы для всей кривой вывести придется минут 10 посидеть с ручкой и бумагой.

[serge-first]

Будьте любезны, если будет время, помогите, пожалуйста!) Запустил, всё работа, некогда, надо было раньше начать решать, а в пн уже сессия и эта последняя задача. Осталось добить, но не выходит. В общем всё равно спасибо, буду пробовать!

[alexander13]

Ну, времени у Вас еще много. Подумайте, какой функцией определяется эта кривая.
Решение "в лоб" пишется вообще за 1 минуту, его оставьте про запас.
Вот, например, первую от начала координат четверть окружности можно записать как sqrt( ( 9*(1-sgn(x)) - x^2 + x*abs(x) ) / 2)

Upd.
В общем, если Вам неинтересно, то не заморачивайтесь и пишите с кучей if'ов.. а если математику на уровне школы помните, то через функцию как-то покрасивее будет.

[serge-first]

В условии задачи: условный оператор if

[Serge_Bliznykov]

я бы лично не стал выводить единую формулу
(во-первых, это сложнее, во-вторых, менее надёжно - шанс ошибиться очень высок, в-третьих, не универсально и не наглядно. )

да и думаю, что ожидается ответ такового вида (рабиваем график на отдельные участки, для каждого строим свою формулу):

if (x<-9) or (x>9) then WriteLn('Значение функции не определено!')
else begin
  if (x>=-9) and (x<=-6) then y := - sqrt( sqr(R) - sqr(x+6) );
  if (x>-6) and (x<=-3) then y := x + 3;
  if (x>-3) and (x<=0) then y := sqrt( sqr(R) - sqr(x) );
  if (x>0) and (x<=3) then y := 3 - x;
  if (x>3) and (x<=9) then y := 0.5 * (x - 3);
  WriteLn('y = ', y:0:4);  {выведем вещественный результат с 4-мя зн.после запятой}
end;

[alexander13]

Сообщение от Serge_Bliznykov

я бы лично не стал выводить единую формулу
(во-первых, это сложнее, во-вторых, менее надёжно - шанс ошибиться очень высок, в-третьих, не универсально и не наглядно. )

Сложнее, но зато интересно) И полезно, для общего развития.
А так-то да, через условный оператор и проще, и наглядней, и так ожидается, тут я согласен.

[serge-first]

Огромное СПАСИБО! Вы меня очень выручили! )))