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

[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]

Спасибо! теперь обе колонки одинаковы!
Спасибо всем!! всё сделал!!!!

Сообщение отредактировано: punkska - 27.02.2006 12:57