Question

pascal语言

用循环语句编 1 121 12321 我只会 1 111 11111 请问如何改变每行输入的数字？

Answer 1

var
i, j, c: Byte;
begin
for i := 1 to 3 do//行数
begin
c := 0;//判断输出个数
for j := 3 downto i + 1 do//输出空格
Write(' ');
for j := 1 to i do//输出前半段
begin
Inc(c);//计数
Write(j);
end;
if c < i * 2 - 1 then//如果未输出足够
for j := i - 1 downto 1 do//输出后半段
Write(j);
Writeln;
end;
Readln;
end.

Answer 2

Pascal是一种计算机通用的高级程序设计语言。它由瑞士Niklaus Wirth教授于六十年代末设计并创立。
　　以法国数学家命名的Pascal语言现已成为使用最广泛的基于DOS的语言之一，其主要特点有：严格的结构化形式；丰富完备的数据类型；运行效率高；查错能力强。
　　正因为上述特点，Pascal语言可以被方便地用于描述各种算法与数据结构。尤其是对于程序设计的初学者，Pascal语言有益于培养良好的程序设计风格和习惯。IOI(国际奥林匹克信息学竞赛)把Pascal语言作为三种程序设计语言之一， NOI(全国奥林匹克信息学竞赛)把Pascal语言定为唯一提倡的程序设计语言，在大学中Pascal语言也常常被用作学习数据结构与算法的教学语言。
　　在Pascal问世以来的三十余年间，先后产生了适合于不同机型的各种各样版本。其中影响最大的莫过于Turbo Pascal系列软件。它是由美国Borland公司设计、研制的一种适用于微机的Pascal编译系统。该编译系统由1983年推出1.0版本发展到1992年推出的7.0版本，其版本不断更新，而功能更趋完善。 具体的疑问请再与我取得联系