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;