本文整理自网络,侵删。
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 twebbrowser:确定带有框架的页面何时完成
Delphi getexplorerpid获取系统explorer.exe进程id
Delphi 网上获取北京时间 tinifile.readsection 方法在 android 下的应用及各种字符编码问题
Delphi 用cxgrid把数据导出到excel时乱码的解决办法
更多相关阅读请进入《Delphi》频道 >>