2002下C上机题之八门式起重机

2002下C上机题之八

2002下C上机题之八 2011： 程序修改

code: /* 给定程序MODI1.C中 fun 函数的功能是: 传入一个整数m，计 算如下公式的值。 1 1 1 t = 1 - ----- - ----- - …… - ----- 2 3 m 例如，若输入5，则应输出 -0.283333。 请改正函数fun中的错误或在横线处填上适当的内容并把横线删 除, 使它能计算出正确的结果。 注意：不要改动 main 函数，不得增行或删行，也不得更改程序 的结构！ */ #include #include double fun( int m ) { double t = 1.0; int i; for( i = 2; i <= m; i++ ) /**********found**********/ t-=1.0/i; //t = 1.0-1 /i; /**********found**********/ return t; //_______; }

main() { int m ; clrscr(); printf( "\nPlease enter 1 integer numbers:\n" ); scanf( "%d", &m); printf( "\n\nThe result is %lf\n", fun( m ) ); NONO(); }

NONO( ) { /* 请在此函数内打开文件，输入测试数据，调用 fun 函数，输出数据，关闭文件。 */ int n, j ; FILE *rf, *wf ;

rf = fopen("g08.in", "r") ; wf = fopen("g08.out", "w") ; for(j=1 ; j<=10;j++) { fscanf(rf, "%d", &n) ; fprintf( wf, "%lf\n", fun ( n ) ); } fclose(rf) ; fclose(wf) ; }

g08.in 文件内容如下： 11 76 17 9 21 8 34 81 65 45 g08.out 文件内容应当如下： -1.019877 -2.914514 -1.439553 -0.828968 -1.645359 -0.717857 -2.118210 -2.977825 -2.759276 -2.394948

Test99编程题

code: /* 请编写一个函数，用来删除字符串中的所有空格。 例如,输入"asd af aa z67", 则输出为 "asdafaaz67"。 注意：部分源程序在文件PROG1.C中。 请勿改动主函数main和其它函数中的任何内容， 仅在函数fun 的花括号中填入你编写的若干语句。 */ #include #include #include

int fun(char *str) {/**/ char *p=str; for(; *str; str++) if(*str!=' ') *p++=*str; *p='\0'; /**/ }

main() { char str[81]; int n;

clrscr() ; printf("Input a string:") ; gets(str); puts(str); fun(str); printf("*** str: %s\n",str); NONO(); }

NONO() { /* 请在此函数内打开文件，输入调试数据，调用 fun 函数， 输出数据，关闭文件。 */ char str[81]; int n = 0; FILE *rf, *wf ;

rf = fopen("b0803.in", "r") ; wf = fopen("b0803.out", "w") ; while(n < 10) { fgets(str, 80, rf); fun(str); fprintf(wf, "%s", str) ; n++ ; } fclose(rf) ; fclose(wf) ; }

b0803.in 文件内容如下： jhfjdkhjdhfjhfjdkh f ljsd sdj dskj lds klsdj d sd sdj ds lds .

fdshfds fjskdhfksd fsjklfs fsdjlkfjsd lsj flgf llsdkjfsld fdfds lfkdjs. sjdhfdsf sfsd fdskf fhdsk fdsjkfdjkfh dsjkfds fds fdjshfdjs fdsjf sd jfdshfjds fskdjhfkjsd dsjhf dsk fsdf sdkfsd fsd fdskf dskjfh sdkf d fdsjhfsd fdsf dsjfhdsf dskf dsf sdkf dsjf dsf dsjkf dsf dsf dsfdsjk gj fjkfdjs dh fsjdkfh sdf dskf dskf dskfh skf dskf dskfh sdk fdskj sdkj sd jkfdsf s fsdf sd sdfs dl fds f sl slf sdlf sdlf slf s fsd fsdl fsfsd fsdjkhfdsk fdskhfksd ffshkjsdf fsdkjhfskd fsfd skdf sdkf kfsdhfks d fdshfks fdsf dsfhdsk fds fdskfhskdf sdkf sdk fsdkf ds fsdk fskd fsk fs jkdshfkjds fds kjdshfjksd f fksdhfjkds fsdkfhsd fs fkds fskdf sfjkdfjsd b0803.out 文件内容应当如下： jhfjdkhjdhfjhfjdkhfljsdsdjdskjldsklsdjdsdsdjdslds. fdshfdsfjskdhfksdfsjklfsfsdjlkfjsdlsjflgfllsdkjfsldfdfdslfkdjs.

sjdhfdsfsfsdfdskffhdskfdsjkfdjkfhdsjkfdsfdsfdjshfdjsfdsjfsd jfdshfjdsfskdjhfkjsddsjhfdskfsdfsdkfsdfsdfdskfdskjfhsdkfd fdsjhfsdfdsfdsjfhdsfdskfdsfsdkfdsjfdsfdsjkfdsfdsfdsfdsjkgj fjkfdjsdhfsjdkfhsdfdskfdskfdskfhskfdskfdskfhsdkfdskjsdkjsd jkfdsfsfsdfsdsdfsdlfdsfslslfsdlfsdlfslfsfsdfsdlfsfsd fsdjkhfdskfdskhfksdffshkjsdffsdkjhfskdfsfdskdfsdkfkfsdhfksd fdshfksfdsfdsfhdskfdsfdskfhskdfsdkfsdkfsdkfdsfsdkfskdfskfs jkdshfkjdsfdskjdshfjksdffksdhfjkdsfsdkfhsdfsfkdsfskdfsfjkdfjsd

var arrBaidu

成都阳痿医院

大连妇产医院口碑怎么样

丽江检查不孕不育多少钱

濮阳哪家看男科比较好

济南专业看白癜风医院