Đang tải... (xem toàn văn)
Ôn tập Pascal
TRƯỜNG CAO ĐẲNG BẾN TREKHOA CÔNG NGHỆ THÔNG TIN………………………………………………………………………………………………………(Trích dẫn có hiệu đính và bổ sung từ bộ bài tập Pascal của Trường Đại học Khoa học tự nhiên Thành Phố Hồ Chí Minh)Vương Đức BìnhBÀI ÔN TẬP NGÔN NGỮ LẬP TRÌNH PASCAL.PHẦN CƠ SỞ.I. PHẦN LÝ THUYẾT1. Các danh hiệu pascal nào dưới đây là hợp lệ ? Xray X-Ray Jeremiah R2D2 3M PDQ123 PS:175 X 4 N/4 SM ZZZZZZ night ng to day2. Cho biết hằng nào dưới đây là nguyên, thực hoặc không phải nguyên/thực: 12 12. 12.0 ‘12’ 8+4 -3.7 3.7 -1.024 +1 $3.98 0.357E4 24E0 E3 five 3E.5 .000001 1.2 x 10 -(-1) 0E0 ½3. Các hằng chuỗi nào dưới đây hợp lệ ? ‘X’ ‘123’ YS’ ‘tooyet’ ‘DO’’ESNT’ ‘isnt’ ‘t’ ‘constant’ ‘S1.98’ ‘DON’T’ ‘12+34’ ’’’twas’ ‘A’‘B’‘C’4. Hãy viết các đoạn biến để khai báo biến:a. Item, Number và Job kiểu real.b. ShoeSize kiểu integer.c. Mileage kiểu real, Cost và Distance kiểu integer.d. Alpha và Beta kiểu integer, Code kiểu char, e. Root kiểu real, và RootExists kiểu boolean.5. Hãy viết các đoạn hằng đặt tên cho các hằng với tên tương ứng:a. 1.25 với tên Coefficient.b. 40.0 với tên RegHours và 1.5 với tên OvertimeFactor.c. 1776 với tên Year, ‘F’ với Female và ký tự trắng với Blank.d. True với tên Exists, 0 với Zero, * với Asterisk, dấu nháy đơn với Apostrophe và chuỗi CPSC151A với Course.6. Tìm trị các biểu thức sau và giải thích tại sao biểu thức không hợp lệ:a. 9-5-3b. 2 div 3+3/5c. 9 div 2/51 TRƯỜNG CAO ĐẲNG BẾN TREKHOA CÔNG NGHỆ THÔNG TINd. 9/2 div 5e. 2.0/4f. (2+3) mod 2g. 7 mod 5 mod 3h. (7 mod 5) mod 3i. 7 mod (5 mod 3)j. (7 mod 5 mod 3)k. 25*1/2l. 25*1 div 2m. 25*(1 div 2)n. -3.0*5.0o. 5.0*-3.0p. 12/2*3q. ((12+3) div 2)/(8-(5+1))r. ((1`2+3) div 2)/(8-5+1)s. (12+3 div 2)/(8-5+1)t. sqrt(sqr(4))u. sqrt(sqr(-4))v. sqr(sqrt(4))w. sqr(sqrt(-4))x. trunc(8/5)+round(8/5)7. Nếu R1 và R2 kiểu Real, I1 I2 I3 kiểu integer và R1=2.0, R2=3.0, I1=4, I2=5, I3=8, tìm trị của:a. R1 + R2 + R2b. I3 div 3c. I3/3d. (R1+R2) * I1e. I3 div I2 * 5.1f. Sqr(I1) / sqr(R1)g. Sqr(I2) / sqr(R1)h. Sqrt(R1 + R2 + I1)8. Viết biểu thức Pascal để tính:a. 10 + 5B - 4ACb. Ba lần của hiệu 4-n chia cho 2 lần m2+n2c. Căn bậc hai của a+3b2d. Căn bậc hai của trung bình cộng của m và ne. |A / (m+n)| ( |x| là trị tuyệt đối của x)f. Lượng thực Amount làm tròn đến phần trăm gần nhất.9. Giả định Number thuộc kiểu integer, xValue và yValue kiểu Real, Grade kiểu char, Found kiểu boolean. Hãy xác định mệnh đề gán Pascal nào dưới đây hợp lệ. Nếu không hợp lệ hãy giải thích tại sao.a. xValue := 2.71828b. 3 := Number2 TRƯỜNG CAO ĐẲNG BẾN TREKHOA CÔNG NGHỆ THÔNG TINc. Grade := ’B+’d. Number := Number+1e. xValue := 1f. Greade := Ag. Number+1 := Numberh. Xvalue := ’1’i. Found := Gradej. yValue := yValuek. xValue := Al. Grade := Grade+10m. Found := ’True’n. xValue := Numbero. Number := yValue10. R1, R2, R3 và xCoord là các biến thực với R1 =0, R2 =3.0, R3 =4.0; I1, I2 và I3 là các biến nguyên với I1 =8, I2 =5; Numeral và Symbol là các biến ký tự với Numeral =’2’. Hãy cho biết trị gán cho các biến trong các trường hợp sau hoặc cho biết lý do mệnh đề không hợp lệ:a. xCoord := (R1+R2) * R2b. xCoord := R2+R1/R3) * 2c. xCoord := I1 / I2+5d. I3 := I1 div I2 + 5e. xCoord := sqr(I2) / sqr(I1)f. I3 := sqr(I2) / sqr(I1)g. Symbol := 4h. Symbol := Numerali. Symbol := ’4’j. Symbol := R3k. R1 := 2l. R1 := ’2’m. R1 := Numeraln. I1 := I1 + 2o. I3 := 1 + Numeralp. I3 := round(sqr(I1 mod I2)/R3)11. Viết lệnh gán thay đổi trị của biến nguyên Number với các trường hợp sau:a. Tăng Number lên 77b. Giảm Number bớt 3c. Tăng Number lên gấp hai lầnd. Cộng ký số cực phải của Number vào Numbere. Giảm Number bớt một trị là phần nguyên của số thực x12. Viết mệnh đề gán Pascal cho các trường hợp sau để tính trị của biểu thức và gán trị cho biến tương ứng. Giả định tất cả các biến thuộc kiểu real, trừ trường hợp có ghi rõ.a. Distance bằng Rate lần Timeb. X được tăng lên một lượng DeltaXc. Resistance bằng1/(1/R1 + 1/R2 + 1/R3)3 TRƯỜNG CAO ĐẲNG BẾN TREKHOA CÔNG NGHỆ THÔNG TINd. TArea là diện tích hình tam giác có cạnh đáy là b, chiều cao là h.e. Price bằng ba ký số cuối cùng của số nguyên StockNumber với dấu chấm thập phân ở trước hai ký số cuối (ví dụ nếu StockNumber là 1758316 thì Price được gán trị 3.16)f. Tax được làm tròn tới trị nguyên gần nhất.13. Với mỗi trường hợp dưới đây, hãy xác định trị của các biến nguyên a, b và c sao cho hai biểu thức có trị khác nhau:a. A * (b div c) và a * b div cb. a div b và a * (1/b)c. (a + b) div c và a div c + b div c14. Giả sử Alpha và Beta là biến thực có trị là -567.392 và 0.004, Rho là biến nguyên có trị 436. Hãy cho biết chính xác kết xuất trong các trường hợp sau và giải thích tại sao bị lỗi (nếu có):a. writeln(Rho); writeln(Rho+1); writeln(Rho+2); b. write(Rho); write(Rho+1); writeln(Rho+2);c. write(‘Alpha=’); write(Alpha:9:3); write(‘Beta=’:7); writeln(Beta:7:4);d. writeln(Rho:5, 2*Rho:5); writeln ;writeln(Beta:10:5);e. writeln(Alpha:8:1,Rho:5); writeln(‘Tolerance:’ Beta:8:5);f. writeln(‘Alpha=’,Alpha:12:5); writeln(‘Beta=’,Beta:6:2,’:4,’Rho=’,Rho:6); writeln(Alpha+4.0+Rho:15:3);g. write (‘Tolerance =’ :8 ) ; writeln (Beta : 5 : 3 ) ; writeln ; writeln; writeln (Rho : 2 , Alpha : 4 : 2) ;h. writeln ( 10 * Alpha : 8 : 1 , trunc (10 * Alpha) : 8 , round ( 10 * Alpha ) :8 ) ; writeln ( sqr ( Rho div 100 ) : 5 , sqrt ( Rho div 100 ) : 5 ) ;i. writeln ( ‘ Rho =’ : 7 , Rho : 8 : 2 ) ;writeln ( ‘ * * * * * ‘ ) ;j. write (Alpha : 10 ) ; write ; writeln ( Beta : 10 );15. Giả sử I, J là biến nguyên với I = 15 , J = 8, C và D là biến ký tự với C = ‘C’ và D = ‘ – ‘ , X và Y là biến thực với X = 2559.50 và Y = 8.015 . Hãy cho biết chính xác kết xuất trong các trường hợp sau :a. writeln( ‘ Newbalance = ‘ : I , X : J : 2 ) ; writeln( C : I mod 10 , Y : J : J – 6 ) ;b. write( ‘ I = ‘ , I ) ; write( I : I ) ; writeln( ‘ J = ‘ : J , J : J ) ;writeln ; writeln( I : J , J : I ) ; writeln( trunc ( X / J ) : J , J – Y : I : J , D : J div 7 )16. Giả sử N1 và N2 là biến nguyên có giá trị là 39 và –5117, R1, R2 là biến thực có giá trị là 56 . 7173 và –0.00247 , C là biến ký tự có giá trị là ‘F’ . Hãy viết lệnh để được các kết xuất trong từng trường hợp sau :a. __ 56.7173 __ F __ 39-5117PDQ-0.00247__b. __56.717___-0.0025 * * * 39__F ___56.72___39-5117__________c. ROOTS_ARE__56.717_AND_-0.002474 TRƯỜNG CAO ĐẲNG BẾN TREKHOA CÔNG NGHỆ THÔNG TINd. APPROXIMATE_ANGLES:__56.7_AND_______-0.0 MAGNITUDES_ARE_______39___AND______511717. Giả sử A, B, C là biến nguyên , X, Y, Z là biến thực. Hãy cho biết trị nào (nếu có ) gán cho biến nào và giải thích lí do sai (nếu có) khi thực hiện các lệnh sau với trị nhập tương ứng :a. readln (A, B, C, X, Y, Z ) ; nhập: 1 2 34 5.5 6.6b. readln (A, B, C) ; nhập: 1readln (X, Y, Z) ; 23456c. read (A, X) ; nhập: 1 2.2read (B, Y) ; 3 4.4read (C, Z) ; 5 6.6d. read (A, B, C) ; nhập: 1 2.2readln (X, Y, Z) ; 3 4.45 6.6e. read (A); nhập: 1 2 3readln (B, C); 4 5.5 6.6read (X, Y) ;readln (Z);f. readln (A); nhập: 1 2 3read (B, C) ; 4 5.5 6.6readln (X, Y);read (Z);g. read (A, B); nhập: 1 2 3readln ; 4 5.5 6.6read (C); 7 8.8 9.9readln(X); 10 11.11 12.12readln ; 13 14.14 15.15readln (Y);readln ;readln (Z);II. PHẦN THỰC HÀNH•Gõ vào máy và thực hiện chương trình BT1_1 . PAS sau: { = = = = = = = = = = = = = = = = = = = = = = = = = = = }{ Program : BT1_1. PAS }{ Date : dd/mm/yyyy }{ Notes : hien thi hang chuoi , nguyen va thuc }{ = = = = = = = = = = = = = = = = = = = = = = = = = = = }Beginwriteln( ‘ Day la chuong trinh dau tien cua toi ‘) ;5 TRƯỜNG CAO ĐẲNG BẾN TREKHOA CÔNG NGHỆ THÔNG TINwriteln ;writeln( ‘ Day la mot chuoi ‘ );writeln( ‘ Day la mot so nguyen : ‘ , 12345);writeln( ‘ Day la mot so thuc ( dang dong ) : ‘ ,123.45 );writeln( ‘ Day la mot so thuc ( dang tinh ) : ‘ ,123.45:7:3);writeln ;write( ‘ xem xong bam Enter ; ) ; readln ;End.Hướng dẫn (Trong môi trường Windows)1. Kích hoạt chương trình Windows Explorer để tạo một folder sẽ dùng lưu trữ các file chương trình của Pascal (Ví dụ: C:\BT_PAS)2. Kích hoạt chương trình Borland Pascal (Thực hiện Run: \\BP\BIN\BP.EXE)3. Thông qua menu [Options] -> [Directories] xác lập giá trị C:\BT_PAS cho mục [EXE and TPU directories] -> [OK].4. Thông qua menu [File]-> [Change Dir] chọn thư mục làm việc mới là C:\BT_PAS.5. Thông qua menu [Options] -> [SAVE BP.TP] để lưu lại các xác lập trên. 6. Mở cửa sổ soạn thảo mới ([File]-> [New]).7. Gõ chương trình với nội dung trên vào cửa sổ soạn thảo. Gõ xong nhấn F2 (để lưu lên đĩa với tên BT1_1.PAS).8. Nhấn phím F9 để biên dịch chương trình trên. Nếu có lỗi thì sửa lỗi (nhớ nhấn F2 để Save lại mỗi khi có thay đổi văn bản chương trình). Thực hiện cho đến khi nào việc biên dịch thành công.9. Nhấn Ctrl_F9 (giữ phím Ctrl và nhấn F9) để chạy chương trình.•Gõ vào máy và thực hiện chương trình BT1_2.PAS sau: Program BT1_2;(*Date :dd/mm/yyyyNotes : Nhap so nguyen va chuoi roi xuat ra man hinh*)Uses crt; (* Thu vien CRT chua thu tuc CLRSCR xoa man hinh *)Var I: integer; S: string[20]; (* khai bao chuoi s co chieu dai 20 *)BeginClrscr;Write(‘Hay go vao mot so nguyen’); Readln(i);Writeln(‘so cua ban la’,i);Write(;’Hay go vao mot chuoi:’); Readln(s);Write(‘chuoi cua ban la’,s); Writeln;Write(‘xem xong bam Enter’):readln;End.•Gõ vào máy và thực hịện chương trình BT1_3.PAS sau: 6 TRƯỜNG CAO ĐẲNG BẾN TREKHOA CÔNG NGHỆ THÔNG TINProgram: BT1_3;(*Date :dd/mm/yyyyNotes : Nhap 2 so thuc , cong, tru, nhan, chia 2 so roi hien thi ( so thu hai khac 0)*)Uses crt;Var so1, so2, cong, tru, nhan , chia:real;BeginClrscr;Write(‘cho so thu nhat :’); readln(so1);Write(‘cho so thu hai :’); readln(so2);Cong:=so1+so2; Tru:=so1-so2; Nhan:=so1*so2; Chia:=so1/so2;Writeln;Writeln(‘so1+so2=’,cong);Writeln(‘so1-so2=’,tru);Writeln(‘so1*so2=’,nhan);Writeln(‘so1/so2=’,chia);Writeln;Writeln(‘so1+so2=’,cong:10:3);Writeln(‘so1-so2=’,tru:10:3);Writeln(‘so*so2=’,nhan:10:3);Writeln(‘so1/so2=’,chia:10:3);Writeln;Write(‘Nhan xet va xem xong bam Enter’); readln;End.•Gõ vào máy và thưc hiện chuơng trình BT1_4.pas sau Program:BT_4;(*Date:dd/mm/yyyy Notes:hien thi 3 hinh tam giac*)uses crt;Beginclrscr;write(‘ * * * * * * * * * ’);write(‘ * * * * * * * * * * * ‘ );write(‘ * * * * * * * * * * * * * ‘);write(‘ * * * * * * * * * * * * * * *’);write(‘xem xong bam enter’);readln;End.•Viết chương trình BT_5 .PAS tính diện tích hình chữ nhật khi biết chiều dài và chiều rộng, kết quả trên màn hình có dạng:= = = = = = = = = = = = = = = = == = = 7 TRƯỜNG CAO ĐẲNG BẾN TREKHOA CÔNG NGHỆ THÔNG TINTINH DIEN TICH HINH CHU NHAT = = = = = = == = == = = = = = = = = = Xin cho biet chieu dai : xxxxXin cho biet chieu rong : xxxxDien tich la : xxxxxxxxHướng dẫn.Nhập: Dai ,RongXuất : Dien tichGiải thuật1. Nhap Dai va Rong2. Tính Dien tich = Dai * Rong3. Xuất Dien Tich•Viết chương trình BT_6.PAS tính diện tích và chu vi hình tròn khi biết bán kính, kết quả trên màn hình có dạng.= = = = = = = = = = = = = = = = = = = = = = =TINH DIEN TICH & CHU VI HINH TRON= = = = = = = = = = = = = = = = = = = = = = =Xin cho biet ban kinh:xxx.xChu vi :xxxxxx.xDien tich :xxxxxx.xHướng dẫn:Nhập:Ban kinhXuất: Chu vi Dien tichGiải thuật:1. Nhập bán kính2. Tính chu vi =2*ban kinh*pi3. Dien tich =ban kinh*chu vi*pi (pi là hằng trị được định nghĩa sẳn của Unit CRT)4. Xuất Chu vi,Dien tich•Viết chương trình BT1_7.PAS tính tổng, hiệu, tích, thương và dư của hai số nguyên, kết quả trên màn hình có dạng:= = = = = = = = = = = = = == = == = = = == = = = = = = = = = = = = TINH TONG, HIEU, TICH, THUONG, DU CUA HAI SO NGUYEN= = = = = == = = = = = = = = = = = = = = = = = = = = = = = = = = = =Cho biet so thu nhat: xxCho biet so thu hai: xxTong = XXXXHieu = XXXXTich = XXXXThuong = XXXXDu = XXXXHướng dẫnNhập:So1, So28 TRƯỜNG CAO ĐẲNG BẾN TREKHOA CÔNG NGHỆ THÔNG TINXuất: Tong, Hieu, Tich, Thuong,DuGiải thuật:1. Nhập: So1, So22. Tính Tong = So1+So2Hieu = So1-So2Tich = So1*So2Thuong = So1/So2Du = So1 MOD So23. Xuất Tong, Hieu, Tich, Thuong, Du9 TRƯỜNG CAO ĐẲNG BẾN TREKHOA CÔNG NGHỆ THÔNG TINLỆNH RẺ NHÁNHI. PHẦN LÝ THUYẾT1. Giả sử a,b,c là các biến Bool, dùng bảng sự thật (chân trị) để tính trị các biểu thức Bool sau với mọi trị của a,b,c.a. a or not b b. not (a and b)c. not a or not b d. a and True or (1+2 = 4)e. a and (b or c) f. (a and b) or (a and c)18. Viết biểu thức Bool biểu thị các điều kiện sau:a. x lớn hơn 3b. y giữa 2 và 5c. R âm và Z dươngd. Alpha và Beta đều dươnge. Alpha và Beta cùng dấu (dương hoặc âm)f. -5 < x < 5g. a nhỏ hơn 6 hay lớn hơn 5h. p = q = ri. Chỉ một trong hai trường hợp: x nhỏ hơn 3 hoặc y nhỏ hơn 319. Cho 3 biến Bool a, b và c, hãy viết biểu thức Bool đểa. Đúng nếu và chỉ nếu a và b đúng, c saib. Đúng nếu và chỉ nếu a đúng v à ít nhất b hay c đúngc. Đúng nếu chỉ nếu hoặc a hoặc b đúng20. Viết lệnh đọc ba số thực và gán trị True hoặc false cho các biến Bool sau:a. Triangle: True nếu ba số thực có thể biểu thị chiều dài các cạnh của một tam giác và false nếu không . (Tổng của hai số phải lớn hơn số thứ ba )b. Equilateral: True nếu Triangle là True và tam giác là đều (ba cạnh bằng nhau )c. Isoceles : True nếu Triangle là True và tam giác là cân (ít nhất có hai cạnh bằng nhau )d. Scalene: True nếu Triangle là True và tam giác là lệch ( không có hai cạnh bằng nhau )21. Viết mệnh đề Pascal cho mỗi trường hợp sau:a. Nếu TaxCode là ‘T’ tăng Price bằng cách cộng TaxRate vào nó.b. Nếu Code là 1, đọc trị vào x và y , tính và in tổng của x và y .c. Nếu A ở giữa 0 và 5 ,cho B bằng 1/ A2 , nếu không cho B bằng A2 .d. Gán trị True cho biến Bool LeapYear nếu biến nguyên Year có trị là năm nhuần . (Năm nhuần là bội số của 4 , nếu là bội số của 100 thì phải là bội số của 400 ) .e. Gán trị cho Cost tương ứng với trị của Distance theo bảng sau :Distance Cost0 đến 100Lớn hơn 100 nhưng không lớn hơn 500Lớn hơn 500 nhưng nhỏ hơn 10005.008.0010.0010 [...]... tên tắt của tháng Abbrev như ở bài tập 1 và tìm hậu tử thứ n của Abbrev Hậu tử thứ 0 của Abbrev chính là Abbrev; với n>0, hậu tử thứ n của Abbrev là thánh thứ n sau Abbrev Ví dụ hậu tử thứ tư của Aug là Dec và thứ sáu của Aug là Feb Bài tập 5 Như bài tập 4 nhưng với hàm hoặc thủ tục đệ qui Bài tập 6 Viết hàm có các tham đối là một tháng kiểu MonthAbbrev (xem như bài tập 1) và năm trong khỏang từ 1538... kiểu Numeral ( Hướng dẫn: dùng hàm ord và chr) Bài tập 3 Cho kiểu MonthAbbrev ở bài tập 1, tìm trị của các biểu thức sau: (a) Jan . Thành Phố Hồ Chí Minh)Vương Đức BìnhBÀI ÔN TẬP NGÔN NGỮ LẬP TRÌNH PASCAL. PHẦN CƠ SỞ.I. PHẦN LÝ THUYẾT1. Các danh hiệu pascal nào dưới đây là hợp lệ ? Xray. CAO ĐẲNG BẾN TREKHOA CÔNG NGHỆ THÔNG TIN………………………………………………………………………………………………………(Trích dẫn có hiệu đính và bổ sung từ bộ bài tập Pascal của Trường Đại học