Табличный вывод!, забыл как делать Опции

[punkska]

необходимо вывести для 5 или больше значений X значение сходимости ряда

Program Lab0;
Uses crt;
{$F+}
 {SI global.inc}
 {SI func.inc}
 {SI inout.inc}
Begin
CLRSCR;
Writeln('Laba1');
Writeln('+--------------+');
Writeln('+--------------+');
Writeln('THE END.');
readln;
END.

func.inc

function Y(x: double): double;
const eps = 0.0000001;
var
  s, next: double;
  n: integer;
begin
  next := 1;
  s := next; n := 1;
  repeat
    inc(n);
    next := next*(n-1)*x/n;
    s := s + next;
  until (next) < eps;
  Y:= s
end;

как выводиться информация ввиде таблице в данном случае ?? можно ли функцию в виде параметра передовать? что-то совсем всё забыл(

[punkska]

для порядка и ясности напишу задание

Составить алгоритм модулю для вычисления y(x)=x/2+2*x^2/3+3*x^3/4+...
вычислить пока очередной член ряда а н-ое > E
вычислить для 5 значений x


ПРЕАОДОВАТЕЛЬ был взбешон и не доволен

1. этой строчкой в функции until ((next) < eps) or (n=100)

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

2. табличный вывод Я совсем забыл как он делаеться ! НО почитав хелп нашёл полезную инфу

по ней составил простую программу

program znaki;
uses crt;
var 
i: integer;
Begin
for i:=179 to 219 do write(i,' ',chr(i),'  ');
readkey;
end.

в начале начал писать таблицу циклами что0то типо for i:=1 to 15 do writeln(chr(205)); wr//(chr(187));чуть крыша не поехала!!! таблица не получалась)

потом вспомнил что таблицу можно рисовать через врайтлн а сами знаки -ЗАЖАВ АЛЬТ + НОМЕР СИМВОЛА!

но таблица не получаеться ровной! как сделать чтоб y(x) занимал заданное количество клеток y(x):6 не получаеться(
что тут посоветуете?

3. необходимо написать эту же функцию тока с пред условие! что это значит? он про чикл мне говорил???


2. пункт

возможно написать универсальный модуль для построение таблиц??? может его на форуме уже писали!?
Преподователь сказал что это ОЧЕНЬ сложно и он будет ОЧЕНЬ большим!!