Формула на языке Pascal

[ViNcHeStEr]

Нужно построить график по формуле |y|=3^|x|-50.
Я знаю как построить график.
Вопрос: как записать эту формулу на языке Pascal.

[Карась]

примерно так:

y := ABS(Power(3, x) - 50)

Функцию Power напишешь сам, она должна принять значение степени, сделать его по модулю и возвести тройку в x.

[bag]

Карась, попробуй в оригинальную формулу подставить x=0 и в свою. По-моему результаты немного различаются. Поясню: условие |y|=-49 невыполнимо, а если подставить в твою формулу, то все нормально. В том-то и вся фишка!

Во-вторых, если подставить x=4, то в оригинале получится |y|=31, значит имеется 2 решения: y=31 и y=-31

Решение должно по следующему алгоритму:
1) Проверяем, что значение x входит в диапазон
(-бесконечность;-log 50 по осн. 3]AND[-log 50 по осн. 3; бесконечность)
2) Пользуясь формулой Карася найти значение |y|
3) Построить на графике 2 точки: +|y| и -|y|, соответствующие текущему значению x

[ViNcHeStEr]

Я незнаю как записать в Паскале 3^|x|.

[eoln]

a^b = exp(b*ln(a))

3^|x|-50 === exp(abs(x)*ln(3)) - 50

|y|=3^|x|-50. - математически неверная запись!

[ViNcHeStEr]

Спасибо! Я тоже думаю что запись математически неверная, т.к.:

program Grafik;
uses graph;
const
shag=0.001;
min=-50;
max=50;
centerx=320;
centery=240;
var
driver,mode,x,y:integer;
begin
readln;
driver:=0;
mode:=0;
initgraph(driver,mode,'c:\bp\bgi');
line(320,0,320,480);
line(0,240,640,240);

x:=min;
while x<=max do
begin
y:=exp(abs(x)*ln(3))-50; {Type mistmatch}
y:=abs(y);
if abs(y) < MaxInt then
putpixel(centerx+trunc(x),centery-trunc(y),red);
x:=x+shag;
end;

readln;
end.

[eoln]

Спасибо! Я тоже думаю что запись математически неверная

y:=exp(abs(x)*ln(3))-50; <U><I><B>{Type mistmatch}

y: real должна быть. Запись неверна т.к. не подпадает под определение уравнения кривой. Рассмотреть надо совокупность уравнений:
y=3^|x|-50
-y=3^|x|-50

[ViNcHeStEr]

Вот программа построения графика:

program Grafik;
uses graph;
const
shag=0.001;
min=-50;
max=50;
centerx=320;
centery=240;
var
driver,mode:integer;
x,y:real;
begin
readln;
driver:=0;
mode:=0;
initgraph(driver,mode,'c:\bp\bgi');
line(320,0,320,480);
line(0,240,640,240);

x:=min;
while x<=max do
begin
y:=exp(abs(x)*ln(3))-50;
y:=abs(y);
if abs(y) < Maxint then
putpixel(centerx+trunc(x),centery-trunc(y),red);
x:=x+shag;
end;

readln;
end.

Но мне кажется график слишком маленький и следовательно неправильный... А ещё нужно написать на осях XY координаты, но как это сделать чтобы координаты соответствовали графику?

[puporev]

|y|=3^|x|-50.

Это нормальная математическая запись и она действительно представляет совокупность двух уравнений

y=3^|x|-50
y=50-3^|x|

Значит строить надо две разных ветки графика. Чтобы график выглядел как во вложении, нужно провести масштабирование по обеим осям, растянуть по оси Х и сжать по оси У. Тут сначала на бумажке провести необходимые расчеты, ввести поправки в формулы, а потом строить график.

[ViNcHeStEr]

Вот подставил так, не работает:

program Grafik;
uses graph;
const
shag=0.001;
min=-50;
max=50;
centerx=320;
centery=240;
var
driver,mode:integer;
x,y:real;
begin
readln;
driver:=0;
mode:=0;
initgraph(driver,mode,'c:\bp\bgi');
line(320,0,320,480);
line(0,240,640,240);

x:=min;
while x<=0 do
begin
y=50-exp(abs(x)*ln(3));
y:=abs(y);
if abs(y) < Maxint then
putpixel(centerx+trunc(x),centery-trunc(y),red);
x:=x+shag;
end;

while x>0 do
begin
y:=exp(abs(x)*ln(3))-50; {ОШИБКА}
y:=abs(y);
if abs(y) < Maxint then
putpixel(centerx+trunc(x),centery-trunc(y),red);
x:=x+shag;
end;

readln;
end.