画金字塔@阅读长代码3@Pascal学习日记

画n层的金字塔

program printTriangle(input, output);
var
    numLines : integer;

    procedure doWork();
    const
        BLANK = ' ';
        STAR = '*';
    var
        row, leadblanks, countstars : integer;

    begin
        for row := 1 to numLines do begin
            for leadblanks := (numLines - row) downto 1 do
                write(BLANK);
            for countstars := 1 to (2 * row - 1) do
                write(STAR);
            writeln()
        end;        
    end;

begin
    write('N: '); read(numLines);
    doWork()
end.

---

温馨提示：不要复制粘贴，你需要的练习是：自己动手慢慢敲代码
一些有用的链接：
CP Pascal Editor下载链接
Free Pascal下载链接
那些初高中甚至小学就接触编程的人最后到了什么样的境界？
高中生如何学习编程？

2015年4月21日01:57:17 @kaikai