亲，您未登录哦！ 登录 | 注册
首页  |  社区  |  工具箱  |  代码库  |  博客  |  招聘  |  文章  |  新闻  |  下载  |  读书
回 帖 发 新 帖 刷新版面

主题：谁会编一串字母在屏幕上无限循环的那种

MagicTang [专家分：0] 发布于 2005-12-01 21:19:00

就像这样：
123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456
123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456123456789123456789123456
本帖地址：  http://bbs.pfan.cn/post/125964.html

回复列表 （共5个回复）

沙发

绿步甲 [专家分：1610] 发布于 2005-12-02 13:30:00

var
  i,j:integer;
begin
  for i:=1 to 9 do
    begin
      write(i);
      j:=j+1;if j mod 80=0
    then begin
writeln;
j:=0;
end;
if i =9
then i:=1;
end;
end.

板凳

绿步甲 [专家分：1610] 发布于 2005-12-02 13:31:00

加个分~~~~~~`

3 楼

michaellyz [专家分：270] 发布于 2005-12-02 21:08:00

先做个不可能结束的循环(即死循环),在for i:=1 to 9 do write(i);

4 楼

xuzhenyi [专家分：850] 发布于 2005-12-06 19:52:00

var
  i:byte
begin
  i:=1;
  while i=1 do
  write('123456789123456789123456');
end.

5 楼

xuzhenyi [专家分：850] 发布于 2005-12-06 19:53:00

这样行不行啊

我来回复

您尚未登录，请登录后再回复。点此登录或注册

程序员工具箱 new

  • 更多工具

    • 代码片段

  • 模拟键盘（不可按）
  • 碰撞的唐三
  • 精彩奥运热点赛事的实时采集
  • 获取天气动态信息
  • 文件查找
  • python大数据抓取京东电脑销量数据
  • 爬虫技术不仅仅支持数据采集
  • 抓取脉脉APP上的职业信息
  • 爬虫中多线程的运用
  • 四则运算以及一元二次方程
  • 欢迎来共享你的NB代码

    • 本版新帖

  • PASCAL语言讨论区开版了！！
  • 贪吃蛇
  • TP7下计算圆周率至小数点后10000位
  • 幻方构造程序(能打100阶以内的幻方)
  • 作图模式下显示汉字
  • 在作图模式下显示16色PCX图像
  • TP7下显示256色的BMP文件
  • NOI及其分区联赛介绍
  • 分区联赛初赛经验谈
  • 分区联赛复赛经验谈
  • 第八届全国青少年信息学奥林匹克联赛(NOIP2002)试题
  • NOIP2002复赛第一题解法
  • 1995复赛题求助！！！
  • 推荐pascal论坛（大家都来看看）
  • 八女皇问题