主观

阅读以下说明和流程图,回答问题1~2,将解答填入答题纸对应的解答栏内。

[说明]

 给定一个十进制整数A,将其转换为R进制数的方法是:将A的整数部分逐次除以R,直到商等于0为止,将所得的余数由低位到高位排列在一起,就得到了对应R的进制数。以A=11,R=2为例,11÷2=5…1,5÷2=2…1,2÷2=1…0,1÷2=0…1中各式的余数依次为:1,1,0,1,于是与A对应的二进制数为1011。

 下面的流程图实现了将十进制数2597转换为八进制数的功能,其中:

 (1)循环1执行除法运算并将余数依次记录在数组a中(假定数组长度足够长),如a[1], a[2],……,a[k];

  (2)循环2则用于将这些余数按逆序输出,即a[k],a[k-1],……,a[1];

 (3)图中i,j分别是循环1和循环2中的循环变量;

 (4)图中q用于记录每次除法所得的商值。

[流程图]

[问题1]

 将流程图中的(1)~(4)处补充完整,其中(1)~(3)处要求使用C语言格式书写:(1)处为逻辑表达式,(2)、(3)两处为算术表达式;(4)则须按照“循环变量名:循环初值,循环终值,增量”格式描述。

[问题2]该算法运行的结果(5)。

参考答案
您可能感兴趣的试题

阅读以下说明和Visual Basic代码,将应填入(n)处的字句写在对应栏内。

[说明]

 本程序实现的功能是查看磁盘上的图片及其基本信息。程序运行界面如下图所示,用户只要逐步选择适当的驱动器、目录和图片文件,图片内容随即显示在界面中央,文件的基本信息则呈现于右侧文本框中。用户还可以删除或复制选中的图片文件。

    

 在开发过程中,驱动器列表框名为Drivel,目录列表框名为Dir1,文件列表框名为File1,图片的显示由Image控件对象Image1来实现,文件信息文本框名为Text1,按钮“删除文件”和“复制到…”分别名为CmdDel和CmdCpy。

[Visual Basic代码]

Dim filename As String

Dim fso As New (1), file As file

Private Sub Form_Load()

  Set fso = CreateObject("Scripting.FileSystemObject")

  Drivel.Drive = "F:"

End Sub

Private Sub Dir1_Change()

 File1.path=Dirl.path    ’更新文件列表框的路径

End Sub

Private Sub Drive1_Change()

  Dir1.path =(2)      ’更新目录列表框的路径

End Sub

Private Sub File1_Click()’文件列表框的单击事件响应代码

 If Right(Dir1.path, 1) <>"\" Then

    filename = Dir1.path & "\" & Filel.filename

 Else

    filename = Dir1.path & Filel.filename

 End If

 Image1.Picture =(3) 

 Set file = fso.GetFile(filename)

 Text1. Text = "文件名称:" & file.Name & vbCrLf & _

        "文件大小:" & file. Size & "字节" & vbCrLf & _

       "文件类型:" & file.Type & vbCrLf & _

       "创建日期:" & file. DateCreated & vbCrLf & _

       "修改日期:" & file. DateLastModified

End Sub

Private Sub CmdCpy_Chck()’按钮“复制到…”的单击事件响应代码

 Dim path As String

 path = InputBox("请输入目标路径(含文件名):")

  (4) 

End Sub

Private Sub CmdDel_Click()’按钮“删除文件”的单击事件响应代码

  (5) 

End Sub

阅读下列说明和Visual Basic代码,将应填入(n)处的字句写在对应栏内。

[说明]

 某小型家电超市开发了下面的程序,用以实现商品提货信息的汇总和输出功能。程序的运行界面如下图所示:

    

 程序界面包含两个控件数组,分别是提货商品复选框控件数组Check1以及提货数量文本框控件数组Text1(相同下标的复选框和文本框相对应),提货清单的显示由List控件实现,按钮“打印清单”和“清除”分别名为Command1和Command2。

[Visual Basic代码]

’提货商品复选框的单击事件响应代码

Private Sub Check1_Click(Index As Integer)

If Check1 (Index). Value = 1 Then (1). SetFocus

End Sub

’按钮“打印清单”的单击事件响应代码

Private Sub Command1_Click()

  Dim i, n, price As Integer, sum As Long, title As String

  sum = 0

  For i = O To 4

       Select Case i

          Case 0:  title ="电视机":  price = 3580

          Case 1:  title ="微波炉":  price = 660

          Case 2:  title ="电冰箱":  price = 1850

          Case 3:  title ="DVD":   price = 2880

          Case 4:  title ="空调":   price = 2500

      End Select

  If (2)= 1 And Textl(i). Text < > " " Then

      (3) title & Text1(i).Text & "台"

  n = n + Val(Textl(i))

  sum =(4) 

  End If

  Next i

  If sum < > 0 Then

    (3) "共:" & n &"台," &"合计金额:"& sum &"元。"

 End If

End Sub

’按钮“清除”的单击事件响应代码

Private Sub Command2_Click()

  (5) 

End Sub

¥

订单号:

遇到问题请联系在线客服

订单号:

遇到问题请联系在线客服