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;

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

实相无相

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值