Pascal编程：求自然数序列之和与积

"这篇资源是关于Pascal编程的初级教程，主要讲解了如何编写程序来解决数学问题，如计算序列和、乘积以及阶乘。教程通过实例展示了FOR语句在循环结构中的应用，包括计数循环和条件判断。" 在Pascal编程中，FOR语句是一种常用的循环控制结构，它用于执行一系列重复的操作，直到满足特定条件为止。在提供的代码示例中，我们看到了两种FOR循环的形式： 1. `FOR` 循环（计数递增）：`FOR <循环变量> := <初值> TO <终值> DO <循环体>` 这种形式的循环会从初值开始，每次迭代增加循环变量的值，直到达到终值。例如，输出1到20的自然数的程序： ```pascal PROGRAM for1(input, output); VAR i: integer; BEGIN FOR i := 1 TO 20 DO write(i:5) END. ``` 2. `FOR` 循环（计数递减）：`FOR <循环变量> := <初值> DOWNTO <终值> DO <循环体>` 这种形式的循环与递增相反，从初值开始，每次迭代减少循环变量的值，直到达到终值。例如，输出20到1的自然数： ```pascal VAR i: integer; BEGIN writeln; FOR i := 20 DOWNTO 1 DO write(i) END. ``` 此外，教程还演示了如何利用FOR循环结合条件判断实现特定输出格式，如每行显示固定数量的数字。例如，输出1到100的偶数，每行显示10个： ```pascal VAR i: integer; BEGIN writeln; FOR i := 1 TO 50 DO BEGIN write(2 * i); IF (2 * i) MOD 20 = 0 THEN writeln END END. ``` 在计算序列和的问题上，教程给出了求解1到100的自然数之和的例子： ```pascal VAR i, sum: integer; BEGIN sum := 0; FOR i := 1 TO 100 DO sum := sum + i; writeln('1+2+3+…+100=', sum) END. ``` 此外，还展示了计算乘积的程序，如1到10的自然数的乘积和任意整数n的阶乘： ```pascal VAR i: integer; mul: real; BEGIN mul := 1; FOR i := 1 TO 10 DO mul := mul * i; writeln('1×2×3×…×10=', mul:10:0) END. VAR i, n: integer; mul: real; BEGIN read(n); mul := 1; FOR i := 1 TO n DO mul := mul * i; writeln('1×2×3×…×n=', mul:10:0) END. ``` 这些示例展示了Pascal语言的基础语法和控制结构，对于初学者来说是很好的学习素材，能够帮助他们理解和掌握循环控制以及简单的算术运算。通过实践这些程序，学习者可以逐步提高其编程技能，并为更复杂的程序设计打下坚实的基础。