помогите, пожалуйста! нужно исправить ошибку. задание во вложении.

+ 0 -

Paxomow2003

01 мая 2014 г., 13:18:16 (9 лет назад)

отрисовку не проверяла, но ошибка указанная в рисунке решена

program qq;
const
    a = 320;
    b = 250;
    k = 50;
    xmin = -5;
    xmax = 5;
    ymax = 10;
    h = 0.01;

var
    x, y: real;
    w, xe, ye: integer;

begin
    w := round((xmax - xmin) * k);
    line(a - 200, b, a + w, b);
    line(a, k, a, 2 * b);
    x := xmin;
   
    while (x <= xmax) do
    begin
        y := 1 / (x * x * x);
        if abs(y) < ymax then begin
            xe := a + round(k * x);
            ye := b - round(k * y);
            point(xe, ye);
        end;
        x := x + h;
    end;
    pen(1, 1, 1, 1);
    moveto(250, 40);
    textcolor(1, 1, 1);
    brush(0, 25, 25, 0);
    font(10, 0, 60);
    writeln('y');
    pen(1, 1, 1, 1);
    moveto(450, 200);
    textcolor(1, 1, 1);
    brush(0, 25, 25, 0);
    font(10, 0, 60);
    writeln('x');
end.

+ 0 -

Vhips5

01 мая 2014 г., 13:55:11 (9 лет назад)

Комментарий удален

+ 0 -

Вика173

01 мая 2014 г., 15:10:39 (9 лет назад)

вы можете исправить ошибку? я дала ссылки, среда паскаля- algo.

+ 0 -

КсенияЛиса123

01 мая 2014 г., 15:56:50 (9 лет назад)

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

+ 0 -

волшебноемяско3

01 мая 2014 г., 18:18:17 (9 лет назад)

Program qq;
const a=320; b=250; k=50;
var x,y,h:real;xmin,xmax,w,xe,ye:integer;
Begin
xmin:=-5;
xmax:=5;
w:=round((xmax-xmin)*k);
line(a-200,b,a+w,b);
line(a,k,a,2*b);
x:=xmin;
h:=0.01;
while (x<=xmax)and (x<>0) do
begin
y:=1/(x*x*x);
xe:=a+round(k*x);
ye:=b-round(k*y);
point(xe,ye);
x:=x+h;
end;

+ 0 -

Nika14kravts

01 мая 2014 г., 19:30:58 (9 лет назад)

pen(1,1,1,1);
moveto(250,40);
textcolor(1,1,1);
brush(0,25,25,0);
font(10,0,60);
writeln('y');
pen(1,1,1,1);
moveto(450,200);
textcolor(1,1,1);
brush(0,25,25,0);
font(10,0,60);
writeln('y');
end.