Очень срочно Помогите плиз!!! Написать программу табуляции функции у=1/х ** отрезке...

Question

Очень срочно Помогите плиз!!!

Написать программу табуляции функции у=1/х на отрезке [-2,2] с шагом 1 на языке Паскаль.

есть черновой вариант

Program A; uses crt; var x, y, n: real; begin clrscr; x:=-2; n:=2; writeln('----------------'); writeln (' x y '); writeln('----------------'); while x<=n do begin y:=1/x; writeln (x:3:0,y:8:2); x:=x+1; end; writeln('----------------'); writeln('Конец '); end.<br>На выходи выходит это

---

Comments

черновой вариант как бы и есть программа, которую требуется написать, не?

---

т.е это правильно?

---

да, это верное решение.

Answer 1

Так будет красивее и правильнее

uses crt;
const
    x0 = -2;
    xn = 2;
    dx = 1;

var
    x: real;

begin
    clrscr;
    x := x0;
   
    writeln('----------------');
    writeln('x':3, 'y':8);
    writeln('----------------');
    repeat
        writeln(x:3:0, '  ', (1 / x):8:2);
        x := x + dx;
    until x > xn;
    writeln('----------------');
    writeln('Конец ');
end.

Comments

тогда можно было бы ещё меньше переменных использовать

---

куда уж меньше - одна

---

константы не переменные

---

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

---

константа - тоже переменная, только фиксированная и неизменяемая!

---

Паскалевский компилятор заменяет имя константы её значением, затем сворачивает константные выражения, и только потом генерирует код. Так что, никаких ячеек в оперативной памяти не используется, и обращений к ним тем более нет.