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ác + 'A*+*+B> CD E(D, F + G >H* I >H 7 C , + 7JK , **= %$LM$"& #'('& ) *+**'*(,& -( ",'& /(,01-$%@$%$L M$"45& /(,0766666666666666666666666666666666675& /(07 875&(,05& /( 07+ 875&(,0+5& /(07 875&(,05& N 00:+5O500+:5O500:5O+5 ( -( .,'( . 80:+:5P& '8'Q09065906+590655& /(,07" 7*9R5 & /(,072( 7*'R5& % S . /(,0*4*1* +*4*1* * 1 >, + 75& <(,& B à i 4)IJT U JT +S0E : +8V5 M$! #@M!%< !-$"! $%& ) *+*E(,& -( ",'& /(,07M$ #@M%< -$" $%$W: -8V75& /(,0766666666666666666666666666666666666666666666666666666666666675& /(07 875& (,05& /( 07 +875&(,0+5& N08V5 ( N0+8V5( /(,07 '(75 .,'( .,'( X(,07 (75 . /(,07 ( E87*6+PR5& <(,& B à i 5)IJT U+B JT +S0E : + Y V5 -$%! #@M!%< !-$"& #'('& )*+(,& -( ",'& /(,07M$-$% #@M %< -$" $%$W:-O8V75& /(,07666666666666666666666666666666666666666666666666666666666666666666666675& /(07875&(,05& /(07 +875&(,0+5& NZOV ( NOV ( /(,07- ( EO87*6+PR5 .,'(/(,07- ( EZ87*6+PR5 .,'( N+O8V(/(,07- '(75 .,'( X(,07- (75& . <(,& B à i ; )IJT UJT +0E :+E: 8V5 M$! #@M!%< !-$"& #'('& ) *+***E*ES*E(,& -( /(,07M$ #@M%< -$"75& /(,07666666666666666666666666666666666666666666675& /(07( '875&(,05& /(07( ' +875&(,0+5& /(07( '875&(,05& % N 8V ( N +8V( N 8V ( /(,07 ' (75 .,'( .,'( /(,07 (75 .,'( -( /(,07 ( E87*6P+R5 8+9+6R99& N 8V( /(,07 ( >( E87*6+P095R5 .,'( N ZV( /(,07 (75 . .& <(,& .,'( -( .& ES806+:'Q055P095& E806+6'Q055P095& /(07 ( 15& /(,01 ES87*ESR*7 E87*ER5& B à i 7% =[,\ BR'A *+** 0*+**FJK]+ 5 %L!^@!_@! $%& #'('& ) *+***E(,& -( . ",'& /(,07%L^@_@ $%%<@M-@^@$*-*"*275& /(,0766666666666666666666666666666666666666666666666666666666666666675& /(07875&<(,05& /(07 +875& <(,0+5& /(07 875& <(,05& /(07 875& <(,05& E8& N +OE(E8+& N OE(E8& /(,07^ , ,7*ER5& <(,& Bài 8 :%=[ ` BR 'A*+* *0*+** FJK]+ 5 %L!^@! @! $%& #'('& ) *+***(,& -( ",'& /(,07%L^@ @ $%%<@M-@ ^@$* -*"*275& % a . /(,0766666666666666666666666666666666666666666666666666666666666666675& /(07875&<(,05& /(07 +875& <(,0+5& /(07 875& <(,05& /(07 875& <(,05& 8& N +Z(8+& NZ( 8& N Z(8& /(,07^ ,7*R5& <(,& B à i 9 MUJT GI E + +G = E + G = M$! .! $!$& #'('& ) *+****(,& E*G*(,& -( ",'& /(,07 M$ . $$75& /(,07666666666666666666666666666666666675& /(07 875&(,05& /(07 +875&(,0+5& /(07 875&(,05& /(07 875&(,05& /(07 875&(,05& 896+9& E896+9& G8969& N 8V( N 0E8V50G8V5( /(,07 (' ((75 .,'(X(,07 ( (75 .,'( -( .& /(07 ( ( 75& /(,07E87*EPR*7 G87*GPR5& . <(,& Bài 10 bSH F ,EcG dGGD Fe I 'Ab fJ\+g+fb*+fh*+f cG 2@!M@! #%!M$i& #'('& ) **G* E ,& -( ",'& /(,072@ ^$M M@ #%M$i75& % R . /(,076666666666666666666666666666666666666675& /(07 'G 75&(,0E5& 8E a;VV& E8E a;VV& 8E ;V& E8E ;V& /(,07C(Q87* *7 7**77*E* 7G75& <(,& B à i 1 1 c += > FJb ?^ F FD $0E* G5 +B> >D E( FJb ? G >Hj C.L!%<$!2.L!% #@"!2#@M!%<@& #'('& ) EV*GV*E*G**(,& -( /(,07C.L%<$ 2.L% #@"2#@M %<@75& /(,076666666666666666666666666666666666666666666666666666666675& /(07+ ><875&(,05& /(07 8 75&(,0EV* GV5& /(07 ( 875&(,0E*G5& 8^k<%0^k<0E6EV5:^k<0G6GV55& N 8 ( /(,072( $ ( 75 .,'( N O( /(,072( $ 75 .,'( /(,072( $ 75& . <(,& B à i 1 2% E G 0 )\E* G ,'Al5 W!_#i% #$!i& #'('& ) E*G*m(,& -( /(,01% W_#i% #$ i45& /(,07666666666666666666666666666666666675& /(07 E875&(,0E5& /(07 G 875&(,0G5& N EO8V ( -( .,'( . m8(E0G9,0E55& /(,07En G 8 7*mR5& . /(,07CE ,' 75& <(,& B à i 1 3%o % !!M$!% #$& #'('& ) **((& % p -( . ",'& /(,07 % M$% #$75& /(,07666666666666666666666666666666666675& /(07875&(,05& 8S& q8S 89& /(,0* 7o8 7*5& <(,& B à i 1 4 %E 0)\ ,'A Gf>H c5 % !W!_#i!% #$!& #'('& ) **E((& ,(,& -( . /(,07 % W_#i% #$ i75& /(,07666666666666666666666666666666666675& /(07 E875& (,0E5& /(07875&(,05& ,8S& q8S ,8,9E& /(,0E* 7n7**7 8 7*,R5& <(,& B à i 1 5 %e^ 8 ∑ S 8Vo % !%@MS& #'('& )**((& '(,& -( ",'& /(,07" #@M%< % %@M75& /(,07666666666666666666666666666666666666666675& /(07 875& <(,05& 8S& '8S& q8S -( .& 89& '8':SP& . /(,07% ^8 7*'r5& <(,& % ; B à i 1 6 %e^ 8 ∑ E 8S % !%@M& #'('"& )*((& E*'*,(,& -( ",'& /(,07% %@M_#i% #$75& /(,07666666666666666666666666666666666675& /(07 E875&(,0E5& /(07 875&(,05& '8V& ,8S& q8S -( .& ,8,9E & '8':, & . /(,07% ^8 7*'r5& <(,& n i B à i 1 7 %e^ 8 ∑ x i= V io % !%@Ma& #'('"& ) **((& E*'*,(,& -( ",'& /(,07% %@M_#i% #$PM$% #$75& /(,076666666666666666666666666666666666666666666666666675& /(07 E875&(,0E5& /(07 875&(,05& '8& 8S& ,8S& q8S -( .& ,8,9E & 89& '8':,P & . /(,07% ^8 7*'r5& <(,& B à i 1 8% BU = 'A + 'A + ' e =, JT = 'A +g 'AF0 + 8 a :+ a : a 5%L!^@& #'('& % s ) *t*>((& -( /(,07" #@M %< %L^@75& /(,07666666666666666666666666666666666675& q8S u qt8V u q>8V u N0SVV9:SV9t:>58099 : t9t9t: >9>9>5( /(,0*t*>*7 8 7**7na: 7*t*7na :7*>*7na75& . <(,& Bài 19 'A Gf >H c* >D E( U,'A GfA G>Hj ^@!M#i.!%@& #'('& ) * ((& -( ",'& /(,07C.L%<$ ^@ M#i.%@75& /(,07666666666666666666666666666666666666666675& /(07'>( 8 75&(,05& N 08V508S5( /(,0*7 C , ' G( 75 .,'( -( .& 8S& <(( 8 :S& #, 0 8V5 09O5& N 9O (/(,0*7, 'G( 75 .,'( /(,0*7 > ,' G( 75& . <(,& B à i 2 0='A GfA`Tv +g0,'AGf >H c FJK ]+5 "$"!^@!M#i.!%@& #'('& ) ** ((& -( ",'& /(,07 <$ "$"^@M#i.^@Z875& /(,0766666666666666666666666666666666666666666666675& /(07 875&(,05& N Z( /(,07C ' G( Z87*5 .,'( -( /(,07"'G( Z87**7,75& q8 -( 8S& % r .& <(,& . .& <(( 8 :S& #,0 8V5 09O5 & N09O5( /(0R5& Bài 21 a,w'Awx Fe dG B U = e K FJK a, w f 'A w ] 2@!%.& #'('"& ) E*G*m***t**',& -( ",'& /(,07" #@M%< 2@ %.75& /(,0766666666666666666666666666666666666666675& /(07 ' ( 8 75&(,05& /(07 , ( S 75&(,0E5& /(07 , ( 75&(,0G5& /(07 , ( a 75&(,0m5& /(,07_ 7*E;*7 _7*G;*7 _7*m;5& q8V 0 E5 qt8V 0 G5 q 8 V 0 m5 N09E:t9G:9m85 ( /(, 0r*tS*SV5& . <(,& B à i 2 2 %y c y ` %c Fz yy %c g y + %c ++ ` + f {,j %<$L%<$#!%<$L"@& #'('& ) **((& -( ",'& /(,07%<$L%<$#%<$L "@75& /(,07666666666666666666666666666666666675& /(,07% % %75& q8VV q8Vaa q 8V SVV N00p9:a9:Pa8SVV5 0::8SVV55( /(,0;* S* Sp5& <(,& . % u [...]... 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... 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:... 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 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... phan tu tren hang chan la = ',sum2(a,n)); Writeln('Tong can bac hai cac so khong am tren cot le = ',sum3(a,n):6:2); Writeln('So phan tu trong khoang[1 5] = ', count(a,n)); Readln; End 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 Input(Var a:MT;... do Write(a[i]:4); 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.. .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) *****... ');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 Clrscr; Writeln('DIEM SO LAN XUAT HIEN CUA 1 KY TU');... '); Write('Nhap chuoi ky tu la:');readln(st); Write('Nhap ky tu x=');readln(x); dem:=0; For i:=1 to 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;... 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 SANG... tong la: ',c.bac); Write('Cac he so lan luot la: '); For i:=0 to c.bac do Write(c.heso[i]:2); Readln; End Bài 51: Viết chương trình nhập vào một dãy số nguyên có n phần tử Trang 28 a Sắp xếp dãy theo thứ tự tăng dần và in kết quả ra màn hình b Nhập vào một số x bất kì, đếm số lần xuất hiện của nó trong dãy trên c In ra màn hình số phần tử nhỏ hơn hoặc bằng x d In ra màn hình số phần tử lớn hơn x Program . <(,05& /(07 875& <(,05& E8& N +OE(E8+& N OE(E8& /(,07^ , ,7*ER5& <(,& Bài 8 :%=[ ` BR 'A*+* *0*+** FJK]+ 5 %L!^@!. ( ( 75& /(,07E87*EPR*7 G87*GPR5& . <(,& Bài 10 bSH F ,EcG dGGD Fe I 'Ab fJ+g+fb*+fh*+f cG 2@!M@!. %L^@75& /(,07666666666666666666666666666666666675& q8S u qt8V u q>8V u N0SVV9:SV9t:>58099 : t9t9t: >9>9>5( /(,0*t*>*7 8 7**7na: 7*t*7na :7*>*7na75& . <(,& Bài 19 'A Gf >H c* >D E( U,'A GfA G>Hj ^@!M#i.!%@& #'('& ) * ((& -( ",'& /(,07C.L%<$ ^@ M#i.%@75& /(,07666666666666666666666666666666666666666675& /(07'>( 8 75&(,05& N 08V508S5( /(,0*7 C , ' G( 75 .,'( -( .& 8S& <(( 8 :S& #, 0 8V5 09O5& N 9O (/(,0*7, 'G( 75 .,'( /(,0*7 > ,' G( 75& . <(,& B