io.inc

来自「一个编译器修改的例子」· INC 代码 · 共 15 行

function ReadChar(var ch : char) : bool;
function WriteChar(ch : char) : bool;

function ReadInt(var i : int) : bool;
function WriteInt(i : int) : bool;

function ReadLine(var a : string) : bool;
function WriteLine() : bool;

function ReadReal(var r : real) : bool;
function WriteReal(r : real) : bool;

function ReadString(var s : string) : bool;
function WriteString(s : string) : bool;