菜鸟求助.r语言用冒泡排序法实现对100个随机数的排序

Python012

菜鸟求助.r语言用冒泡排序法实现对100个随机数的排序,第1张

#产生0-1内的10个随机数，扩大100倍，然后取整。（自己改成100就行了）

#就是0-100内的10个随机整数

x <- as.integer(runif(10)*100)

x

for(i in 1:(length(x)-1)){

for(j in 1:(length(x)-i)){

if(x[j]>x[j+1]){

temp <- x[j]

x[j] <- x[j+1]

x[j+1] <- temp

}

}

}

x

/* 冒泡法的基本思想就是：在待排序的数据中，先找到最小（大）的数据将它放到最前面， 再从第二个数据开始，找到第二小（大）的数据将它放到第二个位置，以此类推，直到只剩下最后一个数为止。 这种排序方法在排序的过程中， 是小的数就如气泡一样逐层上浮，而使大的数逐个下沉，于是就形象地取名为冒泡排序，又名起泡排序*/#include#define Length 10int main(){ int i,jint a[Length]int tempprintf("测试冒牌排序算法 请你出入Length个数字 :\n")for(i=0i<Length++i) scanf("%d",&a[i])for(i=0i<Length++i) for(j=0ja[j+1])//按照从小到大的顺序排列，把>改为<顺序就变了 { temp=a[j]a[j]=a[j+1]a[j+1]=temp} printf("排序后的结果:\n")for(i=0i<Length++i) printf("%d ",a[i])printf("\n")return 0}