Паскаль. Таблица со значениями функции.

[enji4ka]

Здравствуйте, очень нуждаюсь в вашей помощи. Мне нужно сделать в Паскале(не графический режим) таблицу со значениями функции. Значения Х в промежутке [-a,a] с шагом 0.5.Выводятся значения и Х, и У.
На экране должно быть так:
Х | Y X | Y
----|----- -----|------
-10 |... 0 |....
-9.5|... 0.5 |...
..... |... ......|....
-0.5|... 10 |....
Значения У считаются по формуле. Где Х=1 и -1 пишется, где У -нет.
Программа обязательно из циклов.Буду очень признательна, если кто-то откликнется и поможет...

[optimator]

Значения У считаются по формуле. Где Х=1 и -1 пишется, где У -нет.

Что-то не совсем понятно, какая же формула для Y.

[enji4ka]

Значения Х должны быть от -10 до 10 с шагом 0.5.
Сама функция Y=7/(x-1)-2/(1+X).
Выводятся значения Х и У , т.е. X|Y X|Y в столбиках
Там, где Х=-1 , 1 , в значениях У пишется - нет.

[optimator]

Процедура, которая печатает значения функции

procedure print(left,right,step:real);

begin
   writeln( '     x    | x*y       |     y');
   while  left<=right do
   begin
   if abs(left)=1  then      writeln(left,'    |   no   |      no')
   else writeln(left,'    |      ',   7/(left-1)-2/(1+left)*left, '      |     ',7/(left-1)-2/(1+left));
   left:=left+step;
   end;

end;

в основной проге вызываемм ее с нужными параметрами

 print(-10,10,0.5);

[enji4ka]

Спасибо большое, это уже большое продвижение.. А можно это сделать как-то без процедур? Дело в том, что мне только с циклами надо, никаких процедур, никаких массивов...((((

[optimator]

С процедурами вообщето красивее и правильнее. Но ладно:

program table;
var left,right, step: real;
   
   begin
   left:=-10;
   right:=10;
   step:=0.5;
   writeln( '     x    | x*y       |     y');
   while  left<=right do
   begin
   if abs(left)=1  then      writeln(left,'    |   no   |      no')
   else writeln(left,'    |      ',   7/(left-1)-2/(1+left)*left, '      |     ',7/(left-1)-2/(1+left));
   left:=left+step;
   end;


   end.

[enji4ka]

Я всё написала, как надо, а у меня почему-то такое появляется(((А надо:

[Stilet]

Форматирование вывода в паскале еще никто не отменял:

...
   writeln( 'x':5,'|':5,'x*y':7,'|':5,'y':5);
   while  left<=right do
   begin
   if abs(left)=1  then      writeln(left:5:1,'|':5,'no':7,'|':5,'no':7)
   else writeln(left:5:1,'|':5,7/(left-1)-2/(1+left)*left:7:3, '|':5,7/(left-1)-2/(1+left):7:3);
...

[enji4ka]

А вы не могли бы мне весь код от начала до конца написать?А то у меня действительно проблемы с программированием!Буду очень признательна!

[Stilet]

А тут не нужно знать программирование.
Внимательно посмотри где и что я подправил - и подправь так же.