Delphi7学习(一个简单的排序)

以前有学了QB,VB,C,JAVA,PB。现在工作的地方用Delphi,于是就开始学习这个。即来之则安之~``本来就是搞网络技术方面的,但是感觉总是没什么突破,不能就这样生活下去啊~``于是就学学这个了~`首先就搞了本基础书看起来,还行,也装了个Delphi7,跟以前学的VB很相似,都是OOP嘛

路漫漫其修远矣,吾将上下而求索

procedure sort(var a : array of integer); //排序处理过程
var x,i,j: integer;
begin
  for i:=0 to length(a)-1 do

      for j:=i to length(a)-1 do
        if a[i]>a[j] then
          begin
          x:=a[j];
          a[j]:=a[i];
          a[i]:=x;
          end;
   
end;
 

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值