Baỡi tỏỷp Tin hoỹc aỷi cổồng 57 Phỏửn IV : CHặNG TRầNH CON 1. Vióỳt chổồng trỗnh(duỡng chổồng trỗnh con laỡ haỡm)õóứ tờnh !5 5 x - + (-1) n 21 21 n x n () S= Sin(x) = x - !3 x 3 + ! * Thuỏỷt toaùn: Thuỏỷt toaùn nhổ baỡi ồớ phỏửn III nhổng vióỳt laỷi chổồng trỗnh con g trỗnh dổồùi daỷng haỡm. * Chổồn nio.h> tdio.h> 0.000000000001 at x); at x; ("%f",&x); m=%f\n",tinh(x)); sin(x)); inh(float x) eo while*/ */ s=0; ile (fabs(a)>=epsilon) { s+=a; i=i+2; return s; + #include <co #include <s #include <math.h> #define epsilon float tinh(flo main() { clrscr(); flo printf("nhap x="); scanf x=x*M_PI/180; printf(" ket qua theo ha printf(" ket qua theo ham chuan=%f\n", getch(); } float t { float a,s,i; /* Tinh th /* a=x; i=3; wh a=a*(-(x*x/(i*(i-1)))); } } Nguyóựn Vn Nguyón- Khoa CNTT-TVT aỷi hoỹc Baùch Khoa aỡ Nụng Baỡi tỏỷp Tin hoỹc aỷi cổồng 58 2. Vióỳt chổồng trỗnh(duỡng chổồng trỗnh con laỡ haỡm)õóứ tờnh !2 2 x + !4 4 x - + (-1) n )!2( 2n n x S = Cos(x) = 1 - * Thuỏỷt toaùn: Thuỏỷt toaùn nhổ baỡi ồớ phỏửn III nhổng vióỳt laỷi chổồng trỗnh con dổồùi daỷng haỡm. * Chổồng trỗnh #include <conio.h> dio.h> ath.h> .000000000001 x); ntf("nhap x="); _PI/180; theo ham=%f\n",tinh(x)); m chuan=%f\n",cos(x)); s,i; */ =2; s=0; a)>=epsilon) s+=a; i=i+2; Vióỳt chổồng trỗnh laỡ haỡmõóứ tờnh #include <st #include <m #define epsilon 0 float tinh(float main() { clrscr(); float x; pri scanf("%f",&x); x=x*M printf(" ket qua printf(" ket qua theo ha getch(); } float tinh(float x) { float a, /* Tinh theo while*/ /* 1; i a= while (fabs( { a=a*(-(x*x/(i*(i-1)))); } return s; } 3. S = Sh(x) = x + 3 3 x ! + 5 x 5! + + 21n x + + 21n +()! + . . . Nguyóựn Vn Nguyón- Khoa CNTT-TVT aỷi hoỹc Baùch Khoa aỡ Nụng Baỡi tỏỷp Tin hoỹc aỷi cổồng 59 Thuỏỷt toaùn: Thuỏỷt toaùn nhổ baỡi ồớ phỏửn III nhổng vióỳt laỷi chổồng trỗnh con g trỗnh dổồùi daỷng haỡm. * Chổồn nio.h> o.h> shx=(exp(x)-1/exp(x))/2; am=%f\n",tinh(x)); m chuan=%f\n",shx); */ x; i=3; s=0; a)>=epsilon) a (i-1))); i=i+2; return s; nh (coù duỡng chổồng trỗnh con) tờnh S = ch(x) = 1 + # clude <co #include <st in di #include <math.h> #define epsilon 0.000000000001 float tinh(float x); main() { clrscr(); float x,shx; printf("nhap x="); scanf("%f",&x); printf(" ket qua theo h printf(" ket qua theo ha getch(); } float tinh(float x) { float a,s,i; /* Tinh theo while*/ /* a= while (fabs( { s+=a; =a*(x*x/(i* } } 4. Vióỳt chổồng trỗ xx x n n24 2 24 2!! ()! +++ Thuỏỷt toaùn: uỏỷt toaùn nhổ baỡi ồớ phỏửn III nhổng vióỳt laỷi chổồng trỗnh con + Th dổồùi daỷng haỡm. Nguyóựn Vn Nguyón- Khoa CNTT-TVT aỷi hoỹc Baùch Khoa aỡ Nụng Baỡi tỏỷp Tin hoỹc aỷi cổồng 60 * Chổồng trỗnh #include <conio.h> dio.h> h> .000000000001 at x,chx; ("%f",&x); chx=(exp(x)+1/exp(x))/2; theo ham=%f\n",tinh(x)); m chuan=%f\n",chx); s,i; */ 1; i=2; s=0; a)>=epsilon) { s+=a; } ứm tra sọỳ nguyón n coù phaới laỡ sọỳ chờnh phổồng #include <st #include <math. #define epsilon 0 float tinh(float x); main() { clrscr(); flo printf("nhap x="); scanf printf(" ket qua printf(" ket qua theo ha getch(); } float tinh(float x) { float a, /* Tinh theo while*/ /* a= while (fabs( a=a*(x*x/(i*(i-1))); i=i+2; return s; } 5. Vióỳt mọỹt haỡm kió khọng ?. * Thuỏỷt toaùn: = 0; begin break; laỡ sọỳ chờnh phổồng khọng phaới sọỳ chờnh phổồng + gaùn OK + cho i=1; i<=(int)sqrt(n); if (i*i == n) OK = 1; end; + Nóỳu (OK) vióỳt n Ngổồỹc laỷi vióỳt n Nguyóựn Vn Nguyón- Khoa CNTT-TVT aỷi hoỹc Baùch Khoa aỡ Nụng Baỡi tỏỷp Tin hoỹc aỷi cổồng 61 * Chổồng trỗnh clude <stdio.h> ath.h> emtra(int n); rscr(); a so chinh phuong*/ n; ) i, OK = 0; ight by Nguyen Van Nguyen -Khoa CNTT-DHKT"); ap gia tri N : "); ("%d", &n); i<=(int)sqrt(n); i++) break; } hinh phuong", n); printf("\nSo %d khong phai chinh phuong", n); 6. yón x,y,z coù phaới laỡ bọỹ ba sọỳ Pi * #in #include <m #include <conio.h> void ki main() { cl /* chuong trinh kiem tr int kiemtra(n); getch(); } void kiemtra (int n { clrscr(); int printf("Copyr printf("\nNh scanf for (i=1; if (i*i == n) { OK = 1; if (OK) printf("\nSo %d la so c else } Vióỳt mọỹt haỡm kióứm tra 3 sọỳ ngu thago khọng (x 2 +y 2 =z 2 ). Thuỏỷt toaùn: x,y,z:Real):Boolean; Nóỳu (sqr(x) +sqr(y)=sqr(z)) (z)=sqr(y)) (z)=sqr(x)) thỗ kiemtra:=True a:=False; Taỷo haỡm Kiemtra( hoỷc (sqr(x) +sqr hoỷc(sqr(y) +sqr ngổoỹc laỷi Kiemtr Nguyóựn Vn Nguyón- Khoa CNTT-TVT aỷi hoỹc Baùch Khoa aỡ Nụng Baỡi tỏỷp Tin hoỹc aỷi cổồng 62 * Chổồng trỗnh # include <stdio.h> #include <math.h> o.h> x*x KT(int x,int y,int z) kiemtra; r(x)+sqr(y)==sqr(z))||(sqr(x)+sqr(z)==sqr(y))|| )==sqr(x))) kiemtra=TRUE;else kiemtra=FALSE; t; ntf("Nhap 3 so a, b, c"); anf("%d%d%d",&a,&b,&c); printf(" Day la bo ba cua Pithago"); se printf(" Day khong phai bo ba cua Pithago"); a caùc sọỳ nguyón x,y,z laỡ bọỹ ba sọỳ Pithago Chổồng trỗnh #include <coni #define TRUE 1 #define FALSE 0 #define sqr(x) int { int if ((sq (sqr(y)+sqr(z return kiemtra; } main() { clrscr; int a,b,c, pri sc t=KT(a,b,c); if (t==TRUE) el getch(); } 7. Vióỳt mọỹt haỡm in r 2 2 2 (x +y =z ). * onio.h> (); ; #include <math.h> #include <stdio.h> #include <c void main() { clrscr(); textbackground(GREEN); textcolor(BLUE); clrscr long x, y, z, dem; dem=0 Nguyóựn Vn Nguyón- Khoa CNTT-TVT aỷi hoỹc Baùch Khoa aỡ Nụng Baỡi tỏỷp Tin hoỹc aỷi cổồng 63 for (x=1; x<=25; x++) = sqrt(x*x+y*y); dem++ ; printf("\n%6ld %6ld %6ld", x, y, z); } dinh ly Pitago", dem); 8. mọỹt haỡm kióứm tra õọỳi sọỳ nguyón dổồng n coù bũng tọứng lỏỷ hổợ sọỳ cuớa noù khọng. Vờ 153 = 1 + 5 3 + 3 3 * for (y=1; y<=25; y++) { z if (z*z == x*x + y*y) { } printf("\n Bo so la %ld so thoa man getch(); } Vióỳt p phổồng caùc c 3 duỷ : Thuỏỷt toaùn: + uong ,i,t m = n mod 10; tam*tam; Taỷo haỡm TongLapPh Khai baùo caùc bióỳn tam, sum3 Gaùn i=0; sum3=0; laỡm Gaùn i=i+1; ta sum3= sum3 + tam* n= n div 10; Chổỡng naỡo n>0; Haỡm traớ vóử =sum3; * Chổồng trỗnh io.h> h> gLapPhuong(int n); apPhuong (int n) ,tam; i++; n%10; sum3=sum3+tam*tam*tam; #include <std #include <math.h> #include <conio. int Ton int TongL { clrscr(); int sum3,i i=0; sum3=0; do { tam= Nguyóựn Vn Nguyón- Khoa CNTT-TVT aỷi hoỹc Baùch Khoa aỡ Nụng Baỡi tỏỷp Tin hoỹc aỷi cổồng 64 Nguyóựn Vn Nguyón- Khoa CNTT-TVT aỷi hoỹc Baùch Khoa aỡ Nụng k n kk CCC 1 1 += 1 0 == n nn CC a. vồùi nn 1 ,&n); r=n; t=TongLapPhuong(n); /*Co tong lap phuong cac chu so :TLPCCS*/ if (t==stor) printf("%d Co TLPCCS bang chinh no");else getch(); } Vió tờnh tọứ hồỹp n chỏỷp k In kóỳt quaớ cuớa cỏu a vaỡ b. n=n/10; } while (n>0); return sum3; } main() { clrscr(); int n; int t,stor; printf(" nhap so nguyen N="); scanf("%d" sto printf("khong thoa man dk"); 9. ỳt 2 haỡm õóứ b. )!!*( knk ! n C k n = c. * Chổồng trỗnh 1(int n, int k) ||(k==n)) ketqua=1; else ketqua=Th1(n-1,k-1)+Th1(n-1,k); qua; rintf("\nCopyright by Nguyen van Nguyen khoa CNTT "); a tri N va K : "); canf("%d%d", &n, &k); # include <conio.h> #include <stdio.h> int Th { int ketqua; if ((k==0) return ket } long TOHOP(int k, int n); /* Chuong trinh tinh to hop cua n chap k*/ void main() { int n, k; clrscr(); p printf("\nNhap vao gi s Baỡi tỏỷp Tin hoỹc aỷi cổồng 65 printf("Top hop chap %d cua %d = %lu\n", k, n, TOHOP(k, n)); o hop theo cach de quy=%d",Th1(n,k)); n) int i; Result *= i; return Result; { } ứ tờnh tọứng S Chổồng trỗnh printf("T getch(); } long giaithua(int { long Result = 1; for (i=2; i<=n; i++) } long TOHOP(int k, int n) return giaithua(n) / (giaithua(k) * giaithua(n-k)); 10. Haợy vióỳt 1 haỡm õóỷ quy õó n aa a S 1 11 2 +++= * stdio.h> <math.h> Tong(int n,float x) qua; t=1; =1;i<=n;i++) t=t*x; /t+Tong(n-1,x); qua; #include < #include #include <conio.h> float { float ket float t; int i; if (n==0) ketqua=1; else { for(i ketqua=1 } return ket } main() { clrscr(); Nguyóựn Vn Nguyón- Khoa CNTT-TVT aỷi hoỹc Baùch Khoa aỡ Nụng Baỡi tỏỷp Tin hoỹc aỷi cổồng 66 float a; int i,n; printf("nhap a="); scanf("%f",&a); scanf("%d",&n); getch(); 11. aỡm khaùc goỹi noù vaoỡ õóứ tờnh tọứng S * printf("nhap n="); printf(" ket qua theo ham=%3f",Tong(n,a)); } Haợy vióỳt 1 haỡm õóỷ quy õóứ tờnh a i , rọửi vióỳt mọỹt haỡm goỹi h n aa a 2 S = 1 11 +++ Thuỏỷt toaùn: + Coù thóứ khai baùo caùc bióỳn toaỡn cuỷc guyón THUA(x:kióứu thổỷc,n:kióứu nguyón) t=x*lt(x,n-1); ); caùc bióỳn õởa phổồng s1,t1:kióứu thổỷc,i:kióứu nguyón Cho i=1 õóỳn n laỡm /lt(x,i); ỗnh chờnh a); ổồng trỗnh a:kióứu thổỷc n:kióứu n + Taỷo haỡm tờnh a muợ lUY Nóỳu (n==0) thỗ lt=1 Ngổồỹc laỷi l + Taỷo haỡm TINH(n:byte;x:real Khai baùo Gaùn s1=1; Gaùn s1:=s1+1 Vióỳt s1 + Trong chổồng tr oỹc n,a Goỹi haỡm TINH(n, * Ch .h> ude <conio.h> 0) Lt=1; else Lt=x*LUYTHUA(x,n-1); t TINH(int n, float x) #include <stdio.h> #include <math #incl float LUYTHUA(float x,int n) { float Lt; if (n== return Lt; } floa { Nguyóựn Vn Nguyón- Khoa CNTT-TVT aỷi hoỹc Baùch Khoa aỡ Nụng [...]... -* / float TinhCan(float x,float n) { float y0,y,can; if (x==0) can=0; else { y0=x; do { y=y0; y0=1/n*((n-1)*y+x/X_Mu(y,n-1)); } while (fabs(y-y0)>epsilon); can=(y+y0)/2; } return can; } float tong(float n) { float t=1; int i; for(i=2;i b) a -= b; else b -= a; if (a == 0) return b; else return a; } /* -* / int BSCNN(int a, int b) { return a * b / USCLN(a, b); } /* -* /... for(j=t-1;j>i;j ) if (a[i]>a[j]){ tam=a[i]; a[i]=a[j]; a[j]=tam; } } /* */ Nguyóựn Vn Nguyón- Khoa CNTT-TVT aỷi hoỹc Baùch Khoa aỡ Nụng Baỡi tỏỷp Tin hoỹc aỷi cổồng int karprekar(n) { int i; long x=0,y=0; Modulo(n); sort(); for(i=0;i0){ t=n%10; s+=gt(t); Nguyóựn Vn Nguyón- Khoa CNTT-TVT aỷi hoỹc Baùch Khoa aỡ Nụng 78 Baỡi tỏỷp Tin hoỹc aỷi cổồng n=n/10; } if (s==m) printf("so can tim"); else printf("khong phai la so can tim"); getch(); } int gt(int n) { if (n==0||n==1) return 1; else return n*gt(n-1); } Nguyóựn Vn Nguyón- Khoa CNTT-TVT aỷi hoỹc Baùch Khoa aỡ Nụng 79 ... #include #include float hamdequy(int n) { int t; float ketqua; if (n==0) ketqua=0; else { t=2*n-1; ketqua=1/exp(t*log(t))+hamdequy(n-1); } return ketqua; } main() { clrscr(); int n; printf("Nhap n="); Nguyóựn Vn Nguyón- Khoa CNTT-TVT aỷi hoỹc Baùch Khoa aỡ Nụng 69 Baỡi tỏỷp Tin hoỹc aỷi cổồng 70 scanf("%d",&n); printf("Ket qua=%f ",hamdequy(n)); getch(); } 14 Haợy vióỳt 1 haỡm õóỷ quy... else { y=exp(1/n*log(n)); Nguyóựn Vn Nguyón- Khoa CNTT-TVT aỷi hoỹc Baùch Khoa aỡ Nụng 68 Baỡi tỏỷp Tin hoỹc aỷi cổồng kq=n/y+tongdq(n-1); } return kq; } main() { clrscr(); float n; float x; printf("nhap n="); scanf("%f",&n); printf(" ket qua tinh can bac n cua nla=%f\n",TinhCan(n,n)); printf(" ket qua tinh can bac n cua n theo ham chuan=%f\n",exp(1/n*log(n))); printf(" Theo tong lap =%f\n",tong(n));... cua %d va %d = %u", a, b, BSCNN(a,b)); getch(); } 16 Haợy vióỳt 1 chổồng trỗnh nhỏỷp 1 sọỳ nguyón tổỡ baỡn phờm vaỡ õọứi sọỳ nguyón õoù ra cồ sọỳ bỏỳt kyỡ( 2-1 6) Chổồng trỗnh Nguyóựn Vn Nguyón- Khoa CNTT-TVT aỷi hoỹc Baùch Khoa aỡ Nụng 71 Baỡi tỏỷp Tin hoỹc aỷi cổồng 72 #include #include #include void doics(int s,int cs) { int i=1; int gt[]={0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15};... H=XOR(A,B); printf("\n\t%d\t%d\t%d\t%d\t%d\t%d\t%d\t%d",A,B,C,D,E,F,G,H); } } 19.Sọỳ n laỡ sọỳ Kaprekar nóỳu n=a-b,trong õoù a phaùt sinh tổỡ n bũng caùch sừp xóỳp caùc chổợ sọỳ theo thổù tổỷ giaớm dỏửn;b phaùt sinh tổỡ n Nguyóựn Vn Nguyón- Khoa CNTT-TVT aỷi hoỹc Baùch Khoa aỡ Nụng Baỡi tỏỷp Tin hoỹc aỷi cổồng 76 theo thổù tổỷ tng dỏửn Vióỳt chổồng trỗnh lióỷt kó caùc sọỳ Kaprekar nhoớ hồn 1 trióỷu Chổồng... do { ch=getch(); }while(ch!=13 && ch!=27); if(ch==13) goto tt; return(0); } /* */ int AND(int x,int y) { return(x&&y); } /* */ Nguyóựn Vn Nguyón- Khoa CNTT-TVT aỷi hoỹc Baùch Khoa aỡ Nụng Baỡi tỏỷp Tin hoỹc aỷi cổồng 75 int OR(int x,int y) { return(x||y); } /* */ int NOR(int x,int y) { return(!(x||y)); } /* */ int NAND(int x,int y) { return(!(x&&y)); . t { float a,s,i; /* Tinh th /* a=x; i=3; wh a=a* (-( x*x/(i*(i-1)))); } } Nguyóựn Vn Nguyón- Khoa CNTT-TVT aỷi hoỹc Baùch Khoa aỡ Nụng Baỡi tỏỷp Tin hoỹc aỷi cổồng 58 2 Vàn Nguyãn- Khoa CNTT-ÂTVT Âaûi hoüc Baïch Khoa Âaì Nàông Baỡi tỏỷp Tin hoỹc aỷi cổồng 69 kq=n/y+tongdq(n-1); q; ,&n); ntf(" ket qua tinh can bac n cua nla=%f ",TinhCan(n,n));. sum3=0; do { tam= Nguyóựn Vn Nguyón- Khoa CNTT-TVT aỷi hoỹc Baùch Khoa aỡ Nụng Baỡi tỏỷp Tin hoỹc aỷi cổồng 64 Nguyóựn Vn Nguyón- Khoa CNTT-TVT aỷi hoỹc Baùch Khoa aỡ Nụng k n kk CCC 1 1 += 1 0 == n nn CC