Pascal for循环9例

Pascal for循环9例

Introduction

在计算机编程中，循环是一种重要的控制结构，它允许我们重复执行一段代码多次。在Pascal编程语言中，for循环是一种常用的循环结构。它可以让我们根据指定的条件来重复执行一段代码。在本篇文章中，我们将探讨Pascal编程语言中的for循环，并给出20个例子，每行都附带中文注释，以帮助你更好地理解和使用for循环。

第一个例子：从1到10的循环

program ForLoopExample1;
var
  i: integer;
begin
  for i := 1 to 10 do
  begin
    writeln(i); {输出当前循环变量的值}
  end;
end.

在这个例子中，我们使用for循环从1到10循环遍历，并在每次迭代中输出当前循环变量的值。在这里，我们使用writeln函数将i的值打印到控制台上。

第二个例子：计算1到100的和

program ForLoopExample2;
var
  i, sum: integer;
begin
  sum := 0;
  for i := 1 to 100 do
  begin
    sum := sum + i; {将i的值加到sum中}
  end;
  writeln('总和为：', sum); {输出最终的总和}
end.

这个例子演示了如何使用for循环计算1到100之间所有整数的和。我们使用一个变量sum来存储和的值，并在每次循环迭代中将当前循环变量i的值加到sum中。最后，我们使用writeln函数输出最终的总和。

第三个例子：打印九九乘法表

program ForLoopExample3;
var
  i, j: integer;
begin
  for i := 1 to 9 do
  begin
    for j := 1 to i do
    begin
      write(j, ' * ', i, ' = ', i * j, '   '); {输出乘法表的一项}
    end;
    writeln; {换行}
  end;
end.

这个例子展示了如何使用嵌套的for循环来打印九九乘法表。外层for循环控制行数，内层for循环控制每行的列数。我们使用write函数来输出乘法表的每一项，并使用writeln函数在每行结束时换行。

第四个例子: 使用for循环从10到1倒序输出数字

program ForLoopExample4;
var
  i: integer;
begin
  for i := 10 downto 1 do
  begin
    writeln(i); {从10到1倒序输出}
  end;
end.

这个例子展示了如何使用for循环从10到1倒序输出数字。我们使用downto关键字来指定循环的方向。

第五个例子: for循环输出1到10之间的偶数

program ForLoopExample5;
var
  i: integer;
begin
  for i := 1 to 10 do
  begin
    if i mod 2 = 0 then
      writeln(i); {只输出偶数}
  end;
end.

这个例子展示了如何使用for循环输出1到10之间的偶数。我们使用mod运算符来判断一个数是否为偶数。

第六个例子: 特定条件时提前跳出循环

program ForLoopExample6;
var
  i: integer;
begin
  for i := 1 to 10 do
  begin
    if i = 5 then
      break; {当i等于5时跳出循环}
    writeln(i);
  end;
end.

第七个例子: for循环输出1到10之间的数字，但跳过3的倍数

program ForLoopExample7;
var
  i: integer;
begin
  for i := 1 to 10 do
  begin
    if i mod 3 = 0 then
      continue; {跳过3的倍数}
    writeln(i);
  end;
end.

这个例子展示了如何使用for循环输出1到10之间的数字，但跳过3的倍数。我们使用continue语句来跳过满足特定条件的循环迭代。

第八个例子: 嵌套for循环来打印一组逐渐增多的星号

program ForLoopExample8;
var
  i, j: integer;
begin
  for i := 1 to 5 do
  begin
    for j := 1 to i do
    begin
      write('*'); {打印一行星号}
    end;
    writeln; {换行}
  end;
end.

这个例子展示了如何使用嵌套的for循环来打印一组逐渐增多的星号。外层for循环控制行数，内层for循环控制每行的星号数量。

第九个例子: 嵌套for循环来打印一组逐渐减少的星号

program ForLoopExample9;
var
  i, j: integer;
begin
  for i := 1 to 5 do
  begin
    for j := 1 to 5 - i do
    begin
      write(' '); {打印空格}
    end;
    for j := 1 to i do
    begin
      write('*'); {打印星号}
    end;
    writeln; {换行}
  end;
end.

这个例子展示了如何使用嵌套的for循环来打印一组逐渐减少的星号。外层for循环控制行数，内层for循环控制每行的星号数量。

我们介绍了Pascal编程语言中的for循环，并给出了9个例子。for循环是一种非常有用的循环结构，可以让我们根据指定的条件重复执行一段代码。无论是从1到10的简单循环，还是计算1到100的和，亦或是打印九九乘法表，for循环在解决各种编程问题时都是一个强大的工具。通过这些例子，我们希望你能更好地理解和掌握for循环的使用方法。在日常的编程实践中，for循环将会是一个不可或缺的技术，帮助你解决各种问题。