Delphi 中程序结构、函数和过程的示例程序
此程序演示了 Delphi 中的程序结构、函数和过程。它交换了两个用户的输入值。
程序说明:
- 它使用整型变量 a、b 和 c 来存储用户输入的两个值。
- 程序通过交换 a、b 和 c 的值来交换变量 a 和 b 的值。
- 交换后,它显示交换后的值。
代码示例:
program Project1;
{$APPTYPE CONSOLE}
var
a, b, c: integer;
begin
writeln('请输入要交换的两个数:');
readln(a, b);
writeln('交换前两个数为:a=', a, ', b=', b);
c := a; ttt// 存储 a 的值
a := b; ttt// 将 b 赋值给 a
b := c; ttt// 将 a 的原始值赋值给 b
writeln('交换后两个数为:a=', a, ', b=', b);
readln;
end.
标签:Delphi、程序结构、函数、过程、变量交换
1.53MB
文件大小:
评论区