Графика

[Юра2323]

исследовать область определения и построить график функции
y=1/(3x^2+2x+1).

[Johnson]

А где Ваши наработки? Или Вы хотите решение за деньги?
Если второе - то пишите в личку, договоримся...

[phomm]

Да ) без наработок и Вашего кода тут Вы вряд ли получите решение Ваших зачетно-курсовых проблем. А вот за денежки вполне легко ))

А вот личка у новичков не работает.. поэтому оставляйте заявки либо в теме , либо по контактам форумчан , ну и самое православное - писать сразу во ФРИЛАНС

[p51x]

мда.. уже квадратные уранения просят за деньги решить....

[Andrey770]

uses crt,graph;
var grDriver,grMode:integer;
x,y:real;
i:integer;
function f(x:real):real;
begin
f:=1/(3*sqr(x)+2*x+1);
end;
procedure koordinate;
begin
setcolor(5);
setbkcolor(15);
line(320,0,320,350);
line(0,300,640,300);
line(318,10,320,0);
line(322,10,320,0);
line(630,298,640,300);
line(630,302,640,300);
setlinestyle(DashedLn,0,1);
line(0,240,640,240);
outtextxy(310,305,'0');
outtextxy(310,5,'Y');
outtextxy(630,305,'X');
end;
begin
grDriver:=Detect;
InitGraph(grDriver,grMode,'');
koordinate;
for i:=-320 to 320 do begin
x:=0.05*i;
if x<>0 then
begin
y:=f(x);
PutPixel(round(320+20*x),round(300-20*y),1);
end;
end;
readln;
closegraph;
end.

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

[Юра2323]

спасибо большое

[KNUTD]

У меня подобная просьба.Помогите нарисовать график по таблице значений Х и У,которые выводит данная программа)).

 Program Eiler;
Uses Crt;
Var
 xn,xk,yn,h,z,t,x,y:real;
 i:integer;

Function f(x,y:real):real;
begin
 f:=-z*(x-t);
end;

Begin
 ClrScr;
writeln('vvedite x(0)');
readln(yn);

  writeln('vvedite t , (x(0) > t)');
  readln(t);
while (xk<=0) or (xk>=10) do begin
writeln('vvedite predel integrirovania x (0 <x< 10)');
  readln(xk);end;
  writeln('vvedite z (z>0)');
  readln(z);
  while (h<=0) or (h>0.5) do begin
  writeln('vvedite shag (0 <h< 0.5)');
  readln(h);end;
 Writeln('--------------------');
 Writeln('| № |   x  |   y   |');
 Writeln('--------------------');
 x:=xn; y:=yn; i:=1;
 Writeln('|', i:2, ' |', x:5:2, ' |', y:7:4, ' |');
 repeat
   y:=y+h*f(x,y);
   Writeln('|', i:2, ' |', x:5:2, ' |', y:7:4, ' |');
   x:=x+h;
   i:=i+1;
 until x>xk;
 Writeln('--------------------');
 Readln;
End.