本文整理自网络,侵删。
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 解析Delphi中的loadlibrary,getprocaddress,freelibrary
winapi 字符及字符串函数(9): lstrcat - 合并字符串
Delphi2010 图片格式转换bmp, png,jpeg, gif, tiff , wmphoto
更多相关阅读请进入《Delphi》频道 >>