Đang tải... (xem toàn văn)
61 bài tập cơ bản cho người mới học Pascal
B à i 1 ! " #$ %&' %() * # &+, %- ." ( **# )/0/12 03 *%2 4*5655 *32 3 7+( **2 8*%39:);)7)<04))01=>2 8*%39:??????????????????????????????????????????????????????????????:>2 8*%39@ 3. +A@>2 *3+9>2 8*%39@ 3. *A@>2*3+96>2 AB62 A9C6>B 2 8*%39@;3 %.%=5 >2 8*%39@. .%@5 >2 D3+2 B à i 2 6E F- "&%*G() *#&+,%-."( **# )DH2 03*%2 4* *5+%5*32 3 **2 8*%39@);)7)< 04))DH@>2 8*%39@??????????????????????????????????????????????????????@>2 8*%39@ 6F DA@>2*3+9*>2 +%AB*B*2 A BB*2 8*%39@;3 % %* @5+% >2 8*%39@. %* @5 >2 D3+2 7+( B à i 3 Tính tam giácIJ 6 K5656L%F& (MN# %*O3#%N P$ +6 ! Q FR5 S. FR %& * # & @ M 6 . #% %# @(T ! 5%&+,%-5."%#E *# &( **# 1U)12 03*%2 4* 56555*32 3 **2 8*%39:1)H11U )1=>2 8*%39@?????????????????????????????????@>2 8*%39@ A@>2*3+9>2 8*%3 9@6 A@>2*3+96>2 8*%39@ A@>2*3+9>2 )V 99C6>W>+996C>W>+99C>W6> %3 3 7 3 XY*.9Z[\\]^[^_> 7+ A9 C6C >` 2 Aa *%9B 9? >B9 ? 6>B9 ? >>2 8*% 39@ . %# @ 5 B ^ > 2 8*% 39@ ;3 % %# @5^ >2 * XY*.9Z[\\]^[^_> 7+( 8*%395=5:5 65=5:5 5 : F 6. %# @>2 D3+2 B à i 4 4S%Tb %*& Tb %*& 69O C 6AZ> **# )1)/0H/D)/1/12 4* 565O*32 3 **2 8*%39@)1)0HD)111cC AZ@>2 8*%39@????????????????????????????????????????????????????????????@>2 8*%39@ A@>2 *3+9>2 8*%3 9@ 6A@>2*3+96>2 )V9AZ> %3 )V96AZ>%3 8*%39@ .%* 3#@> 73 73 d*%39@ . %* 3#@> 7+( 8*%39@.%* 3# OA@5?6`^ >2 D3+2 B à i 5 4S%Tb %*&6L% Tb %*&69O C 6 e Z> **# 1/0H/D)/1)2 03*%2 4*56*32 3 **2 8*%39@)1)1 0H D)1 11cCWAZ@>2 8*%39@??????????????????????????????????????????????????????????????????????@>2 8*%39@A@>2*3+9>2 8*%39@ 6A@>2*3+96>2 )VfWZ %3 )VWZ %3 8*%39@% . %* 3# OWA@5?6`^ > 738*%39@%. %* 3# OfA@5?6`^ > 73 )V6WAZ%38*%39@%.%* 3#@> 73 d*%39@% .%* 3#@>2 7+(( D3+2 B à i 4S%Tb %*&Tb %*& 6 9O C6OC AZ> (**# )1)/0H/D)/1))2 03*%2 4* 5655+5O5O5O *32 3 8*%39@)1)0HD)1))@>2 8*%39@???????????????????????????????????????????@>2 8 *% 39@3 A@>2*3+9>2 8*%39@3 6A@>2*3+96>2 8*%39@3 A@>2*3+9>2 * )V AZ %3 )V 6AZ%3 )V AZ %3 8*%39@.%* 3#@> 73 73 8*%39@.%* 3#@> 73 3 8*%39@.%* #%3# OA@5?`6^ > +A6B6?^BB2 )V +AZ%3 8*%39@.%* 3# F3 OA@5?6`9 B>^ > 73 )V +fZ%3 8*%39@.%* 3#@> 7+( 7+2 D3+2 73 3 7+2 OA9?6Ca*%9+>>`9 B>2 O A9?6?a*%9+>>`9 B>2 8*%39@.%* 3# :>2 8*%39: OA@5O^ 5@ O A@5O ^ >2 B à i 7 &# E%*gh L%%*^K 5655 + 95655PT%i6 -#>( **# )U/H/H/12 03*%2 4* 5655+5#O*32 3 7+( **2 8*%39@)UHH1DHHH1555;@>2 8*%39@???????????????????????????????????????????????????????????????@>2 8*%39@A@>2D3+9>2 8*%39@ 6A@>2 D3+96>2 8*%39@ A@>2 D3+9>2 8*%39@ +A@>2 D3+9+>2 #OA2 )V 6W#O%3#OA62 )V +W#O%3#OA+2 8*%39@ %@5#O^ >2 D3+2 Bài 8 : &#E%*g j L%%*^ K565 5+95655 PT%i6 -#>( **# )U/H/H/12 03*%2 4* 5655+5#*32 3 **2 8*%39@)UHH1DHH H15 55;@>2 * _ 7+( 8*%39@???????????????????????????????????????????????????????????????@>2 8*%39@A@>2D3+9>2 8*%39@ 6A@>2 D3+96>2 8*%39@ A@>2 D3+9>2 8*%39@ +A@>2 D3+9+>2 #A2 )V 6f#%3#A62 )Vf#%3 #A2 )V +f#%3#A+2 8*%39@ % @5#^ >2 D3+2 B à i 9 ,Tb %*& %.QS %- O + 6Q = # O + +Q = **# )1)/7/1)/12 03*%2 4* 5655+5#5*32 +O5+Q5++*32 3 **2 8*%39@ )1) 71)1@>2 8*%39@??????????????????????????????????@>2 8*%39@ A@>2*3+9>2 8*%39@ 6A@>2*3+96>2 8*%39@ A@>2*3+9>2 8*%39@ #A@>2*3+9#>2 8*%39@ A@>2*3+9>2 ++AB+?6B2 +OA#B+?6B2 +QAB?B#2 )V ++AZ%3 )V 9+OAZ>+9+QAZ>%3 8*%39@3 3#3#@> 73d*%39@3 3#@> 73 3 7+2 8*%39@3 3# @>2 8*%39@OA@5+O`++^ 5@ QA@5+Q`++^ >2 7+( D3+2 Bài 10 %R , P OJQ(kQ.QN P S%*# & K% %*Y+Th+!6l6Y.56Y.m%56Y. JQ( **# ;H)/)H/0/)1n2 03*%2 4* 5.%5Q5 O %2 3 **2 8*%39@;H) 1 )H 0)1n@>2 * ^ 7+( 8*%39@??????????????????????????????????????@>2 8*%39@ Q @>2*3+9O>2 AO+ _ZZ2 OAO #+_ZZ2 .%AO + Z2 OAO #+Z2 8*%39@M3%a.A@5 5@ @5.%5@.%@5O5 @Q@>2 D3+2 B à i 1 1 %J# 6E F- "#$% PT %*G(. P #$% PN # 19O5 Q> 6L%F& FN# %*O3# %.$ PT %*G Q FRo **# M)7U/D1/;)7U/0H/;0H/DH2 03*%2 4* OZ5QZ5O5Q5+5**32 3 8*%39@M)7UD1 ;)7U0H;0H DH@>2 8*%39@????????????????????????????????????????????????????????@>2 8*%39@6 FDA@>2*3+9*>2 8*%39@ %+%#+. %*A @>2*3+9OZ5 QZ>2 8*%39@ %+ +3# A@>2*3+9O5Q>2 +ApD9pD9O?OZ>CpD9Q?QZ>>2 )V *A+ %3 8*%39@;3# 1# %*3 +.%*@> 73 )V +W*%3 8*%39@;3# 1 # +. %*@> 73 8*%39@;3# 1# %*+.%*@>2 7+( D3+2 B à i 1 2 - O Q 9 4hO5 Q K%q>( **# c/0n01/n2 03*%2 4* O5Q5r*32 3 8*%39:)c0n01 n=>2 8*%39@??????????????????????????????????@>2 8*%39@ OA@>2*3+9O>2 8*%39@ Q A@>2*3+9Q>2 )V OWAZ %3 3 73 7+ rA3O9QB9O>>2 8*%39@Os Q A @5r^ >2 7+( 8*%39@M%+.+O #@>2 D3+2 B à i 1 3 -t **# )/ /)1)/01203*%2 4* 55%%33*2 * ] [...]... 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 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(' ... 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) then Writeln; Write(i:3) End; Readln; End Bài 24: Tạo hình a) * ** *** **** ***** b) *****... 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 = c2 Type MT = Bài 37: Hãy viết chương trình nhập giá trị cho ma trận vuông cấp n array[1 a Tính tổng các phần tử nằm trên đường chéo chính 20,1 20] b Tính tổng bình... ',n,' la:'); For i := 2 to n do Begin t:= 1; Trang 8 Repeat t:= t+1; Until ( i mod t = 0) or ( t*t>i ) ; If( t*t>i) then Write(i:4); End; End; Readln; End Bài 21: Nhập 3 loại tiền và số tiền cần đổi Hãy tìm tất cả các tổ hợp có được của 3 loại tiền trên cho số tiền vừa nhập Program DOI_TIEN; Uses Crt; Var x,y,z,n,i,j,h,s:longint; Begin Clrscr; Writeln('CHUONG TRINH DOI TIEN:'); Writeln(' ... 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 x ='); readln(x); Write('Nhap n ='); readln(n); lt:=1; For i:=1 to n do lt:=lt*x; Writeln(x, '^',n,' = ',lt:4:2); Readln; End n Bài 15: Tính tổng S = ∑ 1 i=0 i! Program... 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); W r i te('Nhap n = '); readln(n); Writeln(a,'^',n,' = ',lt(a,n)); Readln; Trang 11 End Bài. .. 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 LUY THUA:'); Writeln(' '); Write('Nhap x = '); readln(x); Write('nhap n = '); readln(n) ; s:=0; lt:=1; For i:=1 to n do Begin lt:=lt*x ; s:=s+lt ; End; Writeln('Tong S = ',s:8:2); Readln; End n Bài 17: Tính tổng S = ∑ i x i= 0 i!... 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... 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'); 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);... End; menu; Readln ; 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