画金字塔@阅读长代码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

最后编辑于 ：
©著作权归作者所有,转载或内容合作请联系作者
平台声明：文章内容（如有图片或视频亦包括在内）由作者上传并发布，文章内容仅代表作者本人观点，简书系信息发布平台，仅提供信息存储服务。

推荐阅读更多精彩内容