Question

如何运用free Pascal的for嵌套？？急！！！！！！！

我要输出
1
12
123
1234
12345
（最好能带讲解。）
我只有10分钟啊！！！！！

Answer 1

思路：从第一行开始，循环到第五行，每一行中又从1输出到这一行的行号。
第一行： 1 {从1输出到行号：1}
第二行： 12 {从1输出到行号：2}
.......

var
i,j:integer;
begin
for i:=1 to 5 do {输出5行}
begin
for j:=1 to i do {每行中由1输出到i，第一行i=1，j=1 to 1，输出了一个1，如此类推}
write(j);
writeln; {换行}
end;
end.

Answer 2

var n,i,j:integer; // 定义变量
begin // 程序开始
readln(n); // 获取n的大小
for i:=1 to n do // 外层循环
begin // 循环开始
for j:=1 to i do // 内层循环
write('&'); // 打印&
writeln; // 内层循环结束，换行

end; // 外层循环结束
readln()
end. // 程序结束

begin end相当于C语言中的,

int n,i,j;
for(i=1;i<=n;i++)
{
for(j=1;j<=i;j++)
printf('&');
printf('\n')
}

Answer 3

var
i,j:integer;
begin
for i:=1 to 5 do 表示有五行
begin
for j:=1 to i do 第一行要输出1个数， 第二行就要输出2个数，以此类推。
write(j,' ');
wruteln;
end;
end.

var
i,j:integer;
begin
read(n);
for i:=1 to n do 表示有n行
begin
for j:=1 to i do 第一行要输出1个数， 第二行就要输出2个数，以此类推。
write(j,' ');
wruteln;
end;
end.

Answer 4

{n=5}
for i:=1 to n do
begin
for j:=1 to i do
write(j);
writeln;
end;