这个delphi的while循环语句怎样写?

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了这个delphi的while循环语句怎样写?相关的知识,希望对你有一定的参考价值。

从数字K到N的累加和,即若K为2,N为5,则程序代表2+3+4+5是14。要求
1.只能用while语句
2.中间应该用到IF语句以判断K和N哪个大的情况
感谢EastMagician,但回答不完整。就是当K<N时以及当K>N时两种情况,而实际只回答了前一种。我尝试加写后一种,但没有成功:
function TForm1.GetNum(iBeg,iEnd:integer):integer;
var
Num:integer;
begin
num:=0;
if iBeg<iEnd then //
while iBeg <= iEnd do
begin
Num:=Num + iBeg;
iBeg:=iBeg + 1;
Result:=Num
end
else//当开始数大于结尾数
while iEnd<=iBeg do
begin
Num:=Num + iEnd;
iEnd:=iEnd + 1;
Result:=Num;
end;
end;//结果是当开始数小于结尾数,能正确显示结果,但当结尾数小于开始数时,就出现问题。请高手指点

参考技术A function GetNum(iBeg,iEnd:integer):ingteger;
var
Num:integer;
begin
if iBeg > iEnd then //iBeg iEnd互换
begin
Num:= iBeg;
iBeg:= iEnd;
iEnd:= Num;
Num:= 0;
end;
while iBeg <= iEnd do
begin
Num:=Num + iBeg;
iBeg:=iBeg + 1;
end;
Result:=Num;
end;

你要非喜欢用if就
function GetNum(iBeg,iEnd:integer):ingteger;
var
Num:integer;
begin
while 1 = 1 do //死循环
begin
Num:=Num + iBeg;
iBeg:=iBeg + 1;
if iBeg > iEnd then break; //符合条件打断
end;
Result:=Num;
end;本回答被提问者采纳
参考技术B function
GetNum(iBeg,iEnd:integer):ingteger;
var
Num:integer;
begin
if
iBeg
>
iEnd
then
//iBeg
iEnd互换
begin
Num:=
iBeg;
iBeg:=
iEnd;
iEnd:=
Num;
Num:=
0;
end;
while
iBeg
<=
iEnd
do
begin
Num:=Num
+
iBeg;
iBeg:=iBeg
+
1;
end;
Result:=Num;
end;
你要非喜欢用if就
function
GetNum(iBeg,iEnd:integer):ingteger;
var
Num:integer;
begin
while
1
=
1
do
//死循环
begin
Num:=Num
+
iBeg;
iBeg:=iBeg
+
1;
if
iBeg
>
iEnd
then
break;
//符合条件打断
end;
Result:=Num;
end;

Python 全栈开发:python循环语句while

while循环

为什么会有循环这种语句?

举一个简单的例子:我们想计算0-100以内偶数的和,这种时候就需要循环这种语句

那有人可能会说:这有什么 0+2+4+.......+98 一样可以计算出来啊

突然我们的条件变了:计算0-10000000内偶数的和

可想而知这是怎样的一个工作量,循环正好可以解决这种问题。

流程图:

 

Gif 演示 Python while 语句执行过程

python中while循环的表现形式就如同上图。

语法形式:

while  循环条件:
    循环体(代码块)
    循环体(代码块)
    循环体(代码块)
            .
            .
            .

eg:

#计算100以内偶数的和
count = 0
sum = 0                 #总和
while count < 100: 
    if count%2==0:      #判断是否为偶数
        sum+=count      #是偶数就相加
    count+=1            #计数加一

 

死循环

在while循环中不小心把条件写错了就会出现死循环的情况,程序永远也停不下来。

#计算100以内偶数的和
count = 0
sum = 0                 #总和
while count >-1:       #count > -1 永远为真 while无限循环
    if count%2==0:      #判断是否为偶数
        sum+=count      #是偶数就相加
    count+=1            #计数加一
    print(\'这里风好大,根本停不下来!!!\')

break 和 continue

如何在循环体中终止循环呢,这就用到了break

#计算100以内偶数的和
count = 0
sum = 0                  #总和
while count >-1:      #count > -1 永远为真 while无限循环
    if count ==100:
       print(\'即使风再大,我也能停下!!!\')
       break        #结束本层循环,循环终止
    if count%2==0:       #判断是否为偶数
        sum+=count       #是偶数就相加
    count+=1             #计数加一
    print(\'这里风好大,根本停不下来!!!\')

break语句:用来终止循环语句,即循环条件没有False条件或者序列还没被完全递归完,也会停止执行循环语句。

#计算100以内偶数的和
count = 0
sum = 0                  #总和
while count >-1:      #count > -1 永远为真 while无限循环
    if count ==50:
       print(\'风这么大,我只能停一下!!!\')
       continue          #结束本次循环,进入 下一次循环
    if count ==100: 
       print(\'即使风再大,我也能停下!!!\')
       break        #结束本层循环,循环终止
    if count%2==0:       #判断是否为偶数
        sum+=count       #是偶数就相加
    count+=1             #计数加一
    print(\'这里风好大,根本停不下来!!!\')

continue语句:告诉Python跳过当前循环的剩余语句,然后继续进行下一轮循环

小结:

break跳出整个循环,循环终止

continue跳出本次循环,执行下一次循环

 

else语句

在 python 中,while … else 在循环条件为 False 时执行 else 语句块:

count = 0
while count <5:
        print(\'循环正在运行中\')
        count+=1
else:
        print(\'循环终止了\')    

结果

注意:

else 语句只有在while循环正常循环完毕(循环条件为False才执行

通过break终止循环不会执行

eg:

count = 0
while count <5:
        if count  == 3:
            break
        print(\'循环正在运行中\')
        count+=1
else:
        print(\'循环终止了\')       

结果

 

 

 

 有问题错误欢迎留言

 

以上是关于这个delphi的while循环语句怎样写?的主要内容,如果未能解决你的问题,请参考以下文章

delphi 中的CASE语句

delphi中如何使用SQL语句结果

请说明delphi 打开相对路径文件文件夹的语句怎么写

SQL语句中怎样循环插入规律数据啊??

循环语句

循环语句