过程的调用与简单语句的使用一样,形式如下: <过程名>(<实际参数列表>); “实际参数列表"中的各个参数必须用逗号分隔开来,其顺序必须和过程说明中的参数顺序相对应,而且个数相同,类型相符。 2.函数调用的形式 函数调用的语法格式为: <函数名>(<实际参数列表>) “实际参数列表"中的各个参数必须通过逗号分隔开来,其顺序必须和函数说明的参数顺序相对应,而且个数相同,类型相符。 注意:调用过程相当于执行了一个语句,而函数调用通常出现在赋值语句或表达式中。 3.形参与实参 当程序.调用一个过程时,通常用参数传递数据到被调用的过程中。最常用的参数有数值参数、变量参数和常量参数3种。 一般将函数定义时参数列表中的参数称为形参,将函数调用时参数列表中的参数称为实参。 在函数调用的时候,多个参数之间用逗号隔开。 例2.12 定义一个函数ShowNum,可以将一个浮点数按指定的精度输出到屏幕上。
程序代码如下: program Project2-1 2; 、 {$APPTYPE CONSOLE} uses Sysutils; //为了使用函数Format,以一定精度显示一个浮点数 function ShowN’tim(Num:Double;Precision:Integer=4):Boolean;//函数定义 var MesStr:String; //浮点数显示输出的内容 oegm if Precision<=一1 then //小数点后的位数要大于或等于零 begin result:=false; exit; end else //退出显示函数 begin //设置显示的格 MesStr:=Format(’*水.*f’,[1 0,Precision,Num]);//Format result::true; end; writeln(MesStr); end; begin ShowNum(1 23.456789); ShowNum(1 23,5); ShowNum(1 23.456789,9) ShowNum(22 div 7,5) //显示数据 //主程序 //Precision默认为4 //参数对数据类型进行升级 //参数对数据类型不能降级 //调用函数 是一个格式化函 if ShowNum(1 23.456789,一3)=false then//根据函数的返回值确定下一步的操作 writeln(’数据格式设置错误,输出失败。’); writeln(’按下回车键<Enter>退出。’); readln;
end. 运行结果如下: 1 23.4568 1 23.00000 123.456789000 3.00000 数据格式设置错误,输出失败。 按下回车键退出。 说明:①为了使用函数Format,需要在uses语句中将Sysutils单元包含。参见Help。 ②由于小数点后的位数不可以设置为负数,所以当出现负数的时候,ShowNum函数返回False,并调用Exit函数立刻退出ShowNum函数。 ③在语句ShowNum(1 23,5);中,首先将整型常数1 23转换为浮点型常数,然后进行参数传递。在语句ShowNum
|