разместить таблицу по центру!

[ny6asik]

уважаемые гуру! помогите пожалуйста разместить таблицу по центру! дано задание протабулировать функцию и вывести с помощью псевдографики по центру окна.программу сделал,а вот куда повтыкать gotoxy не понимаю.помогите пожалуйста!вот программа:

program test;
uses crt;
var
  x,s,f:real;
  k:integer;
  c:char;
begin
  clrscr;
  writeln('ЙНННННЛНННЛНННННННННН»');
  writeln('є  X  є N є     F    є');
  writeln('МНННННОНННОНННННННННН№');
  x:=0.6;
  while x<=1.1 do
  begin
    s:=0;
    for k:=1 to 15 do
    begin
      s:=s+exp((2*k-1)*ln(x))/sqrt(exp(k*x)-1/k);
      if k>=10 then
      begin
        f:=s*exp(1/3*ln(k+sin(x)/cos(x)));
        writeln('є',x:5:2,'є',k:3,'є',f:10:8,'є');
        writeln('МНННННОНННОНННННННННН№'); 
        readkey;
      end;
    end;
  x:=x+0.05;
  end;
readln;
end.

[_-Re@l-_]

псевдографики

Чё тока не придумают......

[ny6asik]

ну как мне сказали, так я и сделал

[Stilet]

Я бы лучше так написал:

var
  x,s,f:real;
  k,i:integer;
  c:char;
begin
  write(#$DA);
   for i:=1 to 5 do    write(#$C4);write(#$C2);
   for i:=1 to 3 do    write(#$C4);write(#$C2);
   for i:=1 to 10 do    write(#$C4);
  write(#$BF);
  writeln;

  x:=0.6;
  while x<=1.1 do
  begin
    s:=0;
    for k:=1 to 15 do
    begin
      s:=s+exp((2*k-1)*ln(x))/sqrt(exp(k*x)-1/k);
      if k>=10 then
      begin
        f:=s*exp(1/3*ln(k+sin(x)/cos(x)));
        writeln(#$B3,x:5:2,#$B3,k:3,#$B3,f:10:8,#$B3);
      end;
    end;
  x:=x+0.05;
  end;
  write(#$C0);
   for i:=1 to 5 do    write(#$C4);write(#$C1);
   for i:=1 to 3 do    write(#$C4);write(#$C1);
   for i:=1 to 10 do    write(#$C4);
  write(#$D9);
readln;
end.

Ато твои кракозябры (ну не твои а досовские) некрасиво в исходнике выглядят, а так хоть кодами псевдографики отмажешся.

[ny6asik]

ок поменяю потом, а что по поводу центрирования? кто-нибудь знает как это сделать?