常用算法源程序

常用算法源程序

1、常用算法：

（1）求一个数各个位上的数值程序：

Option Explicit

Dim x As Integer

Private Sub Command1_Click() '输入数据

x = InputBox("请输入一个整数：")

Picture1.Print "输入的数据为："; x

End Sub

Private Sub Command2_Click() '用除以10取余数的方法

Dim y%

Picture1.Print "各位中的数是："

Do While x <> 0

y = x Mod 10

x = x \ 10

Picture1.Print y

Loop

End Sub

Private Sub Command3_Click()

Dim i%

Dim y As String

y = Trim(Str(x))

For i = 1 To Len(y)

Picture1.Print Mid(y, Len(y) - i + 1, 1)

Next i

End Sub

（2）进制转换程序：

Function TranDec$(ByVal m%, ByVal r%)

Dim StrDtoR$

Dim iB%, mr%

StrDtoR = ""

Do While m <> 0

mr = m Mod r

m = m \ r

If mr >= 10 Then

StrDtoR = Chr(mr - 10 + 65) & StrDtoR '余数>=10 转换为A～F,最先求出的余数位数最低

Else

StrDtoR = mr & StrDtoR '余数<10 直接连接，最先求出的余数位数最低

End If

Loop

TranDec = StrDtoR

End Function

Private Sub Command1_click()

Dim m0%, r0%, i%

m0 = Val(Text1.Text)

r0 = Val(Text2.Text)

If r0 < 2 Or r0 > 16 Then

i = MsgBox("输入的R进制数超出范围", vbRetryCancel)

If i = vbRetry Then

Text2.Text = ""

Text2.SetFocus

Else

End

End If

End If

Label3.Caption = "转换成" & r0 & "进制数"

Text3.Text = TranDec(m0, r0)

End Sub

（3）n!和1--n累加程序：

Option Explicit

Private Sub Command1_Click()

Dim x%, i%, m%

m = 1

x = Val(InputBox("请输入一个小于等于7的整数"))

For i = 1 To x

m = m * i

Next i

Text1 = Str(m)

End Sub

Private Sub Command2_Click()

Dim x%, i%, sum%

sum = 0

x = Val(InputBox("请输入一个小于等于255的整数"))

For i = 1 To x

sum = sum + i

Next i

Text1 = Str(sum)

End Sub

（4）最大公约数最小公倍数程序：

Option Explicit

Private Sub Command1_Click()

Dim n%, n1%, m%, m1%, r%

n1 = InputBox("输入n")

m1 = InputBox("输入m")

If m1 > n1 Then ' m>n

m = m1: n = n1

Else

m = n1: n = m1

End If

Do

r = m Mod n

If r = 0 Then Exit Do

m = n

n = r

Loop

Print m1; ","; n1; "的最大公约数为"; n

Print "最小公倍数= ", m1 * n1 / n

End Sub

（5）递归算法：求n!和最大公约数程序

Option Explicit

Public Function fac(n As Integer) As Integer

If n = 1 Then

fac = 1

Else

fac = n * fac(n - 1)

End If

End Function

Private Sub Command1_Click() ' 调用递归函数，显示出fac(4)=24 Dim n%

n = Val(InputBox("请输入一个小于等于7的整数："))

Print "fac("; n; ")="; fac(n)

End Sub

Public Function gcd(m As Integer, n As Integer) As Integer

If (m Mod n) = 0 Then

gcd = n

Else

gcd = gcd(n, m Mod n)

End If

End Function

Private Sub Command2_Click()

Dim n%, m%

n = InputBox("输入n")

m = InputBox("输入m")

Print gcd(m, n)

End Sub

（6）水仙花数程序：

Option Explicit

Private Sub Command1_Click()

Dim i%

For i = 100 To 999

If (i \ 100) ^ 3 + ((i - (i \ 100) * 100) \ 10) ^ 3 + (i Mod 10) ^ 3 = i Then Print i

Next i

End Sub

（7）加密解密程序：

Dim strInput$, Code$, Record$, c As String * 1

Dim i%, length%, iAsc%

Private Sub cmdcls_Click() '清屏

txtCode.Text = ""

txtRecode.Text = ""

txtInput.Text = ""

End Sub

Private Sub cmdcode_Click() '加密

Dim strInput$, Code$, Record$, c As String * 1

Dim i%, length%, iAsc%

strInput = txtInput.Text

length = Len(RTrim(strInput)) '去掉字符串右边的空格,求真正的长度

Code = ""

For i = 1 To length

c = Mid$(strInput, i, 1) '取第i个字符

Select Case c

Case "A" To "Z" '大写字母加序数5加密

iAsc = Asc(c) + 5

If iAsc > Asc("Z") Then iAsc = iAsc - 26 '加密后字母超过Z

Code = Code + Chr$(iAsc)

Case "a" To "z"

iAsc = Asc(c) + 5 '小写字母加序数5加密

If iAsc > Asc("z") Then iAsc = iAsc - 26

Code = Code + Chr$(iAsc)

Case Else ‘第i个字符为其它字符时不加密,与加密字符串的前i-1个字符连接

Code = Code + c

End Select

Next i

txtCode.Text = Code '显示加密后的字符串

End Sub

Private Sub cmdrecode_Click() '解密与加密正好逆处理

Code = txtCode.Text

i = 1

recode = ""

length = Len(RTrim(Code)) '若还未加密,不能解密,出错

If length = 0 Then J = MsgBox("先加密再解密", 48, "解密出错")

Do While (i <= length)

c = Mid$(Code, i, 1)

If (c >= "A" And c <= "Z") Then

iAsc = Asc(c) - 5

If iAsc < Asc("A") Then iAsc = iAsc + 26

recode = Left$(recode, i - 1) + Chr$(iAsc)

ElseIf (c >= "a" And c <= "z") Then

iAsc = Asc(c) - 5

If iAsc < Asc("a") Then iAsc = iAsc + 26

recode = Left$(recode, i - 1) + Chr$(iAsc)

Else

recode = Left$(recode, i - 1) + c

End If

i = i + 1

Loop

txtRecode.Text = recode

End Sub

2、数组的常用算法:排序查找增加删除：

（1）求元素最大值最小值及其下标程序：

Option Explicit

Private Sub Command1_Click()

Dim Max As Integer, iMax As Integer, i As Integer

Dim ia(1 To 10) As Integer

For i = 1 To 10

ia(i) = Int(Rnd * 100)

Print ia(i);

Next i

Max = ia(1): iMax = 1

For i = 2 To 10

If ia(i) > Max Then

Max = ia(i)

iMax = i

End If

Next i

Print

Print "最大元素是"; Max; "下标是"; iMax

End Sub

Private Sub Command2_Click()

Dim Min As Integer, iMin As Integer, i As Integer

Dim ia(1 To 10) As Integer

For i = 1 To 10

ia(i) = Int(Rnd * 100)

Print ia(i);

Next i

Min = ia(1): iMin = 1

For i = 2 To 10

If ia(i) < Min Then

Min = ia(i)

iMin = i

End If

Next i

Print

Print "最大元素是"; Min; "下标是"; iMin

End Sub

（2）选择法排序程序：

Option Base 1

Private Sub Command1_Click()

Dim iA(1 To 10)

n = 6

iA(1) = 8: iA(2) = 6: iA(3) = 9: iA(4) = 3: iA(5) = 2: iA(6) = 7

For i = 1 To n - 1 ' 进行n-1遍比较

iMin = i ' 对第i遍比较时，初始假定第i个元素最小

For j = i + 1 To n ' 在数组i~n个元素中选最小元素的下标

If iA(j) < iA(iMin) Then iMin = j

Next j

t = iA(i) 'i~n个元素中选出的最小元素与第i个元素交换

iA(i) = iA(iMin)

iA(iMin) = t

For k = 1 To n

Print iA(k);

Next k

Print

Next i

End Sub

（3）冒泡法排序程序：

Option Base 1

Private Sub Command1_Click()

Dim iA(1 To 10)

n = 6

iA(1) = 8: iA(2) = 6: iA(3) = 9: iA(4) = 3: iA(5) = 2: iA(6) = 7

Print "冒泡法排序数据变化过程"

Print " 8, 6, 9, 3, 2, 7"

Print "-----------------------------"

For i = 1 To n - 1 ' 进行n-1遍比较

' 对第i遍比较时，初始假定第i个元素最小For j = n To i + 1 Step -1 ' 在数组i~n个元素中选最小元素的下标

If iA(j) < iA(j - 1) Then

t = iA(j)

iA(j) = iA(j - 1)

iA(j - 1) = t

End If

Next j

Print "i="; i; Spc(i * 3 - 3);

For k = i To n

Print iA(k);

Next k

Print

Next i

End Sub

（4）数组元素交换位置程序：

Option Explicit

Private Sub Command1_Click()

Dim i As Integer, t As Integer

Dim a(1 To 10) As Integer

For i = 1 To 10

a(i) = Int(Rnd * 100)

Print " a("; i; ")="; a(i);

Next i

Print

For i = 1 To 10 \ 2

t = a(i)

a(i) = a(10 - i + 1)

a(10 - i + 1) = t

Next i

For i = 1 To 10

Print " a("; i; ")="; a(i);

Next i

Print

End Sub

（5）二分法查找程序：

Sub birsearch(a(), ByVal low%, ByVal high%, ByVal key, index%)

Dim mid As Integer

mid = (low + high) \ 2 ' 取查找区间的中点

If a(mid) = key Then

index = mid ' 查找到，返回查找到的下标

Exit Sub

ElseIf low > high Then ' 二分法查找区间无元素，查找不到

index = -1

Exit Sub

End If

If key < a(mid) Then ' 查找区间在上半部

Else

low = mid + 1 ' 查找区间在下半部End If

Call birsearch(a, low, high, key, index) ' 递归调用查找函数End Sub

'主调程序调用:

Private Sub Command1_Click()

Dim b() As Variant

b = Array(5, 13, 19, 21, 37, 56, 64, 75, 80, 88, 92)

Call birsearch(b, LBound(b), UBound(b), 21, n%)

Print n

End Sub

（6）顺序查找程序：

Dim b() As Variant

Public Sub Search(a(), ByVal key, index%)

Dim i%

For i = LBound(a) To UBound(a)

If key = a(i) Then

index = i

Exit Sub

End If

Next i

index = -1

End Sub

Private Sub Command1_Click()

b = Array(1, 3, 5, 7, 9, 2, 4)

k = Val(InputBox("指定数据1-5,7,9"))

Call Search(b, k, n%)

Print n

End Sub

（7）数组元素的插入和删除程序：

Option Base 1

Dim a%(1 To 10)

Private Sub Command1_Click()

Dim i%, k%

For i = 1 To 9 ' 通过程序自动形成有规律的数组a(i) = (i - 1) * 3 + 1

Print a(i);

Next i

For k = 1 To 9 ' 查找欲插入数14在数组中的位置

If 14 < a(k) Then Exit For ' 找到插入的位置下标为k

Next k

For i = 9 To k Step -1 ' 从最后元素开始往后移，腾出位置

Next i

a(k) = 14 ' 数插入

Print

For i = 1 To 10

If a(i) = 14 Then Form1.FontBold = True Else Form1.FontBold = False

Print a(i);

Next i

End Sub

Private Sub Command2_Click()

For k = 1 To 9 ' 查找欲删除数14在数组中的位置

If 14 = a(k) Then Exit For ' 找到插入的位置下标为k

Next k

For i = k To 9 ' 从最后元素开始往前移，删除元素14

a(i) = a(i + 1)

Next i

a(i) = 0

Print

For i = 1 To 9

If a(i) = 14 Then Form1.FontBold = True Else Form1.FontBold = False

Print a(i);

Next i

Print

End Sub

（8）统计字母在文本中出现的次数程序：

Private Sub Command1_Click()

Dim a(1 To 26) As Integer, c As String * 1

le = Len(Text1) '求字符串的长度

For I = 1 To le

c = UCase(Mid(Text1, I, 1)) '取一个字符，转换成大写

If c >= "A" And c <= "Z" Then

j = Asc(c) - 65 + 1 '将A~Z大写字母转换成1~26的下标

a(j) = a(j) + 1 '对应数组元素加1

End If

Next I

For j = 1 To 26 '输出字母及其出现的次数

If a(j) > 0 Then Picture1.Print " "; Chr$(j + 64); "="; a(j);

Next j

End Sub

（9）求矩阵的转置程序：

Option Explicit

Dim a(5, 5) As Integer

Private Sub Command1_Click()

Dim i%, j%

For i = 0 To 5

For j = 0 To 5

a(i, j) = Int(Rnd * 90 + 10)

Picture1.Print a(i, j);

Next j

Picture1.Print

Next i

End Sub

Private Sub Command2_Click()

Dim t%, i%, j%

For i = 0 To 5

For j = 0 To i

t = a(i, j): a(i, j) = a(j, i): a(j, i) = t

Next j

Next i

For i = 0 To 5

For j = 0 To 5

Picture2.Print a(i, j);

Next j

Picture2.Print

Next i

End Sub

（10）求矩阵的对角线元素之和程序：

Option Explicit

Dim a(5, 5) As Integer

Private Sub Command1_Click()

Dim i%, j%

Randomize

For i = 0 To 5

For j = 0 To 5

a(i, j) = Int(Rnd * 90 + 10)

Print a(i, j);

Next j

Print

Next i

End Sub

Private Sub Command2_Click()

Dim i%, j%, sum1%, sum2%

For i = 0 To 5

sum1 = sum1 + a(i, i)

sum2 = sum2 + a(i, 5 - i)

Next i

Print "对角线元素和="; sum1

Print "副对角线元素和="; sum2

End Sub

（11）求素数程序：

Private Sub Command2_Click() '单击命令按钮运行该事件函数'使用状态变量

Dim i As Integer, m As Integer, tag As Boolean

j = 0

For m = 2 To 100 ' 对100以内的每个数判断其是否为素数

tag = True

For i = 2 To m - 1

If (m Mod i) = 0 Then tag = False 'm能被i整除，该m不是素数Next i

If tag Then

Print m; " "; 'm不能被i=2～m-1整除，m是素数，显示

j = j + 1

If j = 10 Then j = 0: Print

End If

Next m

End Sub

Private Sub Command1_Click()

'使用GoTo语句

j = 0

For m = 2 To 100

For i = 2 To m - 1

If (m Mod i) = 0 Then GoTo NotNextM

Next i

Print m; " ";

j = j + 1

If j = 10 Then j = 0: Print

NotNextM:

Next m

End Sub

（12）裴波那切数列程序：

Option Explicit

Private Sub Command1_Click()

Dim a(1 To 30) As Long, i As Integer

a(1) = 1: a(2) = 1

Print Tab(1); a(1); Tab(10); a(2);

For i = 3 To 30

a(i) = a(i - 1) + a(i - 2)

If i Mod 5 = 0 Then

Print Tab(41); a(i)

Else

Print Tab(((i Mod 5) - 1) * 10); a(i);

End If

Next i

End Sub

（13）杨辉三角形程序：

Option Explicit

Option Base 1

Private Sub Command1_Click()

Dim a(8, 8) As Integer, i As Integer, j As Integer

For i = 1 To 8

a(i, 1) = 1: a(i, i) = 1

Next i

For i = 3 To 8

For j = 2 To i - 1

a(i, j) = a(i - 1, j - 1) + a(i - 1, j)

Next j

Next i

For i = 1 To 8

For j = 1 To i

Print Tab(j * 8); a(i, j);

Next j

Print

Next i

End Sub

操作系统课程设计-页面置换算法C语言

操作系统课程设计-页面置换算法C语言

5、根据方案使算法得以模拟实现。 6、锻炼知识的运用能力和实践能力。 三、设计要求 1、编写算法，实现页面置换算法FIFO、LRU； 2、针对内存地址引用串，运行页面置换算法进行页面置换； 3、算法所需的各种参数由输入产生（手工输入或者随机数产生）； 4、输出内存驻留的页面集合，页错误次数以及页错误率； 四．相关知识： 1．虚拟存储器的引入： 局部性原理：程序在执行时在一较短时间内仅限于某个部分；相应的，它所访问的存储空间也局限于某个区域，它主要表现在以下两个方面：时间局限性和空间局限性。 2．虚拟存储器的定义： 虚拟存储器是只具有请求调入功能和置换功能，能从逻辑上对内存容量进行扩充的一种存储器系统。 3．虚拟存储器的实现方式： 分页请求系统，它是在分页系统的基础上，增加了请求调页功能、页面置换功能所形成的页面形式虚拟存储系统。

请求分段系统，它是在分段系统的基础上，增加了请求调段及分段置换功能后，所形成的段式虚拟存储系统。 4．页面分配： 平均分配算法，是将系统中所有可供分配的物理块，平均分配给各个进程。 按比例分配算法，根据进程的大小按比例分配物理块。 考虑优先的分配算法，把内存中可供分配的所有物理块分成两部分：一部分按比例地分配给各进程；另一部分则根据个进程的优先权，适当的增加其相应份额后，分配给各进程。 5．页面置换算法： 常用的页面置换算法有OPT、FIFO、LRU、Clock、LFU、PBA等。 五、设计说明 1、采用数组页面的页号 2、FIFO算法，选择在内存中驻留时间最久的页 面予以淘汰； 分配n个物理块给进程，运行时先把前n个不同页面一起装入内存，然后再从后面逐一比较，输出页面及页错误数和页错误率。3、LRU算法，根据页面调入内存后的使用情况 进行决策； 同样分配n个物理块给进程，前n个不同页面一起装入内存，后面步骤与前一算法类似。 选择置换算法，先输入所有页面号，为系统分

VB常用算法

常用算法 1.判断素数 素数是指只能被1与自己整除的数是素数,最小的素数是2,如3，5，7等都是素数判断方法一: Private Function Prime(N As Integer)As Boolean Dim i As Integer For i=2 To N-1(或sqr(N)或N\2) If N Mod i=0 Then Exit For Next i (或N/i=Int(N/i)) If i=N Then Prime=True End Function 判断方法二: Private Function Prime(N As Integer)As Boolean Dim i As Integer For i=2 To N-1 If N Mod i=0 Then Exit Function Next i Prime=True End Function (2)求最大公约数(欧几里德算法,辗转相除法) 最大公约数是指两个数最大的公约数 Private Function Gcd(byval m As Integer,ByVal n As Integer)As Integer Dim r As Integer r=m Mod n Do while r<>0 m=n n=r r=m Mod n Loop Gcd=n End Function 利用递归实现判断最大公约数 Private Function Gcd(ByVal m As Integer,ByVal n As Integer)As Integer Dim r As Integer r=m Mod n If r=0 Then Gcd=n ELse M=n n=r Gcd=Gcd(m,n) End If

动态分区分配 最佳 最坏 适应算法

我伟大的母校 课程设计报告书 实践课题：动态分区分配 姓名：路人甲 学号：20XXXXXX 指导老师：路人乙 学院：计算及科学与技术学院 课程设计实践时间 2013.3.11~2013.3.22

一．课程设计的目的： 二．设计内容： 三．设计要求： 四．程序流程图 Alloc

Best_fit Worst_fit

Free Show

Main 五．源代码 #include #include #include #define Free 0 //空闲状态 #define Busy 1 //已用状态 #define OK 1 //完成 #define ERROR 0 //出错 #define MAX_length 100 //最大内存空间为100M typedef int Status; int flag;//标志 typedef struct freearea//定义一个空闲区说明表结构{ long size; //分区大小 long address; //分区地址 int state; //状态 }ElemType;//元素类型 // 线性表的双向链表存储结构

typedef struct DuLNode//结构指针 { ElemType data; struct DuLNode *prior; //前趋指针 struct DuLNode *next; //后继指针 } DuLNode,*DuLinkList;//指针链表 DuLinkList block_first; //头结点 DuLinkList block_last; //尾结点 Status alloc(int);//内存分配 Status free(int); //内存回收 Status Best_fit(int); //最佳适应算法 Status Worst_fit(int);//最差适应算法 void show();//查看分配 Status Initblock();//开创空间表 Status Initblock()//开创带头结点的内存空间链表 { block_first=(DuLinkList)malloc(sizeof(DuLNode)); block_last=(DuLinkList)malloc(sizeof(DuLNode)); block_first->prior=NULL; block_first->next=block_last; block_last->prior=block_first; block_last->next=NULL; block_last->data.address=0; block_last->data.size=MAX_length; block_last->data.state=Free; return OK; } //分配主存 Status alloc(int ch) { int request = 0; cout<<"请输入需要分配的主存大小(单位:M)："; cin>>request; if(request<0 ||request==0) { cout<<"分配大小不合适，请重试！"<

VB程序设计的常用算法填空题

VB程序设计的常用算法 例：用随机函数产生100个[0，99]范围内的随机整数，统计个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数并打印出来。 将程序编写在一个GetTJput过程中，代码如下： Public Sub GetTJput() Dim a(1 To 100) As Integer Dim x(1 To 10) As Integer Dim i As Integer, p As Integer '产生100个[0，99]范围内的随机整数，每行10个打印出来 For i = 1 To If a(i) < 10 Then Form1.Print Space(2); a(i); Else Form1.Print Space(1); a(i); End If If Then Next i '统计个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数，并将统计结果保存在数组x(1),x(2),...,x(10)中，将统计结果打印出来For i = 1 To 100 p = a(i) Mod 10 ' 求个位上的数字 If p = 0 Then p = 10 Next i Form1.Print "统计结果" For i = 1 To 10 p = i If i = 10 Then p = 0 Form1.Print "个位数为" + Str(p) + "共" + Str(x(i)) + "个" Next i End Sub 二、求两个整数的最大公约数、最小公倍数 m=inputBox("m=") n=inputBox("n=") nm=n*m If m < n Then r=m mod n Do While m=n n=r

VB常用算法介绍

常用算法介绍 VB 算法（Algorithm）：计算机解题的基本思想方法和步骤。算法的描述：是对要解决一个问题或要完成一项任务所采取的方法和步骤的描述，包括需要什么数据（输入什么数据、输出什么结果）、采用什么结构、使用什么语句以及如何安排这些语句等。通常使用自然语言、结构化流程图、伪代码等来描述算法。 一、计数、求和、求阶乘等简单算法 此类问题都要使用循环，要注意根据问题确定循环变量的初值、终值或结束条件，更要注意用来表示计数、和、阶乘的变量的初值。 例：用随机函数产生100个[0，99]围的随机整数，统计个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数并打印出来。 本题使用数组来处理，用数组a(1 to 100)存放产生的确100个随机整数，数组x(1 to 10)来存放个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数。即个位是1的个数存放在x(1)中，个位是2的个数存放在x(2)中，……个位是0的个数存放在x(10)。 将程序编写在一个GetTJput过程中，代码如下： Public Sub GetTJput() Dim a(1 To 100) As Integer Dim x(1 To 10) As Integer

Dim i As Integer, p As Integer '产生100个[0，99]围的随机整数，每行10个打印出来 For i = 1 To 100 a(i) = Int(Rnd * 100) If a(i) < 10 Then Form1.Print Space(2); a(i); Else Form1.Print Space(1); a(i); End If If i Mod 10 = 0 Then Form1.Print Next i '统计个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数，并将统计结果保存在数组x(1),x(2),...,x(10)中，将统计结果打印出来 For i = 1 To 100 p = a(i) Mod 10 ' 求个位上的数字 If p = 0 Then p = 10 x(p) = x(p) + 1 Next i Form1.Print "统计结果" For i = 1 To 10

VB练习题

判断题： 1、VB中，每一种对象有着不同的属性设置，每一种对象能识别的事件也不同。（对） 2、Val(“123hello”) 和Val(“hello123”)返回值一样。（错） 3、赋值语句X=123+”123”和X=”123”+123中，X的值一样。（对） 4、赋值语句X=”123”+”123”和X=”123”+123中，X的值一样。（错） 5、执行Print 5*8 和Print “5*8 ”语句运行结果一样。（错） 6、标签框和文本框内容的最大区别就是在程序运行过程中标签框的内容不可编辑，而文本框的内容可编辑。（对） 7、用vb编写程序时，标签控件能代替文本框控件使用. （错） 8、VB程序代码中，Label1.Caption=””的作用是该标签框中得内容清除。（对） 9、变量名的长度最长可达1024个字符。（错）225个 10、sum和int.sum都可以作为VB的变量名。（错） 11、下列程序的运行结果是15 （对） Dim s as Double Dim i as Integer S=0 I=1 Do While i<=5 I=i+2 S=s+i Loop Label1.Caption=s 12、对于熟练的程序员，可以省略程序的调试过程。（错） 13、在VB中，使用if语句就可以根据条件改变程序的执行路径。（对） 14、VB编程的一般步骤应该是：分析问题——设计界面——编写代码——调试与运行程序。（对） 单项选择题 1、小明想用VB设计一个加法器程序，做了如下规划，下列说法错误的是。（D） A、程序运行时标题栏显示加法器 B、前两个标签框显示的内容分别为“+”和“=” C、Command1用来计算出结果 D、使用了三个命令按钮、两个标签框和三个文本框 2、从下面的对象属性可以看出，该对象的标题为（A）

(流程图)页面置换算法课程设计

操作系统课程设计报告题目：页面置换算法模拟程序 学院名称: 专业班级： 学生姓名： 指导教师： 成绩：

目录 一、设计目的 (3) 二、设计题目 (3) 2.1设计内容 (3) 2.2设计要求 (3) 三、设计过程 (4) 3.1 FIFO（先进先出） (4) 3.2 LRU（最近最久未使用） (5) 3.3 OPT（最佳置换算法） (6) 3.4 随机数发生器 (7) 四、完整代码 (7) 五、运行结果演示 (13) 六、设计心得 (16) 七、参考文献 (16)

操作系统是计算机教学中最重要的环节之一，也是计算机专业学生的一门重要的专业课程。操作系统质量的好坏，直接影响整个计算机系统的性能和用户对计算机的使用。一个精心设计的操作系统能极大地扩充计算机系统的功能，充分发挥系统中各种设备的使用效率，提高系统工作的可靠性。由于操作系统涉及计算机系统中各种软硬件资源的管理，内容比较繁琐，具有很强的实践性。要学好这门课程，必须把理论与实践紧密结合，才能取得较好的学习效果。 本课程设计是学生学习完《计算机操作系统》课程后，进行的一次全面的综合训练，通过课程设计，让学生更好地掌握操作系统的原理及实现方法,加深对操作系统基础理论和重要算法的理解，加强学生的动手能力。 熟悉页面置换算法及其实现，引入计算机系统性能评价方法的概念。 二、设计题目：页面置换算法模拟程序 2.1设计内容 编制页面置换算法的模拟程序。 2.2设计要求 1).用随机数方法产生页面走向，页面走向长度为L(15<=L<=20),L由控制台输入。 2).根据页面走向，分别采用Optinal、FIFO、LRU算法进行页面置换，统计缺页率。 3).假定可用内存块为m(3<=m<=5)，m由控制台输入，初始时，作业页面都不在内存。 4).要求写出一份详细的设计报告。课程设计报告内容包括：设计目的、设计内容、设计原理、算法实现、流程图、源程序、运行示例及结果分析、心得体会、参考资料等。

《操作系统》实验五页面置换算法模拟

实验五. 请求页式存储管理的模拟 [实验内容]: 熟悉虚拟存储管理的各种页面置换算法，并编写模拟程序实现请求页式存储管理的页面置换算法----最近最久未使用算法（LRU），要求在每次产生置换时显示页面分配状态和缺页率。 [实验要求]： 1、运行给出的实验程序，查看执行情况，进而分析算法的执行过程，在理解FIFO页面置换算法和最近最久未使 用算法（LRU）置换算法后，给出最佳置换算法的模拟程序实现，并集成到参考程序中。 2、执行2个页面置换模拟程序，分析缺页率的情况。最好页框数和访问序列长度可调节，在使用同一组访问序 列数据的情况下，改变页框数并执行2个页面置换模拟程序，查看缺页率的变化。 3、在每次产生置换时要求显示分配状态和缺页率。程序的地址访问序列通过随机数产生，要求具有足够的长度。 最好页框数和访问序列长度可调节。 实验的执行结果如下图所示（左下图为FIFO执行结果，右下图为LRU执行结果）：

程序源代码： #include #include "windows.h" #include #include #include #include #include #include void initialize(); //初始化相关数据结构 void createps(); //随机生成访问序列 void displayinfo(); //显示当前状态及缺页情况 void fifo(); //先进先出算法 int findpage(); //查找页面是否在内存 void lru(); //最近最久未使用算法 int invalidcount = 0; // 缺页次数 int vpoint; //页面访问指针 int pageframe[10]; // 分配的页框 int pagehistory[10]; //记录页框中数据的访问历史 int rpoint; //页面替换指针 int inpflag; //缺页标志，0为不缺页，1为缺页 struct PageInfo //页面信息结构 { int serial[100]; // 模拟的最大访问页面数，实际控制在20以上 int flag; // 标志位，0表示无页面访问数据 int diseffect; // 缺页次数 int total_pf; // 分配的页框数 int total_pn; // 访问页面序列长度 } pf_info; //////////////////////////////////////////////////////////////////////// //初始化相关数据结构 void initialize() { int i,pf; inpflag=0; //缺页标志，0为不缺页，1为缺页 pf_info.diseffect =0; // 缺页次数 pf_info.flag =0; // 标志位，0表示无页面访问数据 printf("\n请输入要分配的页框数："); // 自定义分配的页框数 scanf("%d",&pf); pf_info.total_pf =pf; for(i=0;i<100;i++) // 清空页面序列 { pf_info.serial[i]=-1; }

VB程序设计的常用算法教案.doc

VB程序设计的常用算法教案 算法（algorithm）：计算机解题的基本思想方法和步骤。算法的描述：是对要解决一个问题或要完成一项任务所采取的方法和步骤的描述，包括需要什么数据（输入什么数据、输出什么结果）、采用什么结构、使用什么语句以及如何安排这些语句等。通常使用自然语言、结构化流程图、伪代码等来描述算法。 一、计数、求和、求阶乘等简单算法 此类问题都要使用循环，要注意根据问题确定循环变量的初值、终值或结束条件，更要注意用来表示计数、和、阶乘的变量的初值。 例：用随机函数产生100个[0，99]范围内的随机整数，统计个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数并打印出来。 本题使用数组来处理，用数组a(1 to 100)存放产生的确100个随机整数，数组x(1 to 10)来存放个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数。即个位是1的个数存放在x(1)中，个位是2的个数存放在x(2)中，......个位是0的个数存放在x(10)。 将程序编写在一个gettjput过程中，代码如下： public sub gettjput() dim a(1 to 100) as integer

dim x(1 to 10) as integer dim i as integer, p as integer '产生100个[0，99]范围内的随机整数，每行10个打印出来 for i = 1 to 100 a(i) = int(rnd * 100) if a(i) < 10 then form1.print space(2); a(i); else form1.print space(1); a(i); end if if i mod 10 = 0 then form1.print next i '统计个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数，并将统计结果保存在数组x(1),x(2),...,x(10)中，将统计结果打印出来 for i = 1 to 100 p = a(i) mod 10 ' 求个位上的数字 if p = 0 then p = 10 x(p) = x(p) + 1 next i form1.print "统计结果"

首次适应算法 内存分配

操 作 系 统 实 验 报 告 课程名称：操作系统 实验题目：首次适应算法 姓名： **** 专业班级： *********** 学号： ************* 指导老师： *****

一、实验目的 在计算机系统中，为了提高内存区的利用率，必须给电脑内存区进行合理的分配。本实验通过对内存区分配方法首次适应算法的使用，来了解内存分配的模式。 二、实验要求 1.内存大小初始化 2.可以对内存区进行动态分配，采用首次适应算法来实现 3.可以对已分配的内存块进行回收，并合并相邻的空闲内存块。 三、实验内容 把一个作业装入内存，按照首次适应算法对内存区进行分配，作业结束，回收已分配给该作业的内存块，并合并相邻的空闲内存块。 四、实验结果 运行效果： 1.初始化内存区大小，并添加作业，选择1添加作业 2. 当作业大小超过存储块大小时，分配失败。 3.选择3，可查看内存分配情况 4.选择2回收内存 5.添加新作业 6.回收C作业，相邻的空闲内存块合并。 五、实验总结

首次适应算法要求空闲分区链以地址递增的次序链接。在分配内存时，从链首开始查找，直到找到一个大小能满足要求的空闲分区为止；然后按照作业大小，从该分区中划出一块内存空间分配给请求者，余下的空闲区仍留在空闲链中。若从链首到链尾都不能找到一个能满足要求的分区，则此次分配失败。这里，我采用数组的方式，模拟内存分配首次适应算法，动态的为作业分配内存块。可以根据作业名称回收已分配的内存块，当空闲内存块相邻时，则合并。 通过此次的实验，让我对内存分配中首次适应算法更加熟悉，在此基础上，我也测试最佳适应算法（best_fit）和最坏适应算法（worst_fit），并对其进行了比较分析，从比较中我发现，针对同一个问题，解决的方法不止一种，而且不同的方法所要消耗的资源和时间也不相同，根据不同的要求，方法的优劣也不同，可以说方法是解决问题的一种模式，随环境不同而体现出优越性。 六、实验附录 程序源代码： #include #include #include int neicun=200;//内存块默认大小 int fqNum=1;//已使用分区数目，进程数目=fqNum-1 #define number 100//进程数量 struct fqinfo//分区信息 { int start;//开始位置 int end;//结束位置 char name;//进程名称 int capactity;//进程大小或者分区块大小 int flag;//分区使用标记，0：未使用 1：已使用 2:回收或者合并的分区 3:尾部 }fqlist[number]; int init_neicun();//初始化内存大小 int first_fit(char name,int size);//首次适应算法 int fenpei();//为进程存储区 int showit();//显示进程 int menu();//功能菜单 int Memory_recovery();//内存回收 int exit();//退出系统

VB程序设计的常用算法4

VB程序设计的常用算法4 十、数制转换 将一个十进制整数m转换成→r(2－16)进制字符串。 方法：将m不断除r 取余数，直到商为零，以反序得到结果。下面写出一转换函数，参数idec为十进制数，ibase为要转换成数的基（如二进制的基是2，八进制的基是8等），函数输出结果是字符串。 Private Function TrDec(idec As Integer, ibase As Integer) As String Dim strDecR$, iDecR% strDecR = "" Do While idec <> 0 iDecR = idec Mod ibase If iDecR >= 10 Then strDecR = Chr$(65 + iDecR - 10) & strDecR Else strDecR = iDecR & strDecR End If idec = idec \ ibase Loop TrDec = strDecR End Function 十一、字符串的一般处理1．简单加密和解密 加密的思想是：将每个字母C加（或减）一序数K，即用它后的第K个字母代替，变换式公式：c=chr(Asc(c)+k) 例如序数k为5，这时"A"→"F"，"a""f"，"B""G"…当加序数后的字母超过"Z"或"z"则c=Chr(Asc(c)+k -26) 例如：You are good→ Dtz fwj ltti 解密为加密的逆过程 将每个字母C减（或加）一序数K，即c=chr(Asc(c)-k), 例如序数k为5，这时"Z"→"U"，"z"→"u"，"Y"→"T"…当加序数后的字母小于"A"或"a"则c=Chr(Asc(c)-k +26) 下段程序是加密处理： i = 1: strp = "" nL = Len(RTrim(strI)) Do While (i <= nL) strT = Mid$(strI, i, 1) '取第i个字符 If (strT >= "A" And strT <= "Z") Then iA = Asc(strT) + 5 If iA > Asc("Z") Then iA = iA - 26 strp = strp + Chr$(iA) ElseIf (strT >= "a" And strT <= "z") Then iA = Asc(strT) + 5 If iA > Asc("z") Then iA = iA - 26 strp = strp + Chr$(iA) Else strp = strp + strT End If i = i + 1 Loop Print strp

操作系统实验4(虚拟内存页面置换算法)

操作系统实验报告四 【实验题目】 虚拟内存页面置换算法 【实验目的】 通过这次实验，加深对虚拟内存页面置换概念的理解，进一步掌握先进先出FIFO，最佳置换OPI和最近最久未使用LRU页面置换算法的实现方法。 【实验内容】 问题描述： 设计程序模拟先进先出FIFO，最佳置换OPI和最近最久未使用LRU页面置换算法的工作过程。假设内存中分配给每个进程的最小物理块数为m，在进程运行过程中要访问的页面个数为n，页面访问序列为P1, …,Pn，分别利用不同的页面置换算法调度进程的页面访问序列，给出页面访问序列的置换过程，计算每种算法缺页次数和缺页率。 程序要求如下： 1）利用先进先出FIFO，最佳置换OPI和最近最久未使用LRU三种页面置换算法模拟页面访问过程。 2）模拟三种算法的页面置换过程，给出每个页面访问时的内存分配情况。 3）输入：最小物理块数m，页面个数n，页面访问序列P1, … ,Pn，算法选择1-FIFO，2-OPI，3-LRU。 4）输出：每种算法的缺页次数和缺页率。 【实验要求】 1) 上机前认真复习页面置换算法，熟悉FIFO，OPI，LRU三种页面分配和置换算法的过程； 2) 上机时独立编程、调试程序； 3) 根据具体实验要求，完成好实验报告（包括实验的目的、内容、要求、源程序、实例运行结果截图）。 【源代码】 //--------------- YeMianZhiHuan.cpp ----------------- #include "iostream.h" const int DataMax=100; const int BlockNum = 10; int DataShow[BlockNum][DataMax]; // 用于存储要显示的数组 bool DataShowEnable[BlockNum][DataMax]; // 用于存储数组中的数据是否需要显示

页面置换算法作业

页面置换算法的演示 一．实验要求： 设计一个虚拟存储区和内存工作区，编程序演示下述算法的具体实现过程，并计算访问命中率： 要求设计主界面以灵活选择某算法，且以下算法都要实现 1) 最佳置换算法(OPT)：将以后永不使用的或许是在最长(未来)时间内不再 被访问的页面换出。 2) 先进先出算法(FIFO)：淘汰最先进入内存的页面，即选择在内存中驻留 时间最久的页面予以淘汰。 3) 最近最久未使用算法(LRU)：淘汰最近最久未被使用的页面。 4) 最不经常使用算法(LFU) 二．实验目的： 1、用C语言编写OPT、FIFO、LRU，LFU四种置换算法。 2、熟悉内存分页管理策略。 3、了解页面置换的算法。 4、掌握一般常用的调度算法。 5、根据方案使算法得以模拟实现。 6、锻炼知识的运用能力和实践能力。 三．相关知识： 1．虚拟存储器的引入： 局部性原理：程序在执行时在一较短时间内仅限于某个部分；相应的，它所访问的存储空间也局限于某个区域，它主要表现在以下两个方面：时间局限性和空间局限性。 2．虚拟存储器的定义： 虚拟存储器是只具有请求调入功能和置换功能，能从逻辑上对内存容量进行扩充的一种存储器系统。 3．虚拟存储器的实现方式： 分页请求系统，它是在分页系统的基础上，增加了请求调页功能、页面置换功能所形成的页面形式虚拟存储系统。 请求分段系统，它是在分段系统的基础上，增加了请求调段及分段置换功能后，所形成的段式虚拟存储系统。 4．页面分配： 平均分配算法，是将系统中所有可供分配的物理块，平均分配给各个进程。 按比例分配算法，根据进程的大小按比例分配物理块。 考虑优先的分配算法，把内存中可供分配的所有物理块分成两部分：一部分按比例地分配给各进程；另一部分则根据个进程的优先权，适当的增加其相应份额后，分配给各进程。 5．页面置换算法： 常用的页面置换算法有OPT、FIFO、LRU、Clock、LFU、PBA等。

VB程序设计的常用算法

VB程序设计的常用算法 算法（Algorithm）：计算机解题的基本思想方法和步骤。算法的描述：是对要解决一个问题或要完成一项任务所采取的方法和步骤的描述，包括需要什么数据（输入什么数据、输出什么结果）、采用什么结构、使用什么语句以及如何安排这些语句等。通常使用自然语言、结构化流程图、伪代码等来描述算法。 一、计数、求和、求阶乘等简单算法 此类问题都要使用循环，要注意根据问题确定循环变量的初值、终值或结束条件，更要注意用来表示计数、和、阶乘的变量的初值。 例：用随机函数产生100个[0，99]范围内的随机整数，统计个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数并打印出来。 本题使用数组来处理，用数组a(1 to 100)存放产生的确100个随机整数，数组x(1 to 10)来存放个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数。即个位是1的个数存放在x(1)中，个位是2的个数存放在x(2)中，……个位是0的个数存放在x(10)。 将程序编写在一个GetTJput过程中，代码如下： Public Sub GetTJput() Dim a(1 To 100) As Integer Dim x(1 To 10) As Integer Dim i As Integer, p As Integer '产生100个[0，99]范围内的随机整数，每行10个打印出来 For i = 1 To 100 a(i) = Int(Rnd * 100) If a(i) < 10 Then Form1.Print Space(2); a(i); Else Form1.Print Space(1); a(i); End If If i Mod 10 = 0 Then Form1.Print Next i '统计个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数，并将统计结果保存在数组x(1),x(2),...,x(10)中，将统计结果打印出来 For i = 1 To 100 p = a(i) Mod 10 ' 求个位上的数字 If p = 0 Then p = 10 x(p) = x(p) + 1 Next i Form1.Print "统计结果" For i = 1 To 10 p = i If i = 10 Then p = 0 Form1.Print "个位数为" + Str(p) + "共" + Str(x(i)) + "个" Next i End Sub 二、求两个整数的最大公约数、最小公倍数 分析：求最大公约数的算法思想：(最小公倍数=两个整数之积/最大公约数) (1) 对于已知两数m，n，使得m>n； (2) m除以n得余数r； (3) 若r=0，则n为求得的最大公约数，算法结束；否则执行(4)； (4) m←n，n←r，再重复执行(2)。 例如:求m=14 ,n=6的最大公约数. m n r

页面置换算法实验报告

一、实验目的 通过模拟实现请求页式存储管理的几种基本页面置换算法，了解虚拟存储技术的特点，掌握虚拟存储请求页式存储管理中几种基本页面置换算法的基本思想和实现过程，并比较它们的效率。 二、实验内容 基于一个虚拟存储区和内存工作区，设计下述算法并计算访问命中率。 1、最佳淘汰算法（OPT） 2、先进先出的算法（FIFO） 3、最近最久未使用算法（LRU） 4、简单时钟(钟表)算法（CLOCK） 命中率＝１－页面失效次数／页地址流(序列)长度 三、实验原理 UNIX中，为了提高内存利用率，提供了内外存进程对换机制；内存空间的分配和回收均以页为单位进行；一个进程只需将其一部分（段或页）调入内存便可运行；还支持请求调页的存储管理方式。 当进程在运行中需要访问某部分程序和数据时，发现其所在页面不在内存，就立即提出请求（向CPU发出缺中断），由系统将其所需页面调入内存。这种页面调入方式叫请求调页。为实现请求调页，核心配置了四种数据结构：页表、页帧（框）号、访问位、修改位、有效位、保护位等。 当CPU接收到缺页中断信号，中断处理程序先保存现场，分析中断原因，转入缺页中断处理程序。该程序通过查找页表，得到该页所在外存的物理块号。如果此时内存未满，能容纳新页，则启动磁盘I/O将所缺之页调入内存，然后修改页表。如果内存已满，则须按某种置换算法从内存中选出一页准备换出，是否重新写盘由页表的修改位决定，然后将缺页调入，修改页表。利用修改后的页表，去形成所要访问数据的物理地址，再去访问内存数据。整个页面的调入过程对用户是透明的。 四、算法描述 本实验的程序设计基本上按照实验内容进行。即使用srand( )和rand( )函数定义和产生指令序列，然后将指令序列变换成相应的页地址流，并针对不同的算法计算出相应的命中率。 （1）通过随机数产生一个指令序列，共320条指令。指令的地址按下述原则生成：A：50%的指令是顺序执行的 B：25%的指令是均匀分布在前地址部分 C：25%的指令是均匀分布在后地址部分 具体的实施方法是： A：在[0，319]的指令地址之间随机选取一起点m B：顺序执行一条指令，即执行地址为m+1的指令 C：在前地址[0,m+1]中随机选取一条指令并执行，该指令的地址为m’ D：顺序执行一条指令，其地址为m’+1

VB常用算法——排序

VB常考算法（八）排序： 1、算法 1）选择法排序 算法说明：根据上例中求最小值的思路，我们可以使用如下方法进行从小到大排序：第一轮，以第一个元素逐个跟后面的所有元素比较，如果比后面的元素大就进行交换，经过一轮比较，第一个元素被确定为最小；同样的方法，下一轮以第二个元素跟剩下的所有元素进行比较确定下次小的元素；以此类推… 下面我们以图形的形式体现对5个数进行选择排序的过程： 第一轮：第二轮： 第三轮： 从上图可以发现对5个元素进行排序，总共经过了5-1=4轮，而每一轮中比较的次数也不相同，第一轮2、3、4、5号元素参与跟1号元素的比较，共4次，第二轮3、4、5号元素参与跟2号元素的比较，共3次，以次类推，比较次数逐步减少。经过四轮的比较，利用逐步求最小值的方法将5个数从小到大排好序。对于这样一个排序的过程，我们可以使用两个循环分别控制比较的轮数和每一轮的次数。 程序代码： Private Sub Command1_Click() Dim n As Integer n = InputBox("请输入数组元素的个数：") Dim a() As Integer, i As Integer, j As Integer Print "排序前：" ReDim a(n) For i = 1 To n a(i) = Int(Rnd * (99 - 10 + 1) + 10) Print a(i); 最小值 次小值

Next i For i = 1 To n - 1 For j = i To n If a(i) > a(j) Then temp = a(i) '交换元素 a(i) = a(j) a(j) = temp End If Next j Next i Print Print "排序后:" For i = 1 To n Print a(i); Next i End Sub 2）冒泡法排序 算法说明：相邻的元素进行比较，如果前面的元素比后面的元素大，则将它们进行交换，具体思路：设在数组a 中存放n 个元素，第一轮，将a(1)和a(2)进行比较，若a(1)>a(2),则交换这两个元素的值，然后继续用a(2)和a(3)比较，若a(1)>a(2)，则交换这两个元素的值，以此类推，直到a(n-1)和a(n)进行比较处理后，a(n)中就存放了n 个数中最大的值；第二轮，用a(1)与a(2),a(2)与a(3),…,a(n-2)与a(n-1)进行比较，处理方法相同，这一轮下来，a(n-1)中存放n 个数中第二大的值；…；第n-1轮，a(1)与a(2)进行比较处理，确保最小值在a(1)中。经过n-1轮比较处理，n 个数已经按从小到大的顺序排列好。 下面我们以图形的形式体现对5个数进行冒泡排序的过程： 第一轮： 第三轮： 第四轮： 最大值

操作系统常用页面置换算法课程设计

摘要 在lｉnｕｘ中,为了提高内存利用率,提供了内外存进程对换机制,内存空间的分配和回收均以页为单位进行，一个进程只需要将其一部分调入内存便可运行；当操作系统发生缺页中断时，必须在内存选择一个页面将其移出内存,以便为即将调入的页面让出空间。因而引入一种用来选择淘汰哪一页的算法——页面置换算法。页面置换算法是操作系统中虚拟存储管理的一个重要部分。页面置换算法在具有层次结构存储器的计算机中,为用户提供一个比主存储器容量大得多的可随机访问的地。常见的页面置换算法有先来先服务算法(FIFO)，最近最久未使用算法(LＲＵ)和最佳适应算法(OＰT）。 关键字:操作系统；FIFＯ；LＲＵ；OPT；Linux

目录 1 绪论?１ 1．1设计任务 (1) １.2设计思想?1 1.3设计特点?1 1．４基础知识 (2) １．4.1 先进先出置换算法(FIFO)?2 1.4.2最近最久未使用算法（LRU) (3) １.4.３最佳置换算法(OPT) (3) 2 各模块伪代码算法?4 2.1伪代码概念?4 2.２伪代码算法 (4) 2.2.１主函数伪代码算法.............................................. 错误!未定义书签。 ２.２.2延迟时间函数伪代码算法?6 2.2．3 FＩFO算法的伪代码?７ ２.2.4LRU算法的伪代码 (7) 10 2．2.5 OPＴ算法的伪代码? 3 函数调用关系图................................................................................................... １2 3．1函数声明?１2 3.1.１主要算法函数...................................................... 错误!未定义书签。

VB程序设计的常用算法

VB 程序设计的常用算法 算法( Algorithm )：计算机解题的基本思想方法和步骤。算法的描述：是对要解决一个问题或要完成一项任务所采取的方法和步骤的描述，包括需要什么数据(输入什么数据、输出什么结果)、采用什么结构、使用什么语句以及如何安排这些语句等。通常使用自然语言、结构化流程图、伪代码等来描述算法。 一、计数、求和、求阶乘等简单算法 此类问题都要使用循环，要注意根据问题确定循环变量的初值、终值或结束条件，更要注意用来表示计数、和、阶乘的变量的初值。 例：用随机函数产生100 个［0，99］范围内的随机整数，统计个位上的数字分别为1，2，3，4，5，6，7，8，9，0 的数的个数并打印出来。 本题使用数组来处理，用数组a(1 to 100)存放产生的确100个随机整数，数组x(1 to 10)来存放个位上的数字分别为1，2，3，4，5，6，7，8，9，0 的数的个数。即个位是1 的个数存放在x(1) 中，个位是2 的个数存放在x(2)中，...................... 个位是0的个数存放在x(10)。 将程序编写在一个GetTJput过程中，代码如下： Public Sub GetTJput() Dim a(1 To 100) As Integer Dim x(1 To 10) As Integer Dim i As Integer, p As Integer '产生100 个［0，99］范围内的随机整数，每行 1 0个打印出来 For i = 1 To 100 a(i) = Int(Rnd * 100) If a(i) < 10 Then Form1.Print Space(2); a(i);

首次适应算法,最佳适应算法,最坏适应算法源代码[宝典]

首次适应算法,最佳适应算法,最坏适应算法源代码[宝典] 首次适应算法,最佳适应算法,最坏适应算法源代码#include #include #define Free 0 //空闲状态 #define Busy 1 //已用状态 #define OK 1 //完成 #define ERROR 0 //出错 #define MAX_length 640 //最大内存空间为640KBtypedef int Status; int flag; typedef struct freearea//定义一个空闲区说明表结构 { long size; //分区大小 long address; //分区地址 int state; //状态 }ElemType; // 线性表的双向链表存储结构 typedef struct DuLNode { ElemType data; struct DuLNode *prior; //前趋指针 struct DuLNode *next; //后继指针 } DuLNode,*DuLinkList; DuLinkList block_first; //头结点 DuLinkList block_last; //尾结点 Status alloc(int);//内存分配 Status free(int); //内存回收 Status First_fit(int);//首次适应算法 Status Best_fit(int); //最佳适应算法 Status Worst_fit(int); //最差适应算法

void show();//查看分配 Status Initblock();//开创空间表 Status Initblock()//开创带头结点的内存空间链表{ block_first=(DuLinkList)malloc(sizeof(DuLNode)); block_last=(DuLinkList)malloc(sizeof(DuLNode)); block_first->prior=NULL; block_first->next=block_last; block_last->prior=block_first; block_last->next=NULL; block_last->data.address=0; block_last->data.size=MAX_length; block_last->data.state=Free; return OK; } //分配主存 Status alloc(int ch) { int request = 0; cout<<"请输入需要分配的主存大小(单位:KB):"; cin>>request; if(request<0 ||request==0) { cout<<"分配大小不合适，请重试～"<