turbo.use

PASCAL 源程序转 C 语言源程序

const
(*    pi = 3.14159265;*)
    maxint = 32767;
    true = 1;
    false = 0;
    t_o = -2;
    e_n_d = -1;

type
    text = file of char;
    untyped = array [0..1] of char;

var
    p2c_tstr : string[255];
    kbd,lst,aux,con,prn,usr,trm : text;
    port : array [0..1] of integer;
    portw : array [0..1] of integer;

function arctan (r : real) : real;
function cos (r : real) : real;
function exp (r : real) : real;
function frac (r : real) : real;
function ln (r : real) : real;
function sin (r : real) : real;
function sqr (r : real) : real;
function sqrt (r : real) : real;

function odd (i : integer) : boolean;
function pred (i : integer) : integer;
function succ (i : integer) : integer;

function round (r : real) : integer;
function trunc (r : real) : integer;

procedure delete (st : string; pos, num : integer);
procedure insert (obj, target : string; pos : integer);
function copy (st : string; pos,num : integer) : string;
function length (st : string) : integer;
function pos (obj,target : string) : integer;


function paramcount : integer;
function paramstr (i : integer) : string;

procedure delay (s : integer);
function addr (name : integer) : integer;
procedure fillchar (var v : string; n : integer; c : char);
function hi (i : integer) : integer;
function lo (i : integer) : integer;
procedure move (var v1 : string; v2 : string; n : integer);
function random : integer;
function seekeof (filvar : file) : boolean;
function seekeoln (filvar : file) : boolean;
function swap (i : integer) : integer;
(*function upcase (ch : char) : char;*)
procedure val (st : string; var value : real; var code : integer);

end: