读书人

控制台显示字符有关问题

发布时间: 2012-03-16 16:34:56 作者: rapoo

控制台显示字符问题?
我想在 控制台的一个固定位置显示我变化的序号.
比如:
----------------------
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.

读书人网 >.NET

热点推荐