控制台显示字符问题?
我想在 控制台的一个固定位置显示我变化的序号.
比如:
----------------------
aaaaaaaaaa
在这个位置显示我1-100之间变化的序号.怎么做?
|
|
|
|
|
|
88 谢谢大虾!
[解决办法]
===========================感觉回到了DOS时代=========================
program Project1;
uses
Windows, SysUtils;
{$APPTYPE CONSOLE} //控制台程序这个是必须
var
c: char;
i,j,m,n,k: integer;
begin
Write('请输入序列下限值：');
Read(m);
Write('请输入序列上限值：');
Read(n);
Write('请输入序列显示位置：');
Read(k);
WriteLn('----------------------');
WriteLn('aaaaaaaaaa');
for i:=m to n do
begin
for j:=1 to k do Write(' ');
WriteLn(i);
end;
WriteLn('----------------------');
Write('输入Q退出');
while (c<>'q') and (c<>'Q') do Read(c);
end.
