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. unittest执行顺序,使用unittest.main()按照test开头,由0-9,A-Z,a-z的顺序执行; 可使用TestSuite类的addTest方法改变执行顺序;

    import unittestclass Study(unittest.TestCase): # def setUp(self): # print('start') # def tearDown(se ...

  2. Leetcode4__findMedianSortedArrays

    findMedianSortedArrays 基本思路:通过指针按顺序移动来判断大小顺序,思路和有一道用链表求中间值一样: class Solution { public double findMed ...

  3. Fontconfig error: Cannot load config file "infinality/conf.d"

    reference: https://forums.gentoo.org/viewtopic-t-1079210-start-0.html resolved with following method ...

  4. DRF--验证器

    前戏 在之前我们对前端妹子传来的数据进行校验,使用的是序列化类来进行校验的,但这里面往往满足不了我们的需求,更多的时候我们希望自己定义校验规则.这里介绍三种自定义校验的方式.分别是单一字段校验,多个字 ...

  5. Manthan, Codefest 18 (rated, Div. 1 + Div. 2) F 单调栈 + 贡献 + 计数

    https://codeforces.com/contest/1037/problem/F 题意 function z(array a, integer k): if length(a) < k ...

  6. LuaFramework 学习

    LuaFramework_UGUI_V2 https://github.com/jarjin/LuaFramework_UGUI_V2 using UnityEngine; using LuaInte ...

  7. xml、bean、json互转工具,可直接CV就用

    1.jar包 <dependency> <groupId>dom4j</groupId> <artifactId>dom4j</artifactI ...

  8. Leetcode练习题 7. Reverse Integer

    7. Reverse Integer 题目描述: Given a 32-bit signed integer, reverse digits of an integer. Example 1: Inp ...

  9. MySQL锁表查询SQL

    // 查看进程 SHOW PROCESSLIST; // 查看是否锁表 SHOW OPEN TABLES WHERE In_use > 0; // 查看正在锁的事务 SELECT * FROM ...

  10. CodeForce 117C Cycle DFS

    A tournament is a directed graph without self-loops in which every pair of vertexes is connected by ...