example.pas

来自「介绍C语言与Pascal语言混合编程技术。」· PAS 代码 · 共 25 行

program example;
uses crt;
{$L example.obj}
function addc(n:integer):integer;
external;
function sqrc(n:integer):integer;
external;
function addp(a:integer;b:integer):integer;
begin
   addp:=a+b;
end;
procedure sqrp(var a:integer;b:integer);
begin
   a:=a+sqr(b);
end;
var
 X,SUM,SUMA:integer;
begin
 writeln('Input a data(1~9):');
 readln(X);
 SUMA:=addc(X);
 writeln('SUMA=',SUMA);
 SUM:=sqrc(SUMA);
 writeln('SUM=',SUM);
end.