free pascal 语句while ....... do begin end

首先很抱歉的告诉你，你的程序是个死循环，TRUE永远都没有改变，所以这个while循环就一直在执行。对于怎么调节循环速度，你可以在循环中添加一个“费语句”，比如：
while...do begin
.........
.........
for i:=1 to 1000000 do j:=j+1;
.........
for i:=1 to 1000000 do j:=j-1;
.........
end;
大概就可以放慢速度了，不过还可以使用delay之类的延时语句。

循环速度是个什么概念……循环不能调节“速度”。如果要卡一卡来观察之类的可以使用delay等延迟函数，具体可以上网搜索相关代码。

while true do
begin
end
这是一个死循环啊！！！
比如你可以加一个计数器：
begin
count:=0;
while count<=5 do
begin
count:=count+1;
......
end;
或者直接把while循环去掉

while true do
begin
end
这是一个死循环啊！！！
把WHILE改成IF就行了!!!!

菱形那道是吗？
PASCAL运算速度是每秒钟10^8，咋控制？
一直用F8，分步跟踪
速度你说的是步长？？？