November 26th, 2005 by 张磊
Code:
program Project2;{＄APPTYPE CONSOLE}
uses
SysUtils;
function minor (i : Integer) : Integer ; //为了给数组赋值
var
a :Integer;
begin
result := -1;
for a := 0 to i do
begin
result :=result*( -1) ;
end;
end;
type
myarray = Array [0..99] of integer;
var
array_1:myarray;
i,j,temp : Integer;
begin
{ TODO -oUser -cConsole Main : Insert code here }
for i:=0 to 99 do //赋值
begin
array_1[i]:= i*minor(i);
end;
writeln(‘排序前：’);
for i:=0 to 99 do //输出
begin
write(array_1[i],#32);
if ((i+1)mod 10) = 0 then
writeln;
end;
writeln;
for j:=0 to 98 do //排序
begin
for i:=0 to 98-j do
begin
if array_1[i] < array_1[i+1] then
begin
temp := array_1[i];
array_1[i] := array_1[i+1];
array_1[i+1] := temp;
end;
end;
end;
writeln(‘排序后：’);
for i:=0 to 99 do //再输出
begin
write(array_1[i],#32);
if ((i+1)mod 10) = 0 then
writeln;
end;
writeln(‘回车退出……’);
readln;
end.
November 7th, 2005 by 张磊
记得那时候在blogger群里，我跟大家说自己架blog的事情，超超仔就说，他的blog订阅量很大，所以自己架有点亏。我当时后就很后悔，不过自信自己还没那么大的访问量，所以还是坚持了下来。没想到，今天blog终于超流量了。我仓促地处理了一下，后来还是决定暂时关闭这个blog。
以后我会继续写的，写到http://p_kisser.blogcn.com。今天下午真的快郁闷死了。
而且，我还怀疑是有人从中间乱搞。但这个可能性很小。
November 3rd, 2005 by 张磊
2005年11月1日的晚上，我在楼道里和哥们踢球。这本是一个平静的夜，却被我们添了几分喧嚣。
说话间，球到了我的脚下。我一抬头，突然就看见冲来一个人，情急之中往后一退，一个转身。一声脆响，我身后的消防栓玻璃被打破了……
我急忙跑开危险区，胳膊却已经被划得血肉翻卷。刚开始不觉得疼，但片刻之后胳膊就想从血水里泡过一样，疼得钻心……急忙到了医务室，还好没下班，我看着医生给我缝合伤口，看着医生剪掉翻起的皮肉……突然就觉得生命是个玩笑。
世界不过是个游戏。
November 1st, 2005 by 张磊
Code:
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
num1 , num2 ,result : double;
symbol : 0..3 ;
sym : char;
function showrt (num1,num2: double ; symbol : Integer): double ;
begin
case symbol of
0 : showrt := num1+num2;
1 : showrt := num1-num2;
2 : showrt := num1*num2;
3 : showrt := num1/num2;
end;
end;
begin
writeln(‘请输入第一个数’);
readln(num1);
writeln(‘请输入运算符’);
readln(sym) ;
case sym of
‘+’ : symbol := 0;
‘-’ : symbol := 1;
‘*’ : symbol := 2;
‘/’ : symbol := 3;
end;
writeln(‘请输入第二个数’);
readln(num2);
result := showrt (num1,num2,symbol);
writeln(‘结果是’ , result);
writeln(‘回车键退出’);
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.
