急需：pascal题目

来源：百度知道 编辑：UC知道 时间：2024/05/29 06:51:30
请问有什么语句能够使实型的循环运算？
就像for to do 语句，它只能是整型，有没有什么语句可以是实型，像从1—2做的，就是第一次循环，赋值为1，第二次为1.1第三次1.2……这样？
谢谢~！

做法至少有两种。。。
方法一：用整型模拟
Var
i:integer;
r:real; //这个是你要的
Begin
For i:=1 to 10 do //假设你要10个就行了
begin
r:=r+i/10;
...//你继续用r变量就行了
end;
end.

方法二，可以用while/或者do..repeat 循环则只需定义一个real变量
var
r:real;
begin
r:=0;//初始化一下
do
r:=r+0.1;
...
until (r>3.5);
end.
这样子也可以做

Var
i:integer;
r:real; //这个是你要的
Begin
For i:=1 to 10 do //假设你要10个就行了
begin
r:=r+i/10;
...//你继续用r变量就行了
end;
end.