信息技术奥林匹克竞赛_VB程序设计的常用算法(7)

时间:2025-04-04

search = mid

Else

search = -1

End If

End Function

六、插入法

把一个数插到有序数列中,插入后数列仍然有序

基本思想:n个有序数(从小到大)存放在数组a(1)—a(n)

中,要插入的数x。首先确定x插在数组中的位置P;(可由以下语句实现)

p=1

do while x>a(p) and p<=n

p=p+1

loop

a(p)—a(n)元素向后顺移一个位置以空出a(p)元素放入x,

可由以下语句实现:

for i=n to p step-1

a(i+1)=a(i)

next i

a(p)=x

将其写成一插入函数

Private Sub Instert(a() As Single, x As Single)

Dim p%, n%, i%

n = UBound(a)

ReDim Preserve a(n + 1)

p = 0

Do While x > a(p) And p < =n ' 确定x应插入的位置

p = p + 1

Loop

For i = n To p Step -1

a(i + 1) = a(i)

Next i

a(p) = x

End Sub

信息技术奥林匹克竞赛_VB程序设计的常用算法(7).doc 将本文的Word文档下载到电脑

精彩图片

热门精选

大家正在看

× 游客快捷下载通道(下载后可以自由复制和排版)

限时特价:7 元/份 原价:20元

支付方式:

开通VIP包月会员 特价:29元/月

注:下载文档有可能“只有目录或者内容不全”等情况,请下载之前注意辨别,如果您已付费且无法下载或内容有问题,请联系我们协助你处理。
微信:fanwen365 QQ:370150219