в графическом режиме сделать функцию-Важно

[Novenkaja]

В графическом режиме найти(выполнить) функции
y=( 1-3x/3-sqr(x) ) : (и три подпункта этого задания)

1-значение Y,если по модулю не выше 15,
2-на осях должны быть фидны деления(т.е. цифры там -1,0,1),а не названия этих осей,
3-на экране должны быть видна формула функции

Очень нужно,желательно в ближайший час.Крайнее время завтра до 14:00 по Московскому времени,т.к. завтра надо это сдать преподователю

Заранее буду благодрна всем,кто поможет)))

я что-то составила,и из того что есть говорит,что compile try-press any key,а в run показывает сплошной чёрный экран и ничего более...значит где-то всё таки я ошиблась

[MIKE11IPME]

(1-3х)/(3-sqr(x)) мб такая твоя функция ?
уж больно лёгкое задание

[Novenkaja]

y=1-3x/ 3-x2 (x v kvadrate)

да лёгкое,но я в программирование новичёк,и пока далеко от этого,так ещё могу что-то,а в графическом режиме неочень....

[MIKE11IPME]

если же твоя функция и вправду y=( 1-3x/3-sqr(x) )
то вот прога

program lab5;
uses graph,crt;
var gb,f,gm:Integer;
k,x0,y0,g:real;
t:char;



procedure showgraph(const xq,yq,kq:real);
var x,y,x1,y1,dx:real;
i,x00,y00,j,p,q:integer;
begin
setcolor(15);
setlinestyle(0,0,1);
x00:=round(xq);
y00:=round(yq);
x:=-57;
dx:=0.001;
cleardevice;
line(10,y00,getmaxX-10,y00);
line(x00,10,x00,getmaxY-10);
line(x00,10,x00-5,15);
line(x00,10,x00+5,15);
line(x00-5,15,x00+5,15);
line(getmaxX-10,y00,getmaxX-15,y00-5);
line(getmaxX-10,y00,getmaxX-15,y00+5);
line(getmaxX-15,y00+5,getmaxX-15,y00-5);
f:=0;
while (f<getmaxX*5) do
 begin
 line(round(f*kq),y00+3,round(f*kq),y00-3);
 inc(f,10);
 end;
f:=0;
While (f<getmaxY*5) do
 begin
 line(x00+3,round(f*kq),x00-3,round(f*kq));
 inc(f,10);
 end;
outtextxy(getmaxX-15,y00+10,'X');
outtextxy(x00-15,10,'Y');
outtextxy(x00-10,y00+5,'0');
j:=8;
p:=1;
q:=15;
setcolor(2);
{AsiptotbI}
setlinestyle(3,3,3);
line(x00,0,x00,getmaxY);
g:=kq;
x:=-57;
i:=-9;
while x<57 do
begin
if x<>0 then
begin
y:=( 1-3x/3-sqr(x) );
if (ABS(y1-y)>0) and (ABS(x1-x)<1) then
begin
setcolor(14);
setlinestyle(0,0,1);
line(x00+round(x1*20*kq),y00-round(y1*20*kq),x00+round(x*20*kq),y00-round(y*20*kq));
end;
y1:=y;
x1:=x;
end;
x:=x+dx;
end;
end;

begin

g:=1;
gb:=0;
initgraph(gb,gm,'');
x0:=getmaxX div 2;
y0:=getmaxY div 2;
k:=1;
showgraph(x0,y0,k);
repeat
t:=Readkey;
case t of
#50:begin
y0:=y0-50;
showgraph(x0,y0,k);
end;
#52:begin
x0:=x0+50;
showgraph(x0,y0,k);
end;
#54:begin
x0:=x0-50;
showgraph(x0,y0,k);
end;
#56:begin
y0:=y0+50;
showgraph(x0,y0,k);
end;
#43:begin
k:=k*2;
k:=k*2;
showgraph(x0,y0,k);
end;
#45:begin
k:=k/2;
k:=k/2;
showgraph(x0,y0,k);
end;
end;
until t=#48;
closegraph;
end.

[Novenkaja]

ого,а в ране будет что-то похожее на вот это???


это как пример(образец) в нете выложила преподователь,мол,знайте,что к примеру у вас должно получится

[MIKE11IPME]

такое не возможно получить при твоей функции

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

[Novenkaja]

да,я знаю,что при моей функции нельзя получить такое же....т.к. тут другая функия

но смысл тот же
то,что ты мне написал-будет ли на графике отображаться цифры? т.е. -1,0,+1(координаты)

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

извени,я пошла спать,очень давно тут(в компе) сижу,пойду спать
всё равно спаибо
ответ прочту завтра с утра

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

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

в смысле?не поняла что ты сказал....
я написала тут своё задание,ты мне написал его код,я его завтра введу в прог и посмотрю,компдлерирует,если да,то выда\ёт ли мой рисунок в ране по моему графику

а картинка это нам студентам как образец...такое ниукого не выйдет,т.к. у каждого своя формула...

[Novenkaja]

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

немогли бы мне помочь их устронить? чтобы программа компилировала и выдавала ран)))

заранее спасибо

[Stilet]

y:=( 1-3x/3-sqr(x) );

А надо:

y:=( 1-3*x/3-sqr(x) );

[Novenkaja]

точно,сейчас изменю и посмотрю,что выдаст компайл....