2017年3月8日
子界类型
摘要： 子界类型用作输入的范围判断很不错,可以减少语句判断的代码量,暂时还不了解子界对内存的占用如何,等学到内存处理了再说. 阅读全文
posted @ 2017-03-08 22:32 陨落流星 阅读(449) 评论(0) 推荐(0) 编辑
字符串查找替换
摘要： program recursion; {$APPTYPE CONSOLE} var sourcestr, searchstr, replacestr: string; i: Integer; begin Write('源字符串:'); Readln(sourcestr); Write('查找字符串:'); Readln(searchstr); Write('替换字符... 阅读全文
posted @ 2017-03-08 21:48 陨落流星 阅读(452) 评论(0) 推荐(0) 编辑
pascal字符串类型
摘要： program arrtest; {$APPTYPE CONSOLE} var name: string; i: Integer; begin {读入一个字符串并输出,下标从1开始} Readln(name); {Ord(name[0]) free pascal的写法,字符串第一个元素存放其长度} {length(name) object pascal的写法,需要计算其... 阅读全文
posted @ 2017-03-08 20:39 陨落流星 阅读(1675) 评论(0) 推荐(0) 编辑
二维数组
摘要： program arrtest; {$APPTYPE CONSOLE} type matrix = array[1..5, 1..4] of Integer; var a: matrix; i, j: Integer; begin //数组赋值，按矩阵格式输出 for I := 1 to 5 do for j := 1 to 4 do begin ... 阅读全文
posted @ 2017-03-08 19:10 陨落流星 阅读(349) 评论(0) 推荐(0) 编辑