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 , + 7LM , **= %$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& 8G 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% %@Oa#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 [...]... 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 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;... 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 số Fibonacci:... 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 phương các số nằm trên hàng chẵn c Tính tổng căn bậc hai các số không âm trên cột lẻ d Đếm số phần tử có giá trị trong khoảng [1 5] Program MAT_TRAN1; Uses Crt; Type MT = array[1 20,1 20] of integer; Trang 17 Var a:MT; n:integer;... Readln; {Tinh trung binh day} s:=0; For i:=1 to n do s:=s+a[i]; Writeln('Gia tri trung binh la: ',s/n:6:2); Readln; End Bài 53: Viết chương trình nhập vào một ma trận vuông cấp n a In ra trong các phần tử trên đường chéo chính b In ra màn hình trong các phần tử trên đường chéo phụ Program MATRAN_TONGDUONGCHEO; Uses Crt; Var i,j,n,sum1,sum2:integer; a:array[1 10,1 10]of integer; Begin Clrscr; Writeln('TINH... ',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('... kq:=1; For i:=1 to n do kq:=kq*i; gt:=kq; End; Begin Clrscr; Writeln(' CHUONG TRINH TINH TONG:'); Writeln(' -'); Write('Nhap x = ');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...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... Writeln('gia tri trung binh la:',Sum/n:6:2); Readln; End Bài 42: Viết chương trình nhập vào một dãy số nguyên có n phần tử a Đưa những phần tử lẻ ra đầu danh sách, những phần tử chẵn về cuối danh sách và in kết quả ra màn hình b Sắp xếp các phần tử lẻ đầu danh sách theo thứ tứ tăng dần, sắp xếp các phần tử chẵn cuối danh sách theo thứ tự giảm dần In danh sách ra màn hình Program DAY_CHAN_LE; Uses crt;... ten sau khi doi lan 1 la: ',st); For i:=1 to length(St) do st[i]:=upcase(st[i]); Writeln('Ho ten sau khi doi lan 2 la: ',st); Readln; End Bài 48: Viết chương trình nhập vào một chuỗi ký tự Sau đó in chuỗi ra màn hình với các ký tự đầu đổi thành chữ thường, các ký tự cuối của từ trong chuỗi sang chữ hoa Program CHUOI_CHU_THUONG; Uses Crt; Var i,l:integer; st:string[50]; Begin Clrscr; Writeln('DOI CHUOI... 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 Writeln('TINH DIEN TICH HINH TRON:'); Write('Nhap ban kinh R = ');readln(r); s:=pi*r*r; Writeln('Dien tich hinh tron = ',s:6:2); End; Procedure TG; Trang 13 Var a, b, c,s,p:real; Begin Writeln('TINH DIEN TICH TAM GIAC:'); . #@O$ `$#75& /(,07666666666666666666666666666666666666666666666666666666666675& /(,07X lI ( ' 75& /(,07U % ( 75& /(,07 %( 75& /(,07c( 75& /(,07T % ( 75& /(,0 788 888 888 888 888 888 888 888 888 888 888 888 875& /(07 I 75&(,05& /(,0 788 888 888 888 888 888 888 888 888 888 888 888 875& /(,& "'( P X.G& U. #$75& /(,076666666666666666666666666666666666666666666666666675& /(07 G 8 75&(,0G5& /(07 8 75&(,05& ' 8 & 8U& ,8U& r8U -( .& , 8, 9G & 8 9& ' 8& apos;:,R & . /(,07% ` 8 7*'s5& <(,& B. %@O75& /(,07666666666666666666666666666666666666666675& /(07 87 5& <(,05& 8U& '8U& r8U -( .& 8 9& ' 8& apos;:UR& . /(,07% ` 8 7*'s5& <(,& % ; B