C語言求同構(gòu)數(shù)_第1頁
C語言求同構(gòu)數(shù)_第2頁
C語言求同構(gòu)數(shù)_第3頁
已閱讀5頁,還剩3頁未讀, 繼續(xù)免費(fèi)閱讀

下載本文檔

版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡介

1、C語言求同構(gòu)數(shù):求指定區(qū)間內(nèi)的同構(gòu)數(shù)#i nclude<stdio.h>#i nclude<stdlib.h>#i nclude<stri ng.h>char *right(char *ms,i nt len);void mai n()long a;int len;char as10;char ms20;prin tf("求1,10000中 的同構(gòu)數(shù):n");for(a=1;a<=10000;a+)ultoale n=strle n( as);ultoa(a*a,ms,10);if(strcmp(as,right(ms,le n)=

2、0)(a,as,10);printf("%s 其平方為 %sn",as,ms);char *right(char *ms,i nt len)int i,j;for(i=0;i<(sig ned)strle n( ms);ms+);for(j=0;j<le n;j+,ms-);return ms;c語言輸出從m到n的孿生素?cái)?shù)對(duì)#in elude <stdio.h>#in elude <math.h>int prime(int n) int i;if(n<2)return 0;for(i=2;i<=sqrt (n );i+)if(

3、n %i=0)return 0;return 1;void mai n() int i,m,n;prin tf("m:");sea nf("%d",&m);prin tf(" n:");sea nf("%d",&n);for(i=m;i<=n-2;i+)if(prime(i) && prime(i+2)prin tf("%d,%dn",i,i+2);_lc語言折半查找法#i nclude <stdio.h>#in clude <stri n

4、g.h>void mai n()int cz(i nt a,i nt x,i nt y,i nt c);in t gh10 = 1,2, 3, 4, 5, 6, 7, 8, 9, 10; int h,w;scan f("%d", &h);w = cz(h, 0, 9, gh);if (w != -1)prin tf("%d", ghw);elseprintf("沒找到 n"); getch();int cz(i nt a,i nt x,i nt y,i nt c)int m;if (x > y) return -1

5、;m = (x + y) / 2;if (a = cm)return m;if (a < cm)return (cz(a, x, m-1, c);elsereturn (cz(a, m+1, y, c);c語言程序計(jì)算1500之間的全部“同構(gòu)數(shù)”之和。#in clude<stdio.h>void mai n()int n, he=O,a=O; double pingfang;for(n=4;n <10 ;n+)pingfang=n*n;if(p in gfa ng-n)%10=0)prin tf("%5d", n);he+=n;a+;if(a%5=0

6、)pingfang=n*n;if(p in gfa ng-n)/100=0)prin tf("%5d", n); he+=n;a+;if(a%5=0)prin tf("n");for(n=100; n<=500; n+)pingfang=n*n;if(p in gfa ng-n )/1000=0) prin tf("%5d", n); he+=n;a+;if(a%5=0)prin tf("n");printf("1到500之間所有的同構(gòu)數(shù)之和為:5dn",he);用C語言驗(yàn)證歌德巴赫猜想(

7、任何充分大的偶數(shù)都可以由兩個(gè)素?cái)?shù)之和表示)#i nclude<stdio.h>int f(i nt n)int i;for(i=2;i <n ;i+)if(n %i=0)return 0;return 1;int main() int nu m,i,a,b,co un t=1;printf("請(qǐng)輸入一個(gè)不小于6的偶數(shù):n");sca nf("%d",&nu m);for(i=1;i<=num /2;i+)a=i;b=nu m-i;if(f(a)=1 &&f(b)=1)if(cou nt%5=0)prin t

8、f("n");coun t+;printf("這個(gè)數(shù)可以為%d,%d組成.n",a,b);return 0;找出一個(gè)數(shù)組中的最大值和最小值#i nclude<stdio.h>void mai n()int a88=0;int l,r,i,j,mi n=65535,max=-65536;prin tf("i nput line nu mber:");sca nf("%d",&l);prin tf("i nput colu mn nu mber:");sca nf("%d",&r);printf("input the array:'n");for(i=0;i<l;i+)for(j=0;j<r;j+)sca nf("%d",&aij);if(aij>max) max=aij;01100)6 二+rL 土-u 至-=5p&HA-p&HX-p&H£l/L)£&

溫馨提示

  • 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

最新文檔

評(píng)論

0/150

提交評(píng)論