bai tap Pascal hay

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 [...]... ',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(' -'); Write('... dien tich hinh vuong'); Writeln('2: Tinh dien tich hinh tron'); Writeln('3: tinh dien tich tam giac'); Writeln('4: Tinh dien tich hinh chu nhat'); Writeln('===================================='); Write(' Hay chon mot phuong an: '); readln(d); Writeln('===================================='); Writeln; Case d of 0: Exit; 1: HV; 2: HT; 3: TG; 4: CN; End; End; Begin menu; Readln; End Trang 14 Bài 31: Tính các... length(st) do If x= st[i] then dem:=dem+1; Writeln('so lan xuat hien cua ',x,' trong chuoi "', st,'" la: ',dem); Readln; End Bài 46: Viết chương trình nhập vào một chuỗi ký tự, Kiểm tra xem nó có đối xứng hay không (Ví dụ: Chuỗi đối xứng RADAR, MADAM) Program CHUOI_DOI_XUNG; Uses Crt; Var st:string; i:integer; ok:boolean; Begin Clrscr; Writeln('KIEM TRA CHUOI DOI XUNG'); Writeln(' ');... i:=1 to n do sum2:=sum2+a[i,n-i+1]; Writeln('Tong cac phan tu tren duong cheo phu la: ', sum2); Readln; End Bài 54: Viết chương trình nhập vào một ma trận vuông cấp n Kiểm tra xem ma trận có đối xứng hay không ? Program MA_TRAN_DOI_XUNG; Uses Crt; Type MT=array[1 20,1 20] of integer; Var a: MT; n:integer; Procedure Input(var a:MT; n:integer); Var i,j:integer; Begin For i:=1 to n do For j:=1 to n do