主题:[活动]谁能解答PASCAL问题(回者有分)
phile
[专家分:2310] 发布于 2009-08-25 19:05:00
[size=3]1.有没有清屏语句?
2.为什么运行结果必须再运行一下才能看到?
3.介绍一下PASCAL里的的语句.
回多少给多少分![/size]
最后更新于:2009-08-26 08:56:00
回复列表 (共5个回复)
沙发
tzhlryy [专家分:270] 发布于 2009-08-26 13:17:00
有两种过程:
ClrEol:清除当前行光标所在位置以后所有字符
ClrScr:清除当前窗口或屏幕,光标返回到左上角
(具体见pascal中级本(蓝色书面)第282页表4中(crt单元中部分常用过程与函数)的第2、3两行)
可以不用再次运行,按下Alt+F5即可看见运行窗口,建议lz用Free Pscal,它与Windows XP容易产生冲突,运行,输出之后不会立刻跳出,而是Windows给出的错误指令,按下“确定”后才回跳出输出窗口
这个语句吗......详见pascal中级本(蓝色书面)的附录7(278页--283页):Pascal标准库单元中的过程与函数
板凳
abcwuhang [专家分:1840] 发布于 2009-08-26 17:13:00
在program后、const/label前加上:
uses crt;
然后在程序随意位置前加上clrscr;即可。
3 楼
abcwuhang [专家分:1840] 发布于 2009-08-26 17:20:00
2、那当然。因为你没运行程序程序结果不可能知道(除非是定值)
3、(咋讲呢。。。/?)
赋值语句(正则表达式)
if。。then。。(else。。) 语句
for语句 }循环语句
while/repeat。。。until语句 }
数组
过程/函数
链表
记录类型
还有一些单元里的语句。。。。(太多了,在此忽略)
比如:
a:array [1..1000] of longint;
readln(n);
procedure main;
function check:boolean;
while i<n do
begin
if i<n-1 then writeln(i)
else writeln(n);
end;
repeat readln(n);until eof;
new(p);
p^.next:=q;
p.data:=n;
with p do
data:=n;
for i:=1 to n do
write(i);
a:=a+b;
等等,很多拉。。。。
4 楼
phile [专家分:2310] 发布于 2009-08-26 17:34:00
多谢!
5 楼
abcwuhang [专家分:1840] 发布于 2009-08-26 17:38:00
没事,以后有问题发到我邮箱
我来回复