B à i 1                            !" #! $%& #'('  "& )*+*'*  (,& -( . ",'& /(,01% 2.%" 3" #)  " # $%45& /(,016666666666666666666666666666666666666666666666666666666666666615& /(07  (  875&  (,05& /(07  (  875&(,0+5& '89+& 80:+59& /(,072(  ,4*';5& /(,07"    7*;5& <(,& B à i 2  +=  >  ?      %<@& #'('"& )  **(,& -( ",'& /(,07% 2.%" 3  " #)  %<@75& /(,0766666666666666666666666666666666666666666666666666666675& /(07  +>  <875&(,05& 899& 899& /(,072(        ,7*;5& /(,07"      ,7*;5& <(,& . B à i 3  Tính tam giácAB  + 'C*+*+D> EF  G(F, H +  I  >J*  K  >J           7 E , +       7LM , **=       %$NO$"& #'('& ) *+**'*(,& -( ",'& /(,01-$%@$%$N  O$"45& /(,0766666666666666666666666666666666675& /(07  875&(,05& /(  07+  875&(,0+5& /(07  875&(,05& P  00:+5Q500+:5Q500:5Q+5  ( -( .,'( . 80:+:5R& '8'S09065906+590655& /(,07"    7*9T5  & /(,072(      7*'T5& % U . /(,0*4*1*  +*4*1*  *  1  >,  +    75& <(,& B à i 4)KLV  W   LV     +U0G  :  +8X5   O$! #@O!%< !-$"! $%& )  *+*G(,& -( ",'& /(,07O$ #@O%< -$" $%$Y:  -8X75& /(,0766666666666666666666666666666666666666666666666666666666666675& /(07  875&  (,05& /(  07  +875&(,0+5& P08X5  ( P0+8X5( /(,07      '(75 .,'( .,'( Z(,07        (75 . /(,07  (  G87*6+RT5& <(,& B à i 5)KLV  W+D  LV  +U0G  :  +  [ X5   -$%! #@O!%< !-$"& #'('& )*+(,& -( ",'& /(,07O$-$%   #@O  %< -$"   $%$Y:-Q8X75& /(,07666666666666666666666666666666666666666666666666666666666666666666666675& /(07875&(,05& /(07  +875&(,0+5& P\QX  ( PQX  (  /(,07-      (  GQ87*6+RT5 .,'(/(,07-    (  G\87*6+RT5 .,'( P+Q8X(/(,07-      '(75 .,'(  Z(,07-      (75& . <(,& B à i ;  )KLV  WLV    +0G  :+G:  8X5   O$! #@O!%< !-$"& #'('& )  *+***G*GU*G(,& -( /(,07O$ #@O%< -$"75& /(,07666666666666666666666666666666666666666666675& /(07(  '875&(,05& /(07(  '  +875&(,0+5& /(07(  '875&(,05& %  P  8X  ( P  +8X( P  8X  ( /(,07  '  (75 .,'( .,'( /(,07    (75 .,'( -( /(,07  (  G87*6R+T5 8+9+6T99& P  8X( /(,07  (  >(  G87*6+R095T5 .,'( P  \X( /(,07    (75 . .& <(,& .,'( -( .& GU806+:'S055R095& G806+6'S055R095& /(07    (  15& /(,01  GU87*GUT*7    G87*GT5& B à i 7%  =],^  DT'C  *+**    0*+**HLM_+  5   %N!`@!a@! $%& #'('& )  *+***G(,& -( . ",'& /(,07%N`@a@ $%%<@O-@`@$*-*"*275& /(,0766666666666666666666666666666666666666666666666666666666666666675& /(07875&<(,05& /(07  +875&  <(,0+5& /(07 875& <(,05& /(07  875&  <(,05& G8& P  +QG(G8+& P  QG(G8& /(,07`  ,  ,7*GT5& <(,& Bài 8 :%=]  b  DT  'C*+*  *0*+**  HLM_+  5   %N!`@! @! $%& #'('& )  *+***(,& -( ",'& /(,07%N`@ @ $%%<@O-@  `@$*  -*"*275& % c . /(,0766666666666666666666666666666666666666666666666666666666666666675& /(07875&<(,05& /(07  +875&  <(,0+5& /(07 875& <(,05& /(07  875&  <(,05& 8& P  +\(8+& P\(  8& P  \(8& /(,07`    ,7*T5& <(,& B à i 9  OWLV    IK    G  +  +I  =     G  +  I  =     O$! .! $!$& #'('& )  *+****(,& G*I*(,& -( ",'& /(,07 O$  . $$75& /(,07666666666666666666666666666666666675& /(07  875&(,05& /(07  +875&(,0+5& /(07  875&(,05& /(07  875&(,05& /(07  875&(,05& 896+9& G896+9& I8969& P  8X( P  0G8X50I8X5( /(,07 ('  ((75 .,'(Z(,07 (    (75 .,'( -( .& /(07 (  (  75& /(,07G87*GRT*7    I87*IRT5& . <(,& Bài 10    dUJ     H   ,GBI eIIF Hf K   'Cd  gL^+h+gd*+gi*+g  BI   2@!O@! #%!O$j& #'('& )  **I*  G  ,& -( ",'& /(,072@  `$O  O@   #%O$j75& % T . /(,076666666666666666666666666666666666666675& /(07    'I  75&(,0G5& 8G  c;XX& G8G  c;XX& 8G   ;X& G8G  ;X& /(,07E(S87*  *7  7**77*G*  7I75& <(,& B à i 1 1      B  +=  >   HLd   ?` H    HF   $0G* I5  +D>  >F  G(   HLd   ?  I  >Jk   E.N!%<$!2.N!% #@"!2#@O!%<@& #'('& )  GX*IX*G*I**(,& -( /(,07E.N%<$  2.N% #@"2#@O  %<@75& /(,076666666666666666666666666666666666666666666666666666666675& /(07+  ><875&(,05& /(07    8  75&(,0GX*  IX5& /(07    (  875&(,0G*I5& 8`l<%0`l<0G6GX5:`l<0I6IX55& P  8  ( /(,072(  $  (  75 .,'( P  Q(  /(,072(  $        75 .,'(  /(,072(  $  75& . <(,& B à i 1 2%  G I 0  )^G*  I  ,'Cm5   Y!a#j% #$!j& #'('& )  G*I*n(,& -( /(,01% Ya#j% #$  j45& /(,07666666666666666666666666666666666675& /(07  G875&(,0G5& /(07  I  875&(,0I5& P  GQ8X  ( -( .,'( . n8(G0I9,0G55& /(,07Go  I  8  7*nT5& . /(,07EG  ,'  75& <(,& B à i 1 3%p   % !!O$!% #$& #'('& )  **((& % q -( . ",'& /(,07  %   O$% #$75& /(,07666666666666666666666666666666666675& /(07875&(,05& 8U& r8U       89& /(,0*  7p8 7*5& <(,& B à i 1 4  %G  0)^  ,'C  Ig>J  B5   % !Y!a#j!% #$!& #'('& )  **G((& ,(,& -( . /(,07  % Ya#j% #$  j75& /(,07666666666666666666666666666666666675& /(07  G875&  (,0G5& /(07875&(,05& ,8U& r8U       ,8,9G& /(,0G*  7o7**7  8  7*,T5& <(,&  B à i 1 5  %f`  8  ∑  U 8Xp   % !%@OU& #'('& )**((& '(,& -( ",'& /(,07" #@O%< %  %@O75& /(,07666666666666666666666666666666666666666675& /(07  875&  <(,05& 8U& '8U& r8U       -( .& 89& '8':UR& . /(,07%  `8  7*'s5& <(,& % ;  B à i 1 6  %f`  8  ∑  G   8U   % !%@O& #'('"& )*((& G*'*,(,& -( ",'& /(,07% %@Oa#j% #$75& /(,07666666666666666666666666666666666675& /(07  G875&(,0G5& /(07  875&(,05& '8X& ,8U& r8U       -( .& ,8,9G  & '8':,  & . /(,07%  `8  7*'s5& <(,& n i B à i 1 7  %f`  8  ∑  x i=  X  ip   % !%@Oc& #'('"& )  **((& G*'*,(,& -( ",'& /(,07% %@Oa#j% #$RO$% #$75& /(,076666666666666666666666666666666666666666666666666675& /(07  G875&(,0G5& /(07  875&(,05& '8& 8U& ,8U& r8U       -( .& ,8,9G  & 89& '8':,R  & . /(,07%  `8  7*'s5& <(,& B à i 1 8%  DW  =    'C    +    'C  +  '  f  =,  LV    =   'C    +h  'CH0  +  8 c :+ c :  c 5%N!`@& #'('& % t )  *u*>((& -( /(,07" #@O %<  %N`@75& /(,07666666666666666666666666666666666675& r8U    v   ru8X    v   r>8X  v   P0UXX9:UX9u:>58099  :  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  IgC  I>Jk   `@!O#j.!%@& #'('& )  *  ((& -( ",'& /(,07E.N%<$  `@  O#j.%@75& /(,07666666666666666666666666666666666666666675& /(07'>(    8  75&(,05& P  08X508U5( /(,0*7  E  ,  '  I(  75 .,'( -( .& 8U& <(( 8  :U& #,  0  8X5  09Q5& P  9Q  (/(,0*7,  'I(  75 .,'(  /(,0*7  >  ,'  I(  75& . <(,& B à i 2 0='C  IgCbVw  +h0,'CIg  >J  B HLM  _+5   "$"!`@!O#j.!%@& #'('& )  **  ((& -( ",'& /(,07 <$  "$"`@O#j.`@\875& /(,0766666666666666666666666666666666666666666666675& /(07  875&(,05& P  \( /(,07E    '  I(    \87*5 .,'( -( /(,07"'I(  \87**7,75& r8     -( 8U& % s .& <(,& . .& <(( 8  :U& #,0        8X5  09Q5  & P09Q5( /(0T5& Bài 21  c,x'Cxy 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&(,05& /(07  ,  (  U  75&(,0G5& /(07  ,  (    75&(,0I5& /(07  ,  (  c  75&(,0n5& /(,07a  7*G;*7 a7*I;*7 a7*n;5& r8X    0  G5 ru8X    0    I5 r  8  X    0  n5   P09G:u9I:9n85  ( /(,  0s*uU*UX5& . <(,& B à i 2 2 %z  B  z  b %B H{   zz %B  h  z  + %B  ++ b    +  g  |,k   %<$N%<$#!%<$N"@& #'('& )  **((& -( ",'& /(,07%<$N%<$#%<$N  "@75& /(,07666666666666666666666666666666666675& /(,07%   %  %75& r8XX r8Xcc r  8X  UXX P00q9:c9:Rc8UXX5  0::8UXX55( /(,0;*  U*  Uq5& <(,& . % v [...].. .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. .. ',c(n,k):6:0); Readln; End Trang 12 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; 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:... daoso:=kq; End; Begin Clrscr; Writeln(' TIM SO DAO CUA MOT SO'); Writeln(' '); Write('Nhap so can tim dao n= ');readln(n); Writeln('So dao cua ',n,' la: ', daoso(n)); Readln; End n Trang 15 Bài 38 : Viết chương trình nhập vào một ma trân, tính tổng bình phương của các số âm trong ma trận trên Program MAT_TRAN2; Uses Crt; Type MT = array[1 20,1 20] of integer; Var a:MT; n,m:integer; Procedure... '); Write('Nhap vao so dong n = ');readln(n); Write('Nhap vao so cot m = ');readln(m); Input(a,n,m); Output(a,n,m); Writeln('Tong binh phuong cac phan tu am = ',sum(a,n,m)); Readln; End Bài 39: Viết chương trình nhập vào một ma trận In ma trận chuyển vị của nó ra màn hình Ma trận B là ma trận chuyển vị của ma trận A nếu các phần tử của chúng có quan hệ B[i, j] = A[j, i] Program MAT_TRAN_CHUYEN_VI;... dong n = ');readln(n); Write('Nhap vao so cot m = ');readln(m); Input(a,n,m); Writeln('Ma tran a la:'); Output(a,n,m); Chuyenvi(a,n,m,b); Writeln('Ma tran chuyen vi b la:'); Output(b,m,n); Readln; End Bài 40 :Viết chương trình nhập vào một ma trận A vuông cấp n Chuyển A thành chính mà trận chuyển vị của A (không sử dụng ma trận trung gian) Program MAT_TRAN_CHUYEN_VI; Uses Crt; Type MT = array[1 20,1... -'); Write('Nhap vao cap ma tran vuong n = ');readln(n); Input(a,n); Writeln('Ma tran a la:'); Output(a,n); Chuyenvi(a,n); Writeln('Ma tran chuyen vi b la:'); Output(a,n); Readln; End Bài 43: Chuyển 1 số từ hệ thập phân sang nhị phân Program DOI_THAP_PHAN_SANG_NHI_PHAN; Uses Crt; Var d:array[1 20] of byte; i,j,n:integer; Begin Clrscr; Writeln('DOI SO THAP PHAN SANG NHI PHAN:'); Writeln('... '); Write('Nhap so thap phan la n='); Readln(n); i:=1; Repeat d[i]:=n mod 2; n:=n div 2; i:=i+1; Until(n=0); Write('So nhi phan la:'); For j:=i-1 downto 1 do Write (d[j]); Readln; End Bài 44: Chuyển 1 số từ hệ thập phân sang bát phân Program DOI_THAP_PHAN_SANG_BAT_PHAN; Uses Crt; Var d:array[1 20] of byte; i,j,n:integer; Begin Clrscr; Trang 24 Writeln('DOI SO THAP PHAN SANG BAT PHAN:');... Writeln(' -'); Write('Nhap so can doi n = ');Readln(n); i:=1; Repeat d[i]:=n mod 8; n:=n div 8; i:=i+1; Until n=0; Write('So bat phan la:'); For j:=i-1 downto 1 do Write(d[j]); Readln; End Bài 45: Viết chương trình nhập vào một chuỗi kí tự, sau đó nhập vào một kí tự bất kì và đếm số lần của nó trong chuỗi đã nhập Program DEM_SO_KY_TU; Uses Crt; Var st:string[30]; x:char;i,dem:integer; Begin . <(,05& /(07  875&  <(,05& G8& P  +QG(G8+& P  QG(G8& /(,07`  ,  ,7*GT5& <(,& Bài 8 :%=]  b  DT  'C*+*  *0*+**  HLM_+  5   %N!`@!. (  (  75& /(,07G87*GRT*7    I87*IRT5& . <(,& Bài 10    dUJ     H   ,GBI eIIF Hf K   'Cd  gL^+h+gd*+gi*+g  BI   2@!O@!.  %N`@75& /(,07666666666666666666666666666666666675& r8U    v   ru8X    v   r>8X  v   P0UXX9:UX9u:>58099  :  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  IgC  I>Jk   `@!O#j.!%@& #'('& )  *  ((& -( ",'& /(,07E.N%<$  `@  O#j.%@75& /(,07666666666666666666666666666666666666666675& /(07'>(    8  75&(,05& P  08X508U5( /(,0*7  E  ,  '  I(  75 .,'( -( .& 8U& <(( 8  :U& #,  0  8X5  09Q5& P  9Q  (/(,0*7,  'I(  75 .,'(  /(,0*7  >  ,'  I(  75& . <(,& B