控制台下显示简单图形

新建=》其它=》控制台程序

program Project1;

{$APPTYPE CONSOLE}
begin
  Writeln('   |   |   ');
  Writeln('  x|   |   ');
  Writeln('---|---|---');
  Writeln('   | 0 |x  ');
  Writeln('---|---|---');
  Writeln('   | 0 |   ');
  Writeln('   |   |   ');
  Readln;
end.

 

这个完全是画上去的，并没有用到任何算法，记得我以前学汇编时也做过相关的，不过那代码比这个长了不只几倍，是在控制台窗口显示我的网名（当时网名叫‘浪移风’），呵呵