GAECHKA
Твоя помощница в решении задач

Построить график функции 1+x*y на заданном интервале [0,1]

Нужна помощь!!!Паскаль
0
вопрос задан

Источник


1 ответ
uses graph,wincrt;
function f(x:real):real;
begin
f:=-1/x;
end;
var x0,y0,i:integer;
    x,mx,my:real;
    s:string;
begin
x0:=detect;
initgraph(x0,y0,'');
x0:=50;
y0:=50;
mx:=getmaxX-100;
my:=(getmaxY-100)/-f(0.02);;
line(x0,y0,getmaxX-50,y0);
line(x0,y0,x0,getmaxY-50);
for i:=1 to 10 do
 begin
  line(x0+round(i*mx/10),y0-3,x0+round(i*mx/10),y0+3);
  line(x0-3,y0+round(i*my*10),x0+3,y0+round(i*my*10));
  str(i/10:0:1,s);
  outtextXY(x0+round(i*mx/10)-10,y0-20,s);
  str(i*10,s);
  outtextXY(x0-35,y0+round(i*my*10),'-'+s);
 end;
x:=0.02;
moveto(x0+round(x*mx),y0-round(f(x)*my));
setcolor(12);
while x=1 do
 begin
  lineto(x0+round(x*mx),y0-round(f(x)*my));
  x:=x+0.01;
 end;
readkey
end.