关于clrscr(清屏)问题答出加+++高分~~

您所在位置：社区首页 — PASCAL语言讨论区 — 关于clrscr(清屏)问题答出加+++高分~~

主题：关于clrscr(清屏)问题答出加+++高分~~

绿步甲 [专家分：1610] 发布于 2005-08-20 19:55:00

偶输出数字呀、字码呀，用clrscr清屏后，屏幕是黑的。
但偶画图后，用clrscr清屏后，屏幕就变成了白的，这是怎么会事？谁能教我在clrscr后屏幕仍是黑的，我加++++高分~~~

21 楼

小田甜 [专家分：3910] 发布于 2008-07-08 21:06:00

setcolor(15);
setbackground(0);
write('1324');

22 楼

maxumi [专家分：2200] 发布于 2008-07-13 12:16:00

procedure cls;
  var
    i:integer;
  begin
    for i=0 to 3999 do mem[$B800:i]:=0;
    for i=0 to 31999 do mem[$A000:i]:=0;
  end;

试试这个？

23 楼

angwuy [专家分：2280] 发布于 2008-07-13 14:34:00

哇，斑竹终于回来了

24 楼

游侠UFO [专家分：1200] 发布于 2008-07-13 15:41:00

厄..PASCAL图形...完全的小白飘过~~~....

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