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 [...]... 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... C(k,n:integer):real; Begin C:=gt(n)/(gt(k)*gt(n-k)); End; Begin Clrscr; Writeln('VIET TAM GIAC PASCAL: '); Writeln(' -' ); 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.. .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-9 9'); 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) *****... 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 n = '); readln(n); Write('Nhap k = ');readln(k); Writeln('C(',n,',',k,') = ',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... Bài 32: Viết chương trình tìm số đảo của một số nguyên dương Ví dụ: - Số = 12345 - Số đảo = 54321 Program TIM_SO_DAO; Uses crt; Var n:longint; Function daoso(n: longint):longint; Var s:string; ch:char; i,l,code:integer; kq:longint; Begin str(n,s); For i:=1 to length(s) div 2 do Begin ch:=s[i]; s[i]:=s[length(s)-i+1]; s[length(s)-i+1]:=ch; End; val(s,kq,code); daoso:=kq; End; Begin Clrscr; Writeln('... 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:... Uses Crt; Var i,j,n,m: integer; Begin Clrscr; Writeln(' TAO HINH C'); Writeln(' '); Write('Nhap so dong n= ');readln(n); For i:= 1 to n do Begin Gotoxy(n-i+5,i+5); For j:=1 to 2*i-1 do Write('*'); Writeln; End; Readln; 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... ',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! :'); Writeln(' -' ); Write('Nhap n = '); readln(n); Writeln(n,'! = ',gt(n)); Readln; End Bài 28: Tính C kn (dùng chương trình... ',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 tử có giá trị trong... 21 End; Begin Clrscr; Writeln('TIM MA TRAN CHUYEN VI'); Writeln(' -' ); Write('Nhap vao cap ma tran vuong n = ');readln(n); Input(a,n); Writeln('Ma tran a la:'); Output(a,n); Chuyenvi(a,n); Writeln('Ma tran chuyen vi b la:'); Output(a,n); Readln; End Bài 41: Viết chương trình nhập vào một dãy số nguyên có n phần tử In ra màn hình phần tử nhỏ nhất, phần tử lớn nhất và giá trị trung bình . " # $%45& /(,01666666666666666666666666666666666666666666666666666666666666 6615 & /(07 ( 875& (,05& /(07 ( 875&(,0+5& '89+& 80:+59& /(,072( ,4*';5& /(,07" 7*;5& <(,& B
Ngày đăng: 18/04/2014, 15:00
Xem thêm: Giáo án - Bài giảng: Công nghệ thông tin: Bài tập Pascal có đáp án (Full), Giáo án - Bài giảng: Công nghệ thông tin: Bài tập Pascal có đáp án (Full)
