Baỡi tỏỷp Tin hoỹc aỷi cổồng 52 while (fabs(a1)>=epsilon) { s1+=a1; a1=a1*(-(x*x/(i*(i-1)))); +2; */ o do while*/ do }while (fabs(a2)>=epsilon); printf("Ket qua theo while =%f\n", s1); a o l %f\n", s2); theo ham chuan=%f",cos(x)); i=i } /* /* Tinh the s2=0; a2=1;k=2; { s2+=a2; a2=a2*(-(x*x/(k*(k-1)))); k=k+2; printf("Ket qu the do whi e = printf("ket qua getch(); } tờnh 27. Vióỳt chổồng trỗnh S = Sh(x) = x + 3 3! x + 5 x + 21 21 n x n + +() 5! + ! * Thuỏỷt toaùn: + coù hũng epsilon + Kha ,sh + Nhỏ aỡn phờm. /exp(x))/2 Chổỡng naỡo a >=eps lam a=a*(x*x/(i*(i-1))); haỡm chuỏứn õóứ so saùnh. ỗnh thóứ khai i baùo caùc bióỳn s,x,a,i ỷp x tổỡ b + Gaùn sh=(exp(x) -1 + Gaùn s=0; a=x; i=3; + s=s+a; i=i+2; + Vióỳt kóỳt quaớ s. + Vióỳt kóỳt quaớ theo * Chổồng tr io.h> 0.00000000000001 + #include <std #include <conio.h> #include <math.h> #define epsilon void main() { 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 53 clrscr(); float s1,s2,x,a1,a2,i,k,shx; f(" Nhap x="); &x); -1/(exp(x)))/2; o while*/ */ =a1*(x*x/(i*(i-1))); +2; */ o do while*/ x/(k*(k-1))); k=k+2; n); pri a theo while %f\n", s1); pri a theo do hile =%f\n", s2); theo ham chuan=%f",shx); print scanf("%f", s1=0; a1=x;i=3;shx=(exp(x) /* Tinh the /* while (fabs(a1)>=epsilon) { s1+=a1; a1 i=i } /* /* Tinh the s2=0; a2=x;k=3; do { s2+=a2; a2=a2*(x* }while (fabs(a2)>=epsilo ntf("Ket qu = ntf("Ket qu w printf("ket qua getch(); } tờnh 28. Vióỳt chổồng trỗnh S = ch(x) = 1 + xx x n2 +++ 24 n 2()!24!! * Thuỏỷt toaùn: + coù hũng epsilon + Kha ,ch + Nhỏ aỡn phờm. /exp(x))/2 lam s=s+a; 1))); saùnh. ỗnh thóứ khai i baùo caùc bióỳn s,x,a,i ỷp x tổỡ b + Gaùn ch=(exp(x) +1 + Gaùn s=0; a=1; i=2; + Chổỡng naỡo a>=eps a=a*(x*x/(i*(i- i=i+2; + Vióỳt kóỳt quaớ s. + Vióỳt kóỳt quaớ theo haỡm chuỏứn õóứ so * Chổồng tr io.h> + #include <std 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 54 #include <conio.h> 0000000001 ; f(" Nhap x="); &x); x)+1/exp(x))/2;; o while*/ */ =a1*(x*x/(i*(i-1))); +2; */ o do while*/ do }while (fabs(a2)>=epsilon); =%f\n", s1); . Sồ õọử Horner õóứ tờnh õa thổùc P(x) = a n x n + a n-1 x n-1 + + a 1 x + (a 1 +(a 2 + ( n .)x)x. Vióỳt chổồng trỗnh nhỏỷp ỳ õa thổùc a 0 ,a 1 , ,a n vaỡ x rọửi duỡng sồ õọử Horner õóứ . toaùn: #include <math.h> #define epsilon 0.00 void main() { clrscr(); /* Tinh chx */ float s1,s2,x,a1,a2,i,k,chx print scanf("%f", s1=0; a1=1;i=2; chx=(exp( /* Tinh the /* while (fabs(a1)>=epsilon) { s1+=a1; a1 i=i } /* /* Tinh the s2=0; a2=1;k=2; { s2+=a2; a2=a2*(x*x/(k*(k-1))); k=k+2; printf("Ket qua theo while printf("Ket qua theo do while =%f\n", s2); printf("ket qua theo ham chuan=%f",chx); getch(); } 29 + a 0 õổồỹc bióứu dióựn nhổ sau: .+ (a )x) P(x) =a 0 maớng hóỷ sọ tờnh giaù trở P(x) * Thuỏỷt hỏỷp n + Khai baùo caùc bióỳn : n,i,f,x,a + laỡm N Chổỡng naỡo n<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 55 + Nhỏỷp x + Gaùn f=0 + Cho i=n xuọỳng 0 laỡm f=f*x +a. aỡn hỗnh. ỗnh + Vióỳt f ra m * Chổồng tr tdio.h> <math.h> ("%f",&n); ); f",&x); i=n; i>=0; i ) Nhap a%d=",tt); scanf("%f",&a); } ",f); fibonaxi 1 1 2 3 5 8 13 21 34 55 . . . Chổồng trỗnh #include <s #include <conio.h> #include void main() { clrscr(); int tt; float f,a,x,i,n; do { printf(" Nhap n="); scanf } while (n<0); printf(" Nhap x=" scanf("% f=0; tt=0; for( { printf(" tt++; f=(f*x)+a; printf(" f(x)=%f getch(); } 30. Tao daợy * cr(); b2 = 1, fib = 2; N : "); , fib1, fib2); le (fib1+fib2 < n) #include <stdio.h> #include <conio.h> void main() { clrs int n, i, fib1 = 1, fi printf("\nNhap gia tri scanf("%d", &n); printf("%d %d " whi 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 56 { fib = fib1 + fib2; printf("%d ", fib); fib2 = fib1; fib1 = fib; } getch(); } Nguyãùn 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 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 [...]... + Taỷo haỡm TINH(n:byte;x:real); Khai baùo caùc bióỳn õởa phổồng s1,t1:kióứu thổỷc,i:kióứu nguyón Gaùn s1=1; Cho i=1 õóỳn n laỡm Gaùn s1:=s1+1/lt(x,i); Vióỳt s1 + Trong chổồng trỗnh chờnh oỹc n,a Goỹi haỡm TINH(n,a); * Chổồng trỗnh #include #include #include float LUYTHUA(float x,int n) { float Lt; if (n==0) Lt=1; else Lt=x*LUYTHUA(x,n-1); return Lt; } float TINH(int n,... ketqua=Th1(n-1,k-1)+Th1(n-1,k); return ketqua; } long TOHOP(int k, int n); /* Chuong trinh tinh to hop cua n chap k*/ void main() { int n, k; clrscr(); printf("\nCopyright by Nguyen van Nguyen khoa CNTT "); printf("\nNhap vao gia tri N va K : "); scanf("%d%d", &n, &k); 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 65 printf("Top hop chap %d cua %d = %lu\n", k, n, TOHOP(k,... TongLapPhuong(int n); int TongLapPhuong (int n) { clrscr(); int sum3,i,tam; i=0; sum3=0; do { i++; tam=n%10; sum3=sum3+tam*tam*tam; Nguyóựn Vn Nguyón- Khoa CNTT-TVT aỷi hoỹc Baùch Khoa aỡ Nụng 63 Baỡi tỏỷp Tin hoỹc aỷi cổồng 64 n=n/10; } while (n>0); return sum3; } main() { clrscr(); int n; int t,stor; printf(" nhap so nguyen N="); scanf("%d",&n); stor=n; t=TongLapPhuong(n); /*Co tong lap phuong cac chu so :TLPCCS*/... TINH(int n, float x) { 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 67 float s1=1,t1; int i; for(i=1;i . 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 n 24 2 24 2!! ()! +++ Thuỏỷt. 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. /* Tinh chx */ float s1,s2,x,a1,a2,i,k,chx print scanf("%f", s1=0; a1=1;i=2; chx=(exp( /* Tinh the /* while (fabs(a1)>=epsilon) { s1+=a1; a1 i=i } /* /* Tinh