1、判断0~10之间,当循环I=3时候跳出当前循环,当I等于8时候,退出当前循环。

 procedure  Countand();
var
I: Integer;
begin
for I := to do
begin
Writeln(I);
if I = then
begin
Writeln('跳过当前');
Continue;
end;
if I = then
begin
Writeln('跳出循环');
Break;
end;
end; end; begin
Countand();
Readln;
end.

2、1~100 数字相加

 procedure Sum1();
var
num1,sumnums : Integer;
begin
sumnums := ;
for num1 := to do // for 循环
begin
sumnums := num1 + sumnums; //将1-100数字进行相加
end;
Writeln(sumnums); //屏幕输出计算结果
end; procedure Sum2();
var
num2,sumnum2 : Integer;
begin
num2 := ;
sumnum2 := ;
while num2 < do //while 循环
begin
num2 := num2 + ;
Writeln('num2_value:',num2);
sumnum2 := num2 + sumnum2; //将1-100数字进行相加
end;
Writeln('eventuate:',sumnum2); //屏幕输出计算结果
end; procedure Sum3();
var
num3,sumnum3 : Integer;
begin
num3 := ;
sumnum3 := ;
repeat //repeat 循环
num3 := num3+;
Writeln(num3);//屏幕输出num3 1-100的数字
sumnum3 := num3 + sumnum3; //将1-100数字进行相加 until (num3 > );
Writeln(sumnum3); //屏幕输出计算结果
end; begin
// Sum1();
// Sum2();
Sum3();
Readln;
end.

3、打印1-100 之间所有7的倍数的证书的个数及总和(体会设置计算器的思想)

 procedure Counter();
var
i : Integer;
Sumnum1 : Integer; //求和
Amont : Integer; //统计个数
begin
Sumnum1 := ;
Amont := ;
for i := to do
begin
if (i mod ) = then
begin
// Writeln(i);
Sumnum1 := Sumnum1 + i;
Amont := Amont + ;
end;
end;
Writeln(Sumnum1,' ',Amont);
end;
begin
Counter();
Readln;
end.

4、输出所有的水仙花数,所谓水仙花数指一个3位数,其个位上数字立方和等于其本身

 procedure Narcissistic_number();
var
Ones : Integer; //个位
Tens : Integer; //十位
Hundreds : Integer; //百位
Narcissistic_number :Integer; //水仙花数
begin
for Narcissistic_number := to do
begin
// Narcissistic_number := 153;
Hundreds := Narcissistic_number div ;
Tens := (Narcissistic_number mod ) div ;
Ones := (Narcissistic_number mod ) mod ;
// Writeln(Hundreds, ',', Tens, ',', Ones); if (Hundreds*Hundreds*Hundreds+Tens*Tens*Tens+Ones*Ones*Ones) = Narcissistic_number then
begin
Writeln(Narcissistic_number)
end; end; end; begin
// Counter();
Narcissistic_number();
Readln;
end.

5、9*9乘法表

 procedure Multiplication_Table();
var
Height,Width : Integer;
begin
for Height := to do
begin
for Width := to Height do
begin
// #$09 制表符
Write(Height,'x',Width,'=',(Height*Width), #$);
end;
Writeln('');
end; end;
begin
Multiplication_Table();
Readln;
end.

6、在控制台上打印输出一个三角形的图案(参考9*9乘法表)

 procedure Triangular_pattern();
var
num1,num2 : Integer;
begin
for num1 := to do
begin
for num2 := to num1 do
begin
Write('*');
end;
Writeln('');
end;
end;
begin
Triangular_pattern();
Readln;
end.

Delphi-基础(for循环)的更多相关文章

  1. 电脑小白学习软件开发-C#语言基础之循环重点讲解,习题

    写代码也要读书,爱全栈,更爱生活.每日更新原创IT编程技术及日常实用视频. 我们的目标是:玩得转服务器Web开发,搞得懂移动端,电脑客户端更是不在话下. 本教程是基础教程,适合任何有志于学习软件开发的 ...

  2. 第五篇:python基础之循环结构以及列表

    python基础之循环结构以及列表   python基础之编译器选择,循环结构,列表 本节内容 python IDE的选择 字符串的格式化输出 数据类型 循环结构 列表 简单购物车的编写 1.pyth ...

  3. VBS基础篇 - 循环语句(3) - For...Next

    VBS基础篇 - 循环语句(3) - For...Next   指定循环次数,使用计数器重复运行语句,语法结构如下: 1 2 3 4 5 For counter = start To end [Ste ...

  4. VBS基础篇 - 循环语句(4) - For Each...Next

    VBS基础篇 - 循环语句(4) - For Each...Next   For Each...Next 循环与 For...Next 循环类似.For Each...Next 不是将语句运行指定的次 ...

  5. Python 基础 while 循环

    Python 基础 while 循环 while 循环 在生活中,我们遇到过循环的事情吧?比如循环听歌.在程序中,也是存才的,这就是流程控制语句 while 基本循环 while 条件: # 循环体 ...

  6. delphi基础篇之数据类型概论

    delphi基础篇之数据类型概论 Object Pascal 语言提供了非常丰富的数据类型,即简单类型(Simple).字符串类型(String).结构类型(Struct).指针类型(Pointer) ...

  7. delphi基础篇之项目文件

    delphi基础篇之项目文件   program Teacher2018; uses   Forms, Unit1 in 'Unit1.pas' {Form1}, Unit2 in 'Unit2.pa ...

  8. 基础语法-循环结构for

    基础语法-循环结构for 作者:尹正杰 版权声明:原创作品,谢绝转载!否则将追究法律责任. 一.for循环格式 for(初始化表达式;循环条件表达式;循环后的操作表达式){ 执行语句(循环体); } ...

  9. 基础语法-循环结构do...while

    基础语法-循环结构do...while 作者:尹正杰 版权声明:原创作品,谢绝转载!否则将追究法律责任. 一.do...while语句格式 do{ 执行语句; }while(条件表达式); 温馨提示: ...

  10. 基础语法-循环结构while

    基础语法-循环结构while 作者:尹正杰 版权声明:原创作品,谢绝转载!否则将追究法律责任. 一.while语句格式 while(条件表达式){ 执行语句; } 二.while语句案例 /** * ...

随机推荐

  1. KMP算法计算next值和nextVal值

    KMP算法: 给定一个主串S及一个模式串P,判断模式串是否为主串的子串:若是,返回匹配的第一个元素的位置(序号从1开始),否则返回0: 这里先不写算法,仅仅计算next和nextVal值 那么计算时只 ...

  2. Pycharm软件更换pip默认安装源为国内安装源

    1.为什么这么做? Python里的pip是官方自带的源,国内使用pip安装的时候十分缓慢,所以最好是更换成中国国内的源地址. 2.准备工作: 目前国内靠谱的 pip 镜像源有: 清华: https: ...

  3. appium常使用的命令

    1.查看apk安装包的appPackagehe和appActivity aapt dump badging E:\taobao.apk > E:\taobao.txt   -- 将appPack ...

  4. 玩转算法系列--图论精讲 面试升职必备(Java版)

    第1章 和bobo老师一起,玩转图论算法欢迎大家来到我的新课程:<玩转图论算法>.在这个课程中,我们将一起完整学习图论领域的经典算法,培养大家的图论建模能力.通过这个课程的学习,你将能够真 ...

  5. Paper | Learning convolutional networks for content-weighted image compression

    目录 摘要 故事要点 模型训练 发表在2018年CVPR. 以下对于一些专业术语的翻译可能有些问题. 摘要 有损压缩是一个优化问题,其优化目标是率失真,优化对象是编码器.量化器和解码器(同时优化). ...

  6. ros局部路径规划-DWA学习

    ROS的路径规划器分为全局路径和局部路径规划,其中局部路径规划器使用的最广的为dwa,个人理解为: 首先全局路径规划会生成一条大致的全局路径,局部路径规划器会把全局路径给分段,然后根据分段的全局路径的 ...

  7. axios 源码解析(下) 拦截器的详解

    axios的除了初始化配置外,其它有用的应该就是拦截器了,拦截器分为请求拦截器和响应拦截器两种: 请求拦截器    ;在请求发送前进行一些操作,例如在每个请求体里加上token,统一做了处理如果以后要 ...

  8. webstorm关闭烦人的eslint语法检查

    使用了eslint语法检查之后发现JS代码里面处处是红线,通过右键菜单中的fix eslint problems选项又会发现页面代码的格式被eslint换行得不分青红皂白,索性关闭exlint语法检查 ...

  9. NPOI 帮助类

    NPOI 帮助类 代码实现了来自于互联网 using System; using System.Data; using System.IO; using System.Text; using NPOI ...

  10. springboot拦截器拦了静态资源css,js,png,jpeg,svg等等静态资源

    1.在SpringBoot中自己写的拦截器,居然把静态资源也拦截了,导致了页面加载失败. package com.bie.config; import com.bie.component.MyLoca ...