Thông tin tài liệu
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 [...]... 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... 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 = 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... menu; Readln; End Trang 14 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.. .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) *****... tri nho nhat la:',Min); 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... Writeln('Ho 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... 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... 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. .. st[i]st[length(st)-i+1] then ok:=false; If ok then Writeln(st,' la chuoi doi xung') Else Writeln(st, ' khong la chuoi doi xung'); Trang 25 Readln; End Bài 47: Viết chương trình nhập vào họ tên của một người Sau đó in chuỗi họ tên ra màn hình với các ký tự đầu đổi thành chữ hoa, toàn bộ chuỗi họ và tên đổi thành chữ hoa Program DOI_CHUOI_CHU_HOA; Uses Crt; Var i:integer;st:string; Begin Clrscr; Writeln('DOI... 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; n,m:integer); Var . <(,05& /(07 875& <(,05& G8& P +QG(G8+& P QG(G8& /(,07` , ,7*GT5& <(,& Bài 8 : %=] b DT 'C*+* *0*+** HLM_+ 5 %N!`@!. ( ( 75& /(,07G87*GRT*7 I87*IRT5& . <(,& Bài 10 dUJ H ,GBI eIIF Hf K 'Cd gL^+h+gd*+gi*+g BI 2@!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
Ngày đăng: 31/01/2015, 11:11
Xem thêm: các bài tập passcal cơ bản, các bài tập passcal cơ bản
