本文整理自网络,侵删。
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 ado 连接 excel (附excel各个版本的版本号)
Delphi application.title在win7下失效了?
更多相关阅读请进入《Delphi》频道 >>