本文整理自网络,侵删。
var i,j :Integer ;begin for i :=1 to 9 do begin for j := 1 to i do write(i*j : 3); writeln; end ; readln;end. 代码含义:
var i,j :Integer ; 定义两个变量i,j为integer类型
begin end表示程序开始结束代码块。
双重循环第一层表示输出行,从1行到9行分别输出1到9
相关阅读 >>
Delphi xe 10.2.1 fmx平台 在图片上写字方法
Delphi idhttp post json 上传 php 接收
在Delphi xe2和xe3开发的程序中加入管理员权限申请
Delphi 2009 之 tcategorypanelgroup[2]: headeralignment、gradientdirection
更多相关阅读请进入《Delphi》频道 >>