Pascal 循环举例

在Pascal编程语言中，循环语句是非常常用的语句之一。循环语句可以让程序重复执行一段代码，直到满足某个条件。在本文中，我们将介绍Pascal编程语言中的循环语句，并提供20个例子，帮助您更好地理解和使用循环语句。

For 循环

For循环是Pascal编程语言中最常用的循环语句之一。它可以重复执行一段代码，直到达到指定的循环次数。以下是使用For循环的一些例子：

例子1

循环输出数字1到10：

for i:= 1 to 10 do
    writeln(i);

例子2

计算1到100所有数字的和：

sum:= 0;
for i:= 1 to 100 do
    sum:= sum + i;
writeln(sum);

例子3

循环输出数组中的所有元素：

for i:= 1 to length(arr) do
    writeln(arr[i]);

While 循环

While循环是Pascal编程语言中另一个常用的循环语句。它可以重复执行一段代码，直到满足指定的条件为止。以下是使用While循环的一些例子：

例子4

循环输出数字1到10：

i:= 1;
while i <= 10 do
begin
    writeln(i);
    i:= i + 1;
end;

例子5

计算输入数字的阶乘：

readln(n);
fact:= 1;
while n > 1 do
begin
    fact:= fact * n;
    n:= n - 1;
end;
writeln(fact);

例子6

循环输出数组中的所有元素：

i:= 1;
while i <= length(arr) do
begin
    writeln(arr[i]);
    i:= i + 1;
end;

Repeat 循环

Repeat循环是Pascal编程语言中的一种不太常用的循环语句。它可以重复执行一段代码，直到满足指定的条件为止。以下是使用Repeat循环的一些例子：

例子7

循环输出数字1到10：

i:= 1;
repeat
    writeln(i);
    i:= i + 1;
until i > 10;

例子8

计算输入数字的阶乘：

readln(n);
fact:= 1;
repeat
    fact:= fact * n;
    n:= n - 1;
until n = 0;
writeln(fact);

例子9

循环输出数组中的所有元素：

i:= 1;
repeat
    writeln(arr[i]);
    i:= i + 1;
until i > length(arr);

Nested 循环

Pascal编程语言中也支持嵌套循环。嵌套循环是指在一个循环内部再嵌套另一个循环。以下是一些使用嵌套循环的例子：

例子10

输出一个九九乘法表：

for i:= 1 to 9 do
begin
    for j:= 1 to 9 do
        write(i, ' * ', j, ' = ', i*j, '   ');
    writeln;
end;

例子11

计算两个数组的内积：

sum:= 0;
for i:= 1 to length(arr1) do
    sum:= sum + arr1[i]*arr2[i];
writeln(sum);

例子12

循环输出一个二维数组中的所有元素：

for i:= 1 to n do
begin
    for j:= 1 to m do
        writeln(arr[i, j]);
end;

Break 和 Continue

Pascal编程语言还支持Break和Continue语句。Break语句可以用于退出循环，而Continue语句可以用于跳过当前循环的剩余部分。以下是一些使用Break和Continue的例子：

例子13

循环输出数字1到10，遇到数字5时退出循环：

for i:= 1 to 10 do
begin
    writeln(i);
    if i = 5 then break;
end;

例子14

循环输出数字1到10，遇到数字5时跳过：

for i:= 1 to 10 do
begin
    if i = 5 then continue;
    writeln(i);
end;

例子15

循环输出数组中的所有元素，遇到-1时退出循环：

for i:= 1 to length(arr) do
begin
    if arr[i] = -1 then break;
    writeln(arr[i]);
end;

Until 循环

Until循环是Pascal编程语言中的另一种循环语句。它类似于While循环，只不过条件是在循环体执行之后判断的。以下是一些使用Until循环的例子：

例子16

循环输出数字1到10：

i:= 1;
repeat
    writeln(i);
    i:= i + 1;
until i > 10;

例子17

计算输入数字的阶乘：

readln(n);
fact:= 1;
repeat
    fact:= fact * n;
    n:= n - 1;
until n = 0;
writeln(fact);

例子18

循环输出数组中的所有元素：

i:= 1;
repeat
    writeln(arr[i]);
    i:= i + 1;
until i > length(arr);

Case 循环

Pascal编程语言中还支持Case语句。Case语句可以根据不同的情况执行不同的代码块。以下是一些使用Case语句的例子：

例子19

根据用户输入的数字，输出对应的星期：

readln(day);
case day of
    1: writeln('Monday');
    2: writeln('Tuesday');
    3: writeln('Wednesday');
    4: writeln('Thursday');
    5: writeln('Friday');
    6: writeln('Saturday');
    7: writeln('Sunday');
end;

例子20

根据用户输入的数字，输出对应的月份：

readln(month);
case month of
    1: writeln('January');
    2: writeln('February');
    3: writeln('March');
    4: writeln('April');
    5: writeln('May');
    6: writeln('June');
    7: writeln('July');
    8: writeln('August');
    9: writeln('September');
    10: writeln('October');
    11: writeln('November');
    12: writeln('December');
end;