free pascal 加线

来源：百度知道编辑：UC知道时间：2024/05/22 15:03:13

如何在文本(text)里加一条线,
并不想直接 writeln（‘＿＿＿＿’）；

首先明确一下,如果在文本模式下,就只能writeln('_____');

如果在graph图象模式下,就可以用line(x1,y1,x2,y2);

uses crt；
......
line(x1,y1,x2,y2);
...
end.
貌似是这样用
line过程可以划线
但必须用crt单元
不过line的用法我忘了
（x1,y1）（x2,y2）表示两点的坐标