Delphi 求前100 的和

蔚落 2022-04-16 04:39 173阅读 0赞

while 循环

unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;
    
    type
      TForm1 = class(TForm)
        Label1: TLabel;
        procedure Label1Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    procedure TForm1.Label1Click(Sender: TObject);
    var
        sum,i:Integer;
    begin
            sum:=0;
            i:=0;
            while i<=100 do
            begin
                sum:=sum+i;
                i:=i+1;
            end;
            Label1.Caption:=inttostr(sum);
    end;
    
    end.

Repeat ...until之和

procedure TForm1.Label1Click(Sender: TObject);
    var
        sum,i:Integer;
    begin
            sum:=0;
            i:=0;
    
            repeat
                sum:=sum+i;
                i:=i+1;
            Until(i>100);
            Label1.Caption:=inttostr(sum);
    end;
    
    end.

for 循环：

procedure TForm1.Label1Click(Sender: TObject);
    var
        sum,i:Integer;
    begin
            sum:=0;
            i:=0;
    
            for i:=1 to 100 do
               sum:=sum+i;
            Label1.Caption:=inttostr(sum);
    end;
    
    end.

发表评论取消回复

表情：

评论列表（有 0 条评论，173人围观）

还没有评论，来说两句吧...

相关阅读

相关求1-100的素数

/ 求1-100的素数 / include <stdio.h> int main(void) { int i

拼搏现实的明天。/ 2022年08月27日 14:57/ 0 赞/ 196 阅读

相关求1+2+3+.....+100的和

\include<iostream> using namespace std; int main() \{int i=1,sum=0; while(i<=100

Love The Way You Lie/ 2022年06月15日 07:25/ 0 赞/ 307 阅读

相关求1～100之间的奇数的和

package p1; import java.util.Scanner; /\\ auther:xiuran-hua function:

待我称王封你为后i/ 2022年04月22日 10:00/ 0 赞/ 268 阅读

相关求1～100之间的偶数的和

package p1; import java.util.Scanner; /\\ auther:xiuran-hua function:

太过爱你忘了你带给我的痛/ 2022年04月22日 09:58/ 0 赞/ 199 阅读

相关 Delphi 求素数

GUI界面： ![2018111711484825.png][] 源代码： unit Unit1; interface

àì夳堔傛蜴生んèń/ 2022年04月16日 05:09/ 0 赞/ 233 阅读

相关 Delphi 求前100 的和

while 循环 unit Unit1; interface uses Windows, Messages, Sys

蔚落/ 2022年04月16日 04:39/ 0 赞/ 174 阅读

相关求100以内的质数

package org.lanqiao.proj.java1.chap3; public class TestFor5 \{ public static void main

悠悠/ 2022年04月11日 14:47/ 0 赞/ 257 阅读

相关 java求1到100的和

package shili; public class qiuhe { public static void main(Strin

深碍√TFBOYSˉ_/ 2022年04月02日 13:56/ 0 赞/ 324 阅读

相关求1-100所有数的和

a=1 b=0 while a<101: b=a+b a=a+1 else: print(b)

骑猪看日落/ 2021年10月23日 17:16/ 0 赞/ 333 阅读

相关求100以内的质数

【题目要求】输出0~100之间所有的质数。【样例输出】 ![70][] 【解决方案一】：求出每个数的因子，如果一个数的总因子数等于2，则它为质数。 pack

青旅半醒/ 2021年09月16日 07:34/ 0 赞/ 423 阅读