free pascal 中有没有循环是两个一加

[复制链接]
查看11 | 回复5 | 2009-4-23 19:02:01 | 显示全部楼层 |阅读模式
就是有没有这种函数或者有没有类似的方法

回复

使用道具 举报

千问 | 2009-4-23 19:02:01 | 显示全部楼层
____没有。pascal的for循环每次要么是每次加一(例如for i:=1 to n do),要么是每次减一(例如for i:=n downto 1 do),没有办法设置步长。不过Basic语言可以设置步长(例如for i=1 to n step 2就能达到你要的效果,每次变量的值增加2)。____不过pascal中还有while和repeat语句,这两种语句可以达到你想要的目的。例如:i:=0;while i=n;但这已经不是经典的for循环了。...
回复

使用道具 举报

千问 | 2009-4-23 19:02:01 | 显示全部楼层
首先,很负责任地说,没有!但是,如果你想用,可以!for i:=1 to n do{看自己情况,这个不重要}begin
{程序体}
i:=i+1;end;(曲线救国,怎么样,很聪明吧!)***********************************************************...
回复

使用道具 举报

千问 | 2009-4-23 19:02:01 | 显示全部楼层
说清楚一点,什么两个一加?如果是函数很简单,自己定义嘛!function jia(a,b:integer):integer; begin f:=a+b; end.往程序里一套就行了你说的‘循环’就不知道怎么弄了。...
回复

使用道具 举报

千问 | 2009-4-23 19:02:01 | 显示全部楼层
for n:=1 to 10 dofor j:=1 to 2*n-1 do write(j);这样就可以输出1,3,5,7,9,11,13,15,17,19几个值同理用双重for循环就可以达到你想要的效果...
回复

使用道具 举报

千问 | 2009-4-23 19:02:01 | 显示全部楼层
repeatmain; i:=i+2;until i=destination;可以用上诉语句来实现呀如实现求和1+3+5+7+9+......+(2n+1)主程序如下 sum:=0;i:=1;repeat sum:=sum+i; i:=i+2;until i=2*n+3;也可以用while语...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行