输出字母塔 — 编程爱好者社区

主题：输出字母塔

88888wan [专家分：0] 发布于 2005-05-17 13:58:00

编写程序,写出'字母塔'
                                   A
                                  ABA
                                 ABCBA
                                ABCDCBA
                               ABCDEDCBA
                              ABCDEFEDCBA
        哪位大哥(大姐)愿意帮助菜鸟啊?                [em10]

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

回复列表（共14个回复）

11 楼

zhsas [专家分：1680] 发布于 2005-05-27 04:56:00

program zhs (output);
  var
    i,j,k:char;
    n:integer;
  begin
    n:=40;
    for i:='A' to 'F' do
      begin
        n:=n-2;
        write('':n);
        for j:='A' to i do
          write(j:2);
        for k:=pred(i) downto 'A' do
          write(k:2);
        writeln;
        writeln
      end
  end.

12 楼

zhsas [专家分：1680] 发布于 2005-05-27 05:03:00

13 楼

爱情灭火器 [专家分：10] 发布于 2005-05-29 16:34:00

我也挺这这个头疼的,看过以后受益非浅,谢谢啦

14 楼

def [专家分：3380] 发布于 2005-06-03 22:25:00

begin
writeln('         A');
writeln('        ABA');
writeln('       ABCBA');
writeln('      ABCDCBA');
writeln('     ABCDEDCBA');
writeln('    ABCDEFEDCBA');
end.

我来回复

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

主题：输出字母塔

回复列表（共14个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：输出字母塔

回复列表 （共14个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共14个回复）