BÀI TẬP PASCAL 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9 06 590 6 +590 655& / (,07 "     7 *9 T5  & / (,07 2(     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 [...]... Program TINH_TONG1; Uses crt; Var i,n,gt: integer; s:real; Begin Clrscr; Writeln('CHUONG TRINH TINH TONG:'); Writeln(' '); Write('Nhap n='); Readln(n); gt:=1; s:=1; For i:=1 to n do Begin gt:=gt*i; s:=s+1/gt; End; End Writeln('Tong S = ',s :8: 2); Readln; Trang 6 n Bài 16: Tính tổng S = ∑x i i=1 Program TINH_TONG2; Uses Crt; Var i,n:integer; x,s,lt:real; Begin Clrscr; Writeln('TINH TONG... Writeln('Tong S = ',s :8: 2); Readln; End n Bài 17: Tính tổng S = ∑ x i i= 0 i! Program TINH_TONG3; Uses Crt; Var i,n,gt:integer; x,s,lt:real; Begin Clrscr; Writeln('TINH TONG LUY THUA/GIAI THUA:'); Writeln(' '); Write('Nhap x = '); readln(x); Write('nhap n = '); readln(n) ; s:=2; gt:=1; lt:=1; For i:=1 to n do Begin lt:=lt*x ; gt:=gt*i; s:=s+lt/gt ; End; Writeln('Tong S = ',s :8: 2); Readln;...Begin Clrscr; Writeln(' TINH N GIAI THUA:'); Writeln(' '); Write('Nhap n ='); readln(n); gt:=1; For i:=1 to n do gt:=gt*i; Writeln(n, '!= ',gt); End Readln; Bài 14: Tính xn (Với n là số nguyên không âm) Program TINH_X_LUY_THUA_N; Uses crt; Var i,n,x:integer; lt:real; Begin Writeln(' TINH X LUY THUA Y:'); Writeln(' '); Write('Nhap... tích hình tròn 3 Tính diện tích tam giác 4 Tính diện tích hình chӳ nhұt Program TINH_DIEN_TICH; Uses crt; Procedure HV; Var s,a:real; Begin Writeln('TINH DIEN TICH HINH VUONG:'); Write('Nhap chieu dai cua canh a = ');readln(a); s:=a*a; Writeln('Dien tich hinh vuong = ',s:6:2); End; Procedure HT; Var s,r:real; Begin End; W ln('TINH DIEN TICH HINH TRON:'); r Write('Nhap ban kinh R = ');readln(r); i s:=pi*r*r;... TRONG CAC PHUONG AN SAU:'); Writeln(' '); Writeln('0: Quay ve man hinh soan thao'); Writeln('1: Tinh 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('====================================');... '); 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; Begin c:=gt(n)/(gt(k)*gt(n-k)); End; Begin Clrscr; Writeln('CHUONG TRINH TINH N CHAP K :'); Writeln(' '); Write('Nhap... do For tn:=0 to 33 do For tg:=0 to 100 do If ((5*td+3*tn+tg/3=100)and (td+tn+tg=100)) then Writeln(td:6, tn:12, tg:15); Readln; End Trang 9 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)... s:real; Begin Writeln('TINH DIEN TICH HINH CHU NHAT:'); Write('Nhap chieu dai a =');readln(a); Write('Nhap chieu rong b= ');readln(b); s:= a*b; Writeln('Dien tich hinh chu nhat, s= ',s:6:2); End; Procedure menu; Var d:integer; Begin Clrscr; Writeln('CHON MOT TRONG CAC PHUONG AN SAU:'); Writeln(' '); Writeln('0: Quay ve man hinh soan thao'); Writeln('1: Tinh dien tich hinh vuong');... TRINH TINH A^N:'); Writeln(' '); Write('Nhap a = '); readln(a); W r i te('Nhap n = '); readln(n); Writeln(a,'^',n,' = ',lt(a,n)); Readln; Trang 11 End Bài 27: Tính n! (dùng chương trình con) Program GIAI_THUA; Uses Crt; Var n: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; Begin Clrscr; Writeln('CHUONG TRINH TINH N!... '); Write('Nhap x = '); readln(x); Write('nhap n = '); readln(n) ; s:=2; gt:=1; lt:=1; For i:=1 to n do Begin lt:=lt*x ; gt:=gt*i; s:=s+lt/gt ; End; Writeln('Tong S = ',s :8: 2); Readln; End Bài 18: Tìm tất cả các chữ số có ba chữ số abc sao cho tổng các lập phương của các chữ số thì bằng chính số đó ( abc = a3 + b3 + c3) Program TIM_SO; Uses crt; Trang 7 Var i,j,k:integer; Begin Writeln('CHUONG . 87 5&(,05&/(07  87 5&(,05&  8 96+9& G 8 96+9& I 8 969& P  8X( P  0G8X50I8X5( /(,07 ('.  G 8 75&(,0G5& /(07   8 75&(,05& ' 8 & 8U& ,8U& r8U       -( .& , 8, 9G