pascal如何调用系统函数

Pascal中是可以使用单元，就是使用系统的函数。

可以在HELP中找到

用法如下

Program

example

uses

unitname

begin

end.

注意第二行，使用uses加上unit的名字。

Pascal中提供一些常用的unit，比如:

crt,graph,dos,system

用法等同于c中的<include>，可以直接使用unit中的函数。

当然可以自己编unit.

具体格式:

UNIT

unitname

INTERFACE

Type

后面是unit中需要用到的类型

Procedure

aa(a:integer)

Procedure

bb(b:char)

...

...

这一部分是所有函数和过程的首部

IMPLEMENTATION

procedure

aa

begin

...

end

procedure

bb

begin

...

end

...

...{这一部分是过程和函数的主体，注意已经没有形式参数表}

end.

Unit的大体结构就是这样，它的开始是Unit

+

表达式，而不是Program

和Program一样，以end.结尾。

以unitname.pas存储，并编译，就会在缺省目录中得到unitname.tpu的文件。

这时候，就可以在程序中以uses

unitname

调用自己编写的单元文件了。

program

experiment2

var

x:longint

Function

prime(a:longint):Boolean

Var

i:longint

Begin

prime:=true

for

i:=2

to

trunc(sqrt(a))

do

if

a

mod

i=0

then

begin

prime:=falsebreakend

End

begin

read(x)

prime(x)

readln

readln

end.

你这个函数本身就是有问题的，如果素数没有要求输出什么。

调用的话很简单

，就是

函数名（实参名）

我的求质数是这么写的经检验，合格

program

sushu

var

a:integer

function

ss(x:integer):boolean

var

i:boolean

b:integer

begin

i:=true

for

b:=2

to

(x-1)

do

if

(x

mod

b=0)

then

i:=false

ss:=i

end

begin

readln(a)

if

ss(a)

then

writeln('yes')

readln

readln

end.

http://www.tanghu.net/gr/zhoukun/pascal/pascal5.htm给你一个pascal教程的网站自己看

函数和过程 </P><P>8.1 函数

如果一个子程序执行后能够返回其结果制，那么它就可以用于表达式中，称这种子程序为函数，这种语句序列的定义称为函数说明。函数说明形式如下：

function 函数名(形式参数表):函数类型；

说明部分；

begin

语句1

语句2

……

语句n

end

函数返回一个函数值，过程则能完成一系列各种 *** 作。函数的调用方式出现在表达式中，而过程调用是一句独立的语句。

例：计算|X|的函数

function zhoufei(x:real):real

var z:integer

begin

if x>=0 then z:=x

else z:=-x

zhoufei:=z

end

函数说明第一行为函数首部。它指明函数名、函数形参信息和函数值的数据类型。如上面求x绝对值的函数说明，函数名是zhoufei；它有一个值参数X为实型；函数值的数据类型为实型。Turbo Pascal规定一个函数只能求出一个简单值，所以函数值类型只能是任何非结构类型。

除函数首部和过程首部的句法略有差别外，函数体和过程体完全相同。函数体中至少要有一条语句对函数名赋值。如函数zhoufei 中有语句“power：=z”。函数的每次求值至少要执行这样的一条语句，为次计算求得一个值。返回时就把这个值带调用的地方。

8.2 过程

给某个语句序列组成的子程序赋于一个适当的名字。程序中凡是需要出现这个语句序列的地方，可以简单的写上子程序的名字。这种完成一个 *** 作的子程序称为过程；子程序的定义称为过程说明。

过程说明由过程首部和过程体组成，其形式如下：

procedure 过程名(形式参数表)-------过程首部

说明部分

begin

执行语句

……

end

例 输出两个数中最大值的过程

procedure largest(a,b:integer)

begin

if a>b then writeln(a)

else writeln(b)

end.

上面largest过程由两个类型为整型的形式参数:a,b，你向过程传入的两个需要比较大小的数。

---