未分类题

请补充函数fun(),该函数的功能是:把字符下标为非素数的字符从字符串sb中删除,把字符下标为素数的字符重新保存在字符串e口中。字符串sb从键盘输入,其长度作为参数传入函数fun()。
例如,输入“abcdefghijkl”,输出“cdfhl”。
注意:部分源程序给出如下。
请勿改动主函数main和其他函数中的任何内容,仅在函数fun的横线上填入所编写的若干表达式或语句。
试题程序:
include <stdio.h>
define N 80
void fun(char s[],int n)
{
int i, j, k, flag;
【 】;
for(i=0; i<n; i++)
{
if (i>1)
s [k++] =s [i];
flag=I;
for(【 】; j<i&&flag; j++)
if (i%j==0)
{
flag=0;
【 】
}
}
s [k]='/0';
}
main()
{
int i=0, strlen=0;
char str[N];
clrscr ();
printf('/n Input a string:/n');
gets (str);
while (str [i] !='/0')
{
strlen++;
i++;
}
fun (str, strlen);
printf('/n*** display string ***/n');
puts (str);
}

A.h>


【参考答案】

k=0j=2k--
k=0j=2k-- 解析:第一空:变量k声明时没有初始化,所以要在使用前初始化为0。第二空:......

(↓↓↓ 点击下方‘点击查看答案’看完整答案 ↓↓↓)
热门 试题

未分类题
阅读以下说明和Visual Basic代码,填入(n)处。[说明]在一些财务软件中,经常需要将阿拉伯数字的账目转化为汉语习惯中的金额计数方法,例如:“3.45”转化为“叁元四角五分”;“3.4”转化为“叁元四角”;“3.40”转化为“叁元四角零分”;“3.456”转化为“叁元四角五分”;“345.00”转化为“叁百四十五元零角零分”;“345”转化为“叁百四十五元”;以下Visual Basic代码实现了小写金额转换为大写金额。界面如图10-9所示。结合实际例子说明,仔细阅读下面代码,将(n)代码补充完整。[代码7-1]Begin VB.FormForm1Caption = '小写金额转换为大写金额' ...窗体描述(略)Begin VB.CommandButton Command1Caption = '退出' ...窗体描述(略)EndBegin VB.TextBox Text2 ...窗体描述(略)EndBegin VB.TextBox Text1Enabled = 0 'False …窗体描述(略)EndBegin VB.Labe1 Labe12Caption = '转换为大写金额' ...窗体描述(略)EndBegin VB.Labe1 Labe11Caphon = '请输入数字' ...窗体描述(略)EndEnd[代码7-2]Private Function setdata (num As Integer) As String '数字转换Select CaSe numCase 0setdata='零'Case 1Setdata='壹'Case 2Setdata='贰'Case 3Setdata='叁'Case4Setdata='肆'Case 5Setdata='伍'Case 6Setdata='陆'Case 7Setdata='柒'Case 8Setdata='捌'Case 9Setdata='玖'End SelectEnd FunctionPrivate Function chang (aaa As Integer) As String '位数转换Select CaSe aaaCase 1chang=''Case 2chang='十'Case 3chang='百'Case 4chang='千'Case 5chang='万'Case 6chang='十'Case 7chang='百'Case 8chang='千'Case 9chang='亿'Case 10chang='十'End SelectEnd Function[代码7-3]Private Sub Text2_Change ( ) '小写转大写Dim i As IntegerDim j As IntegerDim myint As IntegerDim myint1 As IntegerDim mydoub As DoubleDim mystr As StringDim mystr1 As StringDim mystr2 As StringDim mystr3 As StringDim mystr4 As StringDim money As LongDim money1 As IntegerDim money2 As Longmystr=Text2.Textmyint=InStr (mystr, '.')If myint=0 Thenmystr=Text2.TextElsemystr3=Right(Text2.Text, Len (Text2.Text ) - myint)If mystr3<>''Then '转换小数位mystr4=Left(mystr3, 1)mystr3=Right(mystr3, Len(mystr3 )