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

Question

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

---

---

Comments

http://ru.static.z-dn.net/files/dff/9a9fe4c010a8ef931ef9bd55dd7da3a9.png

---

Я про программу, а не про картинку, хочу сам запустить и протестить

---

вот http://www.fayloobmennik.net/3574457

---

Вы в каком паскале пишите ?

---

открыть надо в этой программе http://www.fayloobmennik.net/3574680

---

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

---

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

---

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;

---

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.

Answer 1

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

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<br>    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.

Comments

спасибо огромное, все работает)))