- 博客(4)
- 资源 (24)
- 收藏
- 关注
原创 高精度减法
program GJMinus;var s1,s2,s3,st,s:string; i,j,k,l1,l2,li,n1,n2,n3,n4:integer;beginreadln(s1);readln(s2);l1:=length(s1);l2:=length(s2);if l1>l2 then li:=l1 else li:=l2;n4:=0;if l1>=l2 thenfor i:=1 to l
2007-10-02 11:22:00 658
原创 高精度加法
program GJPLus;var s1,s2,s3,st,s:string; i,j,k,l1,l2,li,n1,n2,n3,n4:integer;beginreadln(s1);readln(s2);l1:=length(s1);l2:=length(s2);if l1>l2 then li:=l1 else li:=l2;n4:=0;for i:=1 to li do begin
2007-10-02 11:00:00 702
原创 Pascal中的字符串函数和数学函数
Pascal中的字符串函数和数学函数 字符串函数求长度length定义:function Length(S: String): Integer;例子:varS: String;beginReadln (S);Writeln(", S, ");Writeln(length = , Length(S));end. 复制子串copy定义: function Copy(S: Str
2007-10-02 09:55:00 2049
原创 求一个5×5数阵中的马鞍数
{求一个5×5数阵中的马鞍数。输出它的位置。所谓马鞍数,是指在行上最小而在列上最大的数。如下列的在第一行,第一列上的数就是马鞍数5 6 7 8 94 5 6 7 83 4 5 2 12 3 4 9 01 2 5 4 8 }program ex01;var m:array[1..5,1..5] of integer; p,q,i,j,Hminn,Hmin,lmaxn,lmax;integer;
2007-10-01 11:06:00 6577 1
Database Project Sample [Library System]
2012-07-12
Edogawa Sinri's Kana Tool v1.4
2010-07-10
九连环模拟器
2008-03-30
局域网互联工具 EMsg Lite I
2008-03-09
Ecale
2008-02-18
VB123
2007-10-02
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人