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.На выходи выходит это 

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.