怎样打印出下列图案加分! — 编程爱好者社区

您所在位置：社区首页 — PASCAL语言讨论区 — 怎样打印出下列图案加分!

主题：怎样打印出下列图案加分!

我是新手tc [专家分：0] 发布于 2005-11-27 13:36:00

    *                *               *
   ***              ***             ***
  *****            *****           *****
*******          *******         *******
*********        *********       *********

注:用PASCAL语言!!!

本帖地址： http://bbs.pfan.cn/post/124652.html

回复列表（共1个回复）

沙发

onasp [专家分：5600] 发布于 2005-11-27 14:37:00

program Project1;
{$APPTYPE CONSOLE}
var
  i,j,N : byte;
begin
  readln(N);
  for i:=1 to N do
  begin
   for j:=1 to N-i do
    write(' ');
   for j:=1 to 2*i-1 do
    write('*');
   writeln;
  end;
  readln;
end.

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：怎样打印出下列图案加分!

回复列表（共1个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：怎样打印出下列图案 加分!

回复列表 （共1个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：怎样打印出下列图案加分!

回复列表（共1个回复）