pascal 升序排序
时间: 2023-09-09 07:10:41 浏览: 58
要对 Pascal 中的元素进行升序排序,你可以使用内置的 `Sort` 函数。下面是一个示例代码:
```pascal
program AscendingSort;
var
arr: array[1..5] of Integer; // 假设有一个包含 5 个整数的数组
procedure SortAscending(var arr: array of Integer);
var
i, j, temp: Integer;
begin
for i := Low(arr) to High(arr) - 1 do
begin
for j := i + 1 to High(arr) do
begin
if arr[i] > arr[j] then
begin
temp := arr[i];
arr[i] := arr[j];
arr[j] := temp;
end;
end;
end;
end;
procedure PrintArray(arr: array of Integer);
var
i: Integer;
begin
for i := Low(arr) to High(arr) do
Write(arr[i], ' ');
end;
begin
// 初始化数组
arr[1] := 5;
arr[2] := 3;
arr[3] := 8;
arr[4] := 1;
arr[5] := 2;
WriteLn('Original array:');
PrintArray(arr); // 输出原始数组
SortAscending(arr); // 调用排序函数
WriteLn;
WriteLn('Array sorted in ascending order:');
PrintArray(arr); // 输出排序后的数组
end.
```
上述代码中,我们使用了一个名为 `SortAscending` 的过程来实现升序排序。该过程使用了简单的冒泡排序算法。然后,我们在 `PrintArray` 过程中打印数组的值,以验证排序是否成功。
请注意,你可以根据需要更改数组的大小和元素值。这只是一个示例,你可以根据自己的需求进行修改。
相关推荐
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)