B à i 1 !" #! $%& #'(' "& )*+*'* (,& -( . ",'& /(,01% 2.%" 3" #) " # $%45& /(,016666666666666666666666666666666666666666666666666666666666666615& /(07 ( 875& (,05& /(07 ( 875&(,0+5& '89+& 80:+59& /(,072( ,4*';5& /(,07" 7*;5& <(,& B à i 2 += > ? %<@& #'('"& ) **(,& -( ",'& /(,07% 2.%" 3 " #) %<@75& /(,0766666666666666666666666666666666666666666666666666666675& /(07 +> <875&(,05& 899& 899& /(,072( ,7*;5& /(,07" ,7*;5& <(,& . B à i 3 Tính tam giácAB + 'C*+*+D> EF G(F, H + I >J* K >J 7 E , + 7 LM , **= %$NO$"& #'('& ) *+**'*(,& -( ",'& /(,01-$ %@$ %$N O$"45& /(,0766666666666666666666666666666666675& /(07 875&(,05& /( 07+ 875&(,0+5& /(07 875&(,05& P 00:+5Q500+:5Q500:5Q+5 ( -( .,'( . 80:+:5R& '8'S09065906+590655& /(,07" 7*9T5 & /(,072( 7*'T5& % U . /(,0*4*1* +*4*1* * 1 >, + 75& <(,& B à i 4 )KLV W LV +U0G : +8X5 O$! #@O!%< !-$"! $%& ) *+*G(,& -( ",'& /(,07O$ #@O%< -$" $%$Y : -8X75& /(,0766666666666666666666666666666666666666666666666666666666666675& /(07 875& (,05& /( 07 +875&(,0+5& P08X5 ( P0+8X5( /(,07 '(75 .,'( .,'( Z(,07 (75 . /(,07 ( G87*6+RT5& <(,& B à i 5 )KLV W+D LV +U0G : + [ X5 -$%! #@O!%< !-$"& #'('& )*+(,& -( ",'& /(,07O$-$% #@O %< -$" $%$Y:-Q8X75& /(,07666666666666666666666666666666666666666666666666666666666666666666666675& /(07875&(,05& /(07 +875&(,0+5& P\QX ( PQX ( /(,07- ( GQ87*6+RT5 .,'(/(,07- ( G\87*6+RT5 .,'( P+Q8X(/(,07- '(75 .,'( Z(,07- (75& . <(,& B à i ; )KLV WLV +0G :+G: 8X5 O$! #@O!%< !-$"& #'('& ) *+***G*GU*G(,& -( /(,07O$ #@O%< -$"75& /(,07666666666666666666666666666666666666666666675& /(07( '875&(,05& /(07( ' +875&(,0+5& /(07( '875&(,05& % P 8X ( P +8X( P 8X ( /(,07 ' (75 .,'( .,'( /(,07 (75 .,'( -( /(,07 ( G87*6R+T5 8+9+6T99& P 8X( /(,07 ( >( G87*6+R095T5 .,'( P \X( /(,07 (75 . .& <(,& .,'( -( .& GU806+:'S055R095& G806+6'S055R095& /(07 ( 15& /(,01 GU87*GUT*7 G87*GT5& B à i 7 % =],^ DT'C *+** 0*+**HLM_+ 5 %N!`@!a@! $%& #'('& ) *+***G(,& -( . ",'& /(,07%N`@a@ $%%<@O-@`@$*-*"*275& /(,0766666666666666666666666666666666666666666666666666666666666666675& /(07875&<(,05& /(07 +875& <(,0+5& /(07 875& <(,05& /(07 875& <(,05& G8& P +QG(G8+& P QG(G8& /(,07` , ,7*GT5& <(,& Bài 8 : %=] b DT 'C*+* *0*+** HLM_+ 5 %N!`@! @! $%& #'('& ) *+***(,& -( ",'& /(,07%N`@ @ $%%<@O-@ `@$* -*"*275& % c . /(,0766666666666666666666666666666666666666666666666666666666666666675& /(07875&<(,05& /(07 +875& <(,0+5& /(07 875& <(,05& /(07 875& <(,05& 8& P +\(8+& P\( 8& P \(8& /(,07` ,7*T5& <(,& B à i 9 OWLV IK G + +I = G + I = O$! .! $!$& #'('& ) *+****(,& G*I*(,& -( ",'& /(,07 O$ . $$75& /(,07666666666666666666666666666666666675& /(07 875&(,05& /(07 +875&(,0+5& /(07 875&(,05&/(07 875&(,05&/(07 875&(,05& 896+9& G896+9& I8969& P 8X( P 0G8X50I8X5( /(,07 (' ((75 .,'(Z(,07 ( (75 .,'( -( .& /(07 ( ( 75& /(,07G87*GRT*7 I87*IRT5& . <(,& Bài 10 dUJ H ,GBI eIIF Hf K 'Cd gL^+h+gd*+gi*+g BI 2@!O@! #%!O$j& #'('& ) **I* G ,& -( ",'& /(,072@ `$O O@ #%O$j75& % T . /(,076666666666666666666666666666666666666675& /(07 'I 75&(,0G5&8 G c;XX& G8G c;XX& 8G ;X& G8G ;X& /(,07E(S87* *7 7**77*G* 7I75& <(,& B à i 1 1 B += > HLd ?` H HF $0G* I5 +D> >F G( HLd ? I >Jk E.N!%<$!2.N!% #@"!2#@O!%<@& #'('& ) GX*IX*G*I**(,& -( /(,07E.N %<$ 2.N % #@" 2#@O %<@75& /(,076666666666666666666666666666666666666666666666666666666675& /(07+ ><875&(,05& /(07 8 75&(,0GX* IX5& /(07 ( 875&(,0G*I5& 8`l<%0`l<0G6GX5:`l<0I6IX55& P 8 ( /(,072( $ ( 75 .,'( P Q( /(,072( $ 75 .,'( /(,072( $ 75& . <(,& B à i 1 2 % G I 0 )^G* I ,'Cm5 Y!a#j% #$!j& #'('& ) G*I*n(,& -( /(,01% Ya#j% #$ j45& /(,07666666666666666666666666666666666675& /(07 G875&(,0G5& /(07 I 875&(,0I5& P GQ8X ( -( .,'( . n8(G0I9,0G55& /(,07Go I 8 7*nT5& . /(,07EG ,' 75& <(,& B à i 1 3 %p % !!O$!% #$& #'('& ) **((& % q -( . ",'& /(,07 % O$% #$75& /(,07666666666666666666666666666666666675& /(07875&(,05& 8U& r8U 89& /(,0* 7p8 7*5& <(,& B à i 1 4 %G 0)^ ,'C Ig>J B5 % !Y!a#j!% #$!& #'('& ) **G((& ,(,& -( . /(,07 % Ya#j% #$ j75& /(,07666666666666666666666666666666666675& /(07 G875& (,0G5& /(07875&(,05& ,8U& r8U ,8,9G& /(,0G* 7o7**7 8 7*,T5& <(,& B à i 1 5 %f` 8 ∑ U 8Xp % !%@OU& #'('& )**((& '(,& -( ",'& /(,07" #@O%< % %@O75& /(,07666666666666666666666666666666666666666675& /(07 875& <(,05& 8U& '8U& r8U -( .& 89& '8':UR& . /(,07% `8 7*'s5& <(,& % ; B à i 1 6 %f` 8 ∑ G 8U % !%@O& #'('"& )*((& G*'*,(,& -( ",'& /(,07% %@Oa#j% #$75& /(,07666666666666666666666666666666666675& /(07 G875&(,0G5& /(07 875&(,05& '8X& ,8U& r8U -( .& ,8,9G & '8':, & . /(,07% `8 7*'s5& <(,& n i B à i 1 7 %f` 8 ∑ x i= X ip % !%@Oc& #'('"& ) **((& G*'*,(,& -( ",'& /(,07% %@O a#j % #$RO$ % #$75& /(,076666666666666666666666666666666666666666666666666675& /(07 G875&(,0G5& /(07 875&(,05& '8& 8U& ,8U& r8U -( .& ,8,9G & 89& '8':,R & . /(,07% `8 7*'s5& <(,& B à i 1 8 % DW = 'C + 'C + ' f =, LV = 'C +h 'CH0 + 8 c :+ c : c 5 %N!`@& #'('& % t ) *u*>((& -( /(,07" #@O %< %N `@75& /(,07666666666666666666666666666666666675& r8U v ru8X v r>8X v P0UXX9:UX9u:>58099 : u9u9u: >9>9>5( /(,0*u*>*7 8 7**7oc: 7*u*7oc :7*>*7oc75& . <(,& Bài 19 'C Ig >J B* >F G( W,'C IgC I >Jk `@!O#j.!%@& #'('& ) * ((& -( ",'& /(,07E.N%<$ `@ O#j.%@75& /(,07666666666666666666666666666666666666666675& /(07'>( 8 75&(,05& P 08X508U5( /(,0*7 E , ' I( 75 .,'( -( .& 8U& <(( 8 :U& #, 0 8X5 09Q5& P 9Q (/(,0*7, 'I( 75 .,'( /(,0*7 > ,' I( 75& . <(,& B à i 2 0 ='C IgCbVw +h0,'CIg >J B HLM _+5 "$"!`@!O#j.!%@& #'('& ) ** ((& -( ",'& /(,07 <$ "$" `@ O#j. `@ \875& /(,0766666666666666666666666666666666666666666666675& /(07 875&(,05& P \( /(,07E ' I( \87*5 .,'( -( /(,07"'I( \87**7,75& r8 -( 8U& % s .& <(,& . .& <(( 8 :U& #,0 8X5 09Q5 & P09Q5( /(0T5& Bài 21 c,x'Cxy Hf eI D W = f M HLM c, x g 'C x _ 2@!%.& #'('"& ) G*I*n***u**',& -( ",'& /(,07" #@O%< 2@ %.75& /(,0766666666666666666666666666666666666666675& /(07 ' ( 8 75&(,05& /(07 , ( U 75&(,0G5& /(07 , ( 75&(,0I5& /(07 , ( c 75&(,0n5& /(,07a 7*G;*7 a7*I;*7 a7*n;5& r8X 0 G5 ru8X 0 I5 r 8 X 0 n5 P09G:u9I:9n85 ( /(, 0s*uU*UX5& . <(,& B à i 2 2 %z B z b %B H{ zz %B h z + %B ++ b + g |,k %<$N%<$#!%<$N"@& #'('& ) **((& -( ",'& /(,07%<$N%<$#%<$N "@75& /(,07666666666666666666666666666666666675& /(,07% % %75& r8XX r8Xcc r 8X UXX P00q9:c9:Rc8UXX5 0::8UXX55( /(,0;* U* Uq5& <(,& . % v [...]... Writeln('C(',n,',',k,') = ',c(n,k):6:0); Readln; End Bài 29: Lập tam giác PASCAL, bằng Cn k(dùng chương trình con) n Program TAM_GIAC _PASCAL; Uses Crt; Var i,j,n,k:integer; Trang 12 Function gt(n:integer):longint; Var kq,i:integer; Begin kq:=1; For i:=1 to n do kq:=kq*i; gt:=kq; End; Function C(k,n:integer):real; Begin C:=gt(n)/(gt(k)*gt(n-k)); End; Begin Clrscr; Writeln('VIET TAM GIAC PASCAL: '); Writeln(' .. .Bài 23: Tạo bảng số dạng sau: 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Program BANG_SO; Uses crt; Var i,j,n:integer; Begin Clrscr; Writeln(' TAO BANG SO TU 0-99'); Writeln(' -'); For i:=0 to 99 do Begin If (i mod 10 = 0) then Writeln; Write(i:3) End; Readln; End Bài 24: Tạo hình a) * ** *** **** ***** b) *****... End Bài 26: Tính an (dùng chương trình con) Program LUY_THUA; Uses Crt; Var a,n:integer; Function lt(a,n:integer):longint; Var i:integer; kq:longint; Begin kq:=1; For i:=1 to n do kq:=kq*a; lt:=kq; End; Begin Clrscr; Writeln('CHUONG TRINH TINH A^N:'); Writeln(' '); Write('Nhap a = '); readln(a); Write('Nhap n = '); readln(n); Writeln(a,'^',n,' = ',lt(a,n)); Readln; Trang 11 End Bài. .. Write(' Nhap n = '); readln(n); For i:=0 to n do Begin For j:=0 to i do Write(C(j,i):3:0); Writeln; End; Readln; End Bài 30: Viết các chương trình con tính diện tích tam giác, tròn, vuông, chữ nhật trong một chương trình Sau đó hỏi chọn một trong các phương án tính diện tích bằng cách chọn trong bảng chọn lệnh sau: 0 Không làm gì hết và trở về màn hình soạn thảo 1 Tính diện tích hình vuông 2 Tính diện tích... menu; Readln; End Trang 14 Bài 31: Tính các số Fibonacci: - F1=F2 = 1 - Fn = Fn-1 + Fn-2 Program FIBONACII; Uses Crt; Var n,kq:integer; Function F(n:integer):integer; Begin If (n=1) or (n=2) then F:=1 Else F:=F(n-1)+F(n-2); End; Begin Clrscr; Writeln(' TINH SO FIBONACII:'); Writeln(' -'); Write('Nhap n = '); Readln(n); Write('F(',n,')= ',f(n)); Readln; End Bài 32: Viết chương trình tìm... ');readln(x); Write('Nhap n= '); Readln(n); S:=0; For i:= 0 to n do S:=S+(1+lt(x,i))/gt(1+i); Writeln('Tong la: ',s:6:2); Readln; End Bài 36: Giải hệ phương trình: Viết chương trình giải hệ phương trình tuyến tính 2 ẩn dùng ma trận a11.x + a12.y = c1 a21 + a22.y = c2 Bài 37: Hãy viết chương trình nhập giá trị cho ma trận vuông cấp n a Tính tổng các phần tử nằm trên đường chéo chính b Tính tổng bình... Readln; End Bài 56: Đếm số từ trong một chuỗi Program DEM_SO_TU; Uses Crt; Var st:string; i,dem:integer; Begin Clrscr; Writeln('DEM SO TU TRONG CHUOI:'); Writeln(' -'); Write('Nhap chuoi: ');readln(st); If st[1]=' ' then dem:=0 Else dem:=1; Trang 33 For i:=1 to length(st)-1 do If (st[i] = ' ')and (st[i+1] ' ') then dem:=dem+1; Writeln('So tu trong chuoi la: ',dem); Readln; End Bài 57:... gt:=kq; End; Begin Clrscr; Writeln(' CHUONG TRINH TINH TONG:'); Writeln(' '); Write('Nhap n='); Readln(n); S:=1; For i:= 1 to n do S:=S+1/gt(i); Write('Tong la: ',S:6:2); Readln; End n Bài 34: Tính tổng S = ∑x i (dùng chương trình con) i=1 Program TONG2; Uses Crt; Var i,x,n:integer; s:longint; Function lt(a,n:integer):longint; Var i:integer; kq:longint; Begin kq:=1; For i:=1 to n do... TINH TONG:'); Writeln(' '); Write('Nhap x = ');readln(x); Write('Nhap n='); Readln(n); S:=0; For i:= 1 to n do S:=S+lt(x,i); Writeln('Tong la: ',s); Trang 16 Readln; End n 1 + xi =∑ Bài 35: Tính tổng S i =0 (1 +s:re (dùng chương trình con) i )! al; Program TONG3; Uses Crt; Var i,x,n:integer; Function lt(a,n:integer):longint; Var i:integer; kq:longint; Begin kq:=1; For i:=1 to n do... Begin kq:=1; For i:=1 to n do kq:=kq*i; gt:=kq; End; Begin Clrscr; Writeln('CHUONG TRINH TINH N! :'); Writeln(' -'); Write('Nhap n = '); readln(n); Writeln(n,'! = ',gt(n)); Readln; End Bài 28: Tính C kn (dùng chương trình con) Program TO_HOP; Uses Crt; Var n,k:integer; Function gt(n:integer):longint; Var kq,i:integer; Begin kq:=1; For i:=1 to n do kq:=kq*i; gt:=kq; End; Function C(n,k:integer):real; . QG(G8& /(,07` , ,7*GT5& <(,& Bài 8 : %=] b DT 'C*+* *0*+** . 75& /(,07G87*GRT*7 I87*IRT5& . <(,& Bài 10 dUJ H ,GBI eIIF