对联 ·故事 ·史海钩沉 ·人物档案 ·地方风俗 ·谚语大全 ·讽刺与幽默 · 赚钱 · 法律 · 在线教研 · 会员中心 · 心理测试 · 魔鬼词典 · 顺口溜
 
主页特效 网页特效 百家姓
娱乐 歇后语 绕口令 脑筋急转弯
 
谚语 谜语 名言 邮政编码
便民 酒方 验方 偏方 站长工具  
 
算命 风俗 手相 爱情
女孩 音乐 面相 星座 血型
 
饮食 穴道 偏方 医药
生活 软件 硬件 解梦 高考



   JS特效



实用工具
便民服务 加密解密
 
魅力高密 民间故事 Flash教程 PS教程 最新国内新闻
新华字典 黄道吉日 英语园地  万年历 Html2anycode
  首页 | 美图 | 短信 | 安全 | 校园 | 网站 | 游戏 | UFO | 文秘 | 生活 | 信息技术 | 论文 | 人生 | 情感 | 日记
返回首页

pascal中的repeat重复语句说明与例题

时间:2008-10-08 14:52来源: 作者:电脑 点击:
repeat语句是一种条件循环语句,它与while语句不同,是实现出口控制循环的构造型语句。 格式: repeat <循环体语句> until <条件表达式>; 说明: 当执行repeat语句时,首先执行一次循环体,然后判断条件表达式值,若不成立,即值为假,则重复执行循环体,否
  

repeat语句是一种条件循环语句,它与while语句不同,是实现出口控制循环的构造型语句。


格式:

repeat
<循环体语句>
until <条件表达式>;


说明:
当执行repeat语句时,首先执行一次循环体,然后判断条件表达式值,若不成立,即值为假,则重复执行循环体,否则,执行repeat语句的后续语句。


说明:
循环体的开头与结尾,不用begin和end括住,因为repeat、until起括号的作用。

 

例题:
编写程序计算
M=11+22+33+...+nn,直到M>=1030
并输出总和M和最大次方n的程序。


例题分析:
为计算方便起见,nn可化为对数及指数形式进行运算:
nn=enln(n)
其表达式为exp(n*ln(n))


程序代码:
program abc(input,output);
const mc=1.0e+30;
var n:integer;m:real;
begin
n:=0;m:=0;
repeat
n:=n+1;
m:=m+exp(n*ln(n));
until m>=mc;
writeln('m=',m);
writeln('n=',n);
end.

 

输出结果为:
m=2.1227845341e+31
n=23

顶一下
(0)
0%
踩一下
(0)
0%
------分隔线----------------------------
最新评论 查看所有评论
发表评论 查看所有评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
表情:
用户名: 密码: 验证码:
赞助商位置
推荐内容
杂七杂八