Phần 1 Bỏi tập
§1 GIỚI THIỆU TURBO PASCAL
£ Cđu hỏi, vĩ dụ, bồi tập
1 Em hêy nói cach vĩo ra Turbo Pascal 2 Nĩu cach chay chuong trinh Turbo Pascal
3 Hay mĩ ta thuc don cua Pascal
4, Hiĩn tai đang có những chương trình Turbo
Pascal nao?
5 Dĩ chay va lap trinh được trín ngôn ngữ Poscal, em can có tối thiểu câc tĩp (file) nao?
Trang 54 Pascal dănh cho học sinh
a Ghi file uăo đĩa,
b Hay thay thế tốt củ câc chữ “Write” thanh
"Writeln”
c Chuyển hai dòng thứ 7 uă thứ 8 uăo giữa hơi
dong thứ 5 va thi 6
d Đânh dấu khối câc dòng từ dòng thứ 4 đến dòng thứ 8 sao chĩp uùăo sât trín dòng thứ 9
e Ghi file uừa thay đổi uăo đĩa uới tín HELLO1.PAS
(ding lĩnh Save As)
7 Mở file HELLO1.PAS va ghi vao dia thanh bĩn file
bhâc với tín lă HELLO2.PAS, HELLO3.PAS, HELLO4.PAS vĩ HELLOS8.PAS
a Mĩ lđn lượt tất cả câc file HELLO1,PAS,
HELLO2.PAS, HELLO3.PAS, HELLO4.PAS ở HELLOB.PAS
b Chuyển đến câc cửa sổ HELLO2.PAS va HELLO4.PAS va đóng hai của sổ đó lại
8 Thế năo lă khối uăn bản? Dùng khôi van ban dĩ lăm gì trong khi soạn thỏo một chương trình Pascal?
9 Có bao nhiíu câch tạo bhối trong Turbo Pascal? 10 Cac tĩp dudi PAS va BAK co ¥ nghia gi?
11 Lam thế năo để tra cứu, tìm kiếm trợ giúp trong khi em dang lam viĩe vdi Turbo Pascal?
12 Lam thĩ năo để thoât khỏi chương trình Turbo
Trang 6LAI Bòi lập về nhă
18 Níu ý nghĩa của phím INSERT trong soạn
thủo chương trình của Turbo Pascal 14 Em hêy mở chương trình Pascal để soạn thảo câc tệp chương trình sơu: da Tệp Bai1.pas Program Vidu1; Uses Crt: Begin Clrscr;
Writeln( Đđy lă măn hình của người sử dụng );
Trang 76 Pascal danh cho hoc sinh 15 Nĩu cdc thao tĩe sao chĩp va di chuyển khối van ban trong Turbo Pascal
16 Trĩn man hinh soan thao cua Turbo Pascal 7.0 câc em thấy uăn bản hiện lín uới những mău khâc nhau Câc mău sắc như uậy mang ý nghĩa gì?
17 Có thể soạn thảo chương trình Pascal bằng câc
phần mím soạn thâo khâc như NC, BKED, VIETRES,
được hay không?
18 Tín tệp chương trình của Poscal có thể có phần mở rộng khâc uới PAS được hay khong? Vi sao?
19 Giâ sử trín đĩa đê có hai tệp chương trình
Bail.pas va Bai2.pas Lam thế năo để ghĩp hai tệp trín
thănh một tệp uă đặt tín Bai3.pas?
20 Lăm thế năo để tâch một tệp chương trình thănh hai tệp con mă uấn giữ nguyín không thay đổi tệp ban đầu?
21 Giả sử cho dêy số sau: 1 2 3 5 7
Chi bằng phĩp tính cộng em hêy dùng đêy trín để tạo ra câc số: 13, 30, 52
„22 Gia sử cho dêy sau: 3 5 1794286
Cho phĩp biến đổi như sơu: chuyển một số của day sang một uị trí khâc của dêy mă không ảnh hưởng đến câc số còn lại
a Em hay tìm ra một câch dùng câc phâp biến đổi trín để đưa dêy trín uí theo thứ tự tăng dđn
Trang 8§2 CẤU TRỨC CHƯƠNG TRÌNH PASCAL /Í Cđu hỏi, vĩ dụ, bởi lập
1 Níu cấu trúc cơ bản của chương trình Pascal Phần năo lă bắt buộc còn phần năo lă không bắt buộc?
9 Lăm thế năo để chạy một chương trình Pascal? 3 Mở file HELLO.PAS uă chạy chương trình
4 Ma file HELLO1.PAS va chạy chương trình
5 Dĩ kiĩm tra kết quả của một chương trình Pascal đê chạy em phải lăm gi?
6 Mở file mới, gõ chương trình sau oă đặt tín lă TPASCAL.PAS Program Tinh; Uses CRT; Var gt, ¡: longinf; Begin Clrscr; g(:= 1;
For i:=† to 10 do gt := gi;
Writeln(' Tích của mười số tự nhiín đầu tiín lă”, gf); Readin;
End
a Chay chuong trinh
b Thay số 10 bằng số 13 uă chạy chương trình 7 Thế năo lă dịch chương trình trong bộ nhớ, thế
Trang 98 Pascal danh cho hoc sinh 8 Khi biín dịch chương trình nếu có lỗi em phải xử lý như thế năo?
9 Viết chương trình Pascdal đơn giản in ra man hừnh dòng chữ:
Xin Chăo Câc Bạn
10 Viĩt chuong trinh Pascal don gian in ra man
hinh cde dong chit:
Heal the World Heal the World
Heal the World
11 Hai chương trinh Pascal sau khâc nhau ở điểm năo Chương trình 1: Program CT1; Begin Wrte(ă nội, Việt nam); End Chương trình 2: Program CT2; Begin Writeln(Hă nội, Việt nam), End
Trang 1013 Trong câc cụm từ sau, từ năo lă từ khóa của ngôn ngữ Pascdl:
begin, baby, constant, const, type, style, if, iff, colour, black,
red, repeat, for, while, world, school, else, until, util, end, finish, go, do, work
14 Em hêy níu y¥ nghia cua nhom tit khĩa Begin End
15 Trong câc cđu sau, mệnh đề năo đúng, mệnh đề năo sai? Vi sao?
a Câc từ khóa trong phần khơi bâo của chương trình Pascal la Const, Type, Var, Procedure, Function
b Trong phần khai bâo của chương trình Pascdl, từ khóa Const bắt buộc phải khai bâo trước từ khóa Vat,
c Trong một chương trinh Pascal hoăn chỉnh số lượng câc từ khóa Begin bằng số lượng câc từ khóa End
d Trong chương trình Pascal chì cho phĩp đúng 1 lần có từ khóa Vat
e Trong chương trừùnh Pascal do câc lệnh đều phải
Trang 1110 Pascal dănh cho học sinh Begin ` Glrec; gt := 1; For i:=1 to 10 do gt := gtti; Writeln( Tổng của 10 số tự nhiín đầu tiín lă:”, gf); Readin; End a Hêy dịch uă chạy chương trình, chú ý xem kết qua
b Thay Ì ở dòng lệnh gt := gi*ì bằng i*i va chạy lại chương trình, chú ý xem hết qua
Trang 12Begin X:=1; Y:=2; Writeln('X+Y=",X+Y): End Program CT2; Var X,Y:integer, Begin X.=1;Y:=2, Wrteln(X+Y=,X+Y), End
¡19 Chương trình sau viết đúng hay sai, nĩu sai thì phải sửa như như thế năo? Program CT19; Uses crt; Begin X.Y:=15; Var X,Y:integer; Wrile(Đđy lă tổng X+Y: ', X+Y); End
20 Chương trình sau 0uiết đúng hay sai, nếu sai thì phải sửa thế năo?
Program CT20, Uses crt;
Trang 1312 Pascal danh cho hoc sinh Z:=X+Y; X:=20,Y:=30; Writeln(Z); End
21 Câc từ sau có thể dùng lăm tín biến được hay
bhông Nếu hhông được, ù sao?
real, hanoi, viet nam, mother, world, †able, var, bien0,-var4, 1var, iffhen ;
22 Cho dêy sốsau: 3 1 7 9 5
Cho phĩp 3 lđn đối chỗ, mỗi lín được đổi vi trí hai số bất kỳ Em hêy sắp xếp lại dêy trín theo thứ tự tăng dẫn
23 Cho day s6sau: 915462738
Cho phĩp đổi vi tri cua hai số bất hỳ trong dêy trín Em hêy sử dụng ít phĩp biến đổi nhất để đưa dêy trín uề theo thứ tự tăng dần Hêy chỉ câc phĩp biến đổi mừ em dùng 24 Cho lướt ô ouông như hình uẽ dưới đđy:
Gia sử độ dăi câc cạnh của lưới lă 1 cm
a Hỏi rằng một đường dăi nhất từ đình trâi dưới đến: đỉnh phải trín của lưới sẽ dăi bao nhiíu cm?
Trang 1425 Hỏi có bao nhiíu câch biểu diễn số 10 thănh
tổng của câc số tự nhiín, thứ tự câc số hạng của tổng
không được tính (do đó, 10=3+?7 uă 1027+3 lă một câch
biểu diễn)?
§3 CÂC LỆNH LẬP TRÌNH ĐƠN GIẢN
BS Cau hoi, bai fap, vi du
1 a Phĩn biĩt hai lĩnh sau: Writeln(5+20=', '20+5); va Writeln('5+20=', 20+5); b Hơi lệnh sau có tương đương vdi nhau hhông? Tat sao? Writeln( 100); Writeln(100);
2 Câc đoạn lệnh sau có tương đương uới nhau
Trang 1514 Pascal dănh cho học sinh Dean 3: Writeln(‘Turbo Pascal’); 3 Hdy viĩt chuong trinh in ra trín mòn hình câc dong ki tu sau: 1 2 3 4 5 6 7 8 1 2 3 - 3 0 5 6 7 1 OO 3 4
(đầu tiĩn phai khai bdo biến, sau đó dùng lĩnh Writeln) 4 Hay tra loi rĩ kĩt qua gi hiĩn trĩn man hinh, vi tri con tro man hình sau khi đoạn chương trình sau được thực hiện: a, Begin Clrscr; Writeln(X X); {80 chữ X} End; b Begin Clrscr; Writeln(’A A); {80 chat A} Writeln('B B}; {80 chư B} Write('X}; End;
5 Viĩt chuong trinh dĩ viĩt ra man hinh chit 'X' ở dòng thứ ð cột 30 Viết chương trình để thể hiện dòng
Trang 166 Cho a, b lă hai số tự nhiín Hêy gân gia trị cho
a, b Tinh va in ra trĩn man hinh:
- Phần nguyín của phĩp chia a:b; - Phần dư của phĩp chia a:b
7 Hay viĩt chuong trinh dĩ in bang sau ra man hình (chú y phan kĩt qua chi dugc để hai chữ số sau dấu chấm phần thập phđn): a+b a*b advb amodb oo fF WB Ơ 12
8 Viết chương trình thể hiện dong chit: Đđy lă chương trình Pascal
chạy ngưng trín măn hình
9 Viết chương trình thể hiện dòng chữ: Đđy lă chương trình Pascal
chạy theo chiều thẳng đứng trín măn hình
10 Viết chương trình thể hiện dòng chữ:
Đđy lă chương trình Pascal
bằng câch đưa từng từ ra măn hình từ trâi sung phải
11 Viết chương trình thể hiện dòng chữ:
Đđy lă chương trình Pascal
bằng câch đưa từng từ ra măn hình từ phải sang trâi 12 Viết chương trùnh thể hiĩn dong chit PASCAL nhấp nhây trín măn bình
Trang 1716 Pascal danh cho hoc sinh
lín măn hình uới câch thể hiện nhấp nhay nhu sau: khi chiz TURBO hiĩn thi PASCAL Gn, khi TURBO an thi PASCAL hiĩn
LT) Bởi tập vĩ nha
14 Hay kiĩm tra xem chuong trinh Pascal sau
Trang 18GotoXY(12,20), Delline; Writeln( Dòng chữ năy ở chính giữa măn hình); Delay(2000); GotoXY(12,20), Dellne, Writeln(Bấm phím ESC để thoât khỏi chương trình); Delay(2000); Until Readkey=#27; End
16 Biết rằng số Pi lă một hằng số của chương trinh dich cia phan mĩm Turbo Pascal Viĩt chutong trinh in ra chu vi vĩ diĩn tich cua hinh tron ban bính 4,56897
17 Viết chương trình thể biện dòng chữ HELLO WORLD bằng câch sau: dòng chữ trín được xuất hiện từ hai phía trín uă dưới của mòn hình mây tính, chúng
chạy theo chiíu thẳng đứng uăo tđm cua man hinh va nhập uăo thanh mĩt 18 Câc lệnh sau sẽ thể hiện kết quả trín măn hình như thế năo: a Writeln(20.56789.6:4), b Writeln(20.56789;6:2); c Writein(20.56789:6:0);
19 Cac lĩnh sau có thể hiện kết quả trín măn hình như nhau không, ù sao?
Trang 1918 Pascal danh cho hoc sinh
d Writeln( Hă nội lă thủ đô của nước Việt nam':40);
20 Hỏi có bao nhiíu câch biểu diễn số 10 thùnh
tổng cúc số tự nhiín khâc nhau từng đôi một? Em hêy
liệt kí tất cả câc câch biểu diễn đó
21 Hỏi có bao nhiíu câch biểu diễn số 20 thănh tổng của 3 số tự nhiín thứ tự câc số hạng bhông được
tính?
22 Số tự nhiín gọi lă hoăn chỉnh nếu nó bằng tổng của tất cả câc ước số thực sự của chính mình Em hêy tìm xem trong 100 số tự nhiín đầu tiín số năo lă số hoăn chỉnh
23 Day sĩ sau goi la day Fibonaci:
1 1 2 3 5 8 13
Dêy năy có tính chất một số hạng sẽ bằng tổng của hai số hạng hiền kí trước nó Em hêy liệt kí tất cả câc số Fibonaci nhỏ hơn 100
§ 4 TOA DO MAN HÌNH
BS Cơu hỏi, bởi tập, ví dụ
Trang 202 a Chuyĩn gì sẽ xảy ra khi uiết một ki tu vao góc
phâi dưới của măn hình?
b Sau khi chạy chương trùnh sau sẽ có mấy chữ Â hiện trín măn hình: Uses CRT; Begin Cirser; Write(‘ABCD); GoloXY(80, 25); Write ('A); Readin; End
3 Hay uiết chương trình để hiện ra khung của sổ thư dưới đđy mă khơng xô những gì nằm ở ngoăi cửa SỐ: Dòng thứ X X+1 Welcome X+2 This is a Demo Prograrn X+3 Create a Window X+4 Press Enter to Quit X+5 Ghi chú: Mê một số ký tự ASCÌI mở rộng |I: 186; Ì: 187; 4: 18a, Ỉ: 20; Ï: 201; = : 205
4 Hêy uiết lại chương trình ín của sổ giống như băi 3 nhung vdi cde chit "Welcome", "Program", "Greate",
Trang 2120 Pascal danh cho hoc sinh 5 Hay in ra man hinh va cho chạy thử chương
trình sau (chương trình im bản cửu chương)
Trang 2322 Pascal danh cho hoc sinh 7 Viết chương trình thể hiện dòng chữ PASCAL
chạy uòng tròn trín măn hình
8 Viết chương trình thể hiện mặt đồng hồ như sau trín măn hình:
12
11 1
10 2
9 Ta biĩt rang man hinh mdy tinh chita 25 dong
Hay uiết chương trình in ra trín mỗi dòng của man
Trang 24IRRI Bởi tập về nhỏ 13 Viết chương trình in bảng cứu chương cô dụng sau trín măn hình: 1x1=1 3x1=3 1x2=2 3x2=6 1x10=10 3x10=30 2x1=2 4x1=4 2x2=4 4x2=8 2x10=20 4x10=40 14 Viết chương trình ín bảng sau trín măn hình Í 2 3 8 9 Â 7 6 5 15 Viết chương trình in bảng sau trín măn hình ‡ 2 3 4 16 tinh 17, 18 19 20
Viết chương trình nhộp uỉ tính a' sau 4 phĩp Viết chương trình tính a' sau 5 phĩp tính Viết chương trình tính a” sau 6 phĩp tính Viết chương trình tính a* sau 6 phĩp tính
Trang 2524 Pascal danh cho hoc sinh
của một tuđn, mỗi ngăy hai môn uă in ra Thời khóa
biểu học tập của tuần
21 Viết chương trình dùng câc hy tự ASCII mô
phông hình người
22 Viĩt chuong trinh ding cĩc ky tu ASCII mĩ phong hinh may bay
23 Viĩt chuong trinh mĩ phong cdc hinh vĩ dưới đđy:
Trang 26$5 BIỂU THỨC SỐ HỌC
FS cau hĩi, bai tap, vi dy
1 Có thể dùng Readin để đọc một hằng không? Reudin có quy câch không? Ví dụ: Readln(:4},
3 Viết chương trình tính giâ trị của biểu thức sau va in hết qud ra măn hình: a A= 25x° + 70x‘ - 100x? + 10 x? - 27x -1997 vdi X = 2,x = 3 b B= (x2-y*) - dxy +1 vdi X= 19, y= 17 va X= 5, y= 10 3 Viĩt chuong trinh - Nhập bân hính hình tròn - Tinh chu vi cua hinh trĩn va in ra man hinh - Tính diện tích hình tròn 0uă in ra măn hình
4 Viết chương trình tính phần nguyín uă phần
thập phđn sau khi chía giâ trị của biểu thức cho ¢:
5a) - 4a?b + 10(b? + c)a - 50b - 20c
trong câc trường hợp sau: a.A=3,b=6,c=3
b.A=-2,b=7,c=9
5 Viết chương trình tính số Mol của nguyín tử có
trong 60g C, 30g Mg, 20g N, 50g O
Trang 2726 Pascal dĩinh cho hoc sinh 6 Viết chương trình tính bhốt lượng của : 5 Mol Mg 7.1 Mol Mg 3 Mol Mg 4.5 Mol Mg v4 in kĩt quad ra măn hình 7 Viết chương trình tính giâ tri va in ra kĩt qua của biểu thức: X?V?(2x - xy)(x - 5y) - 100xy - 10x -200y vdi X = 2, y = 3 8 Viĩt chuong trình tính giâ trị va in ra kĩt qua cua biểu thức: (x? + 5y?)(3x + y) + 100x?y - 200y? + xy vdi X = -3.5, y = -4.2 9 Chỉ dùng một biến số hêy tiết chương trình in ra tổng số: S= 1+2+3+4+5+6+7+8+89+10 10 Chỉ dùng một biến số hêy 0uiết chương trình in ra tổng số: S=1?+22+32+ + 10°,
11 Cho trước số thực a Hêy uiết chương trình tính a” nă a'° chỉ dùng không quâ 4 phĩp toân
_ 12 Cho trước số đ Hêy uiết chương trinh tinh a* va a'3 chỉ dùng không quâ ð phĩp toân
[LLÏ se tạp vĩ ana
Trang 28a Số nguyín lớn nhất không vuct qua X b Số nguyín nhỏ nhất không nho hơn X
14 Cho trước số tự nhiín N có ba chữ số: Hêy tính xem số hăng trăm của N lă bao nhiệu (Ví dụ uới N=245, hết qua lă 2)
1ê Viết đoạn chương trình sau dùng để đổi giâ trị của hai biến cho trước X va Y: Program Doi_gia_trị; Var X,Y,Tg:Real; Begin Readln(X,Y); Tg:=X; X:=Y; Y:=Tg; Writeln(X, Y); End
16 Cho trước hai biến số thực X va Y Sau khi gan câc giâ trị cho hai biến năy, bhông dùng bất cứ biến trung gian năo hêy đổi giâ trị của hai biến X 0ă Y
17 Biểu thức số học sau trong Pascal sĩ được thực
Trang 2928 Pascal danh cho hoc sinh
19 Cho trước câc giâ trị X, Y, 2 Viết đoạn chương
trình hodn vi vong quanh cac gid tri trín: X nhận gia
trị Y, Y nhận giâ trị 2, 2 nhộn gió trị X
20 Chỉ ra thứ tự thực hiện câc phĩp toân của biểu
thức sau trong ngôn ngữ Pascol: - Xmod Y+Z div X*Y
21 Dựa trín cúc công thúc sau:
1+2+3+ +n =n(n+1)/2
42+ 22+ 32 + ,+ n2 = nín?1)(2n+1)/6
Hêy uiết chương trình nhập sốn uă tính câc tổng trín
§ 6 LỆNH IE
IRR| Cau hoi, vi du, bai tap
IL In va cho chay cac chuong trinh sau: a Program VDI; Uses CRT; Var a,b, T:real; Begin Clrscr; If b <> O then T:= a/b
Else (trước Else không có dấu;}
Trang 30b Program VD2; Uses CRT; Var a,b, Max, Min: real; Begin Clrscr; If asp then Begin Max := b, Min := a; End Else { trudc Else không có dấu; } Begin Max := a; Min := b; End; End 2 Viết chương trình ø Nhập số bâo danh
Trang 3130 Pascadl dănh cho học sinh
Bạn đê trúng tuyển (hoặc Bạn đê không trúng
tuyển cần cố gống bơn nữa!) uói điều kiện Tổng số điểm >= 1ê thông bâo trúng tuyển uò ngược lại
3 Viĩt chương trình tính điểm trung bình của một học sinh dữ liệu nhập oăo lă điểm trung bình của câc mơn: uăn, tôn, lý, hoa, ngoại ngữ DTB = (vên”2 + toân 73 + lý + hoâ + NN*2)/9 In ra măn hình điển trung bình của học sinh đó bă xếp loạ¿ học lực: DIB <5 Xếp loại Yếu ð=< DPB < 6.5 Xếp loại Trung bình 6.5 =< DTB< 8.0 Xĩp loai Kha DIB>=8.0 Xếp loại Giải 4 Viết chương trình nhập ba số thực a, b, c In ra trín măn hình số lớn nhất uă nhỏ nhất
5 Viết chương trình nhập hai số thực Suu đó hỏi phĩp tính cần thực hiện uă in ra kĩt qua cua phĩp tinh
do:
Nếu lă "+°: In bết quả của tổng lín măn hình Nếu lă "—'; In bết quả của hiệu lín măn hình Nếu lă "7 ": In hết qua của thương lín măn hình Nếu lă " *"; In hết quỏ của tích lín măn hình 6 Viết chương trình nhập từ bùn phím ba số thực
a, b, c va kiểm tra xem chúng có phải lă độ dăi ba cạnh
của một tam giâc không?
7 Viết chương trình nhập từ băn phím ba số thực
Trang 32a Ba cạnh của tam giâc 0uuông không?
b Ba cạnh của tam giâc tù không?
c Ba cạnh của tam giâc nhọn không? Vă in kết gud ra măn hình
8 Viết chương trình nhập từ băn phím ba số thực
bat ky va kiểm tra xem chúng có phải lă số hạng của một cấp số cộng không?
9 Cho bĩn sĩ a, b, ¢, d doc bỉo từ băn phim Hay tìm gid tri cuc dai va gan cho biĩn eĩ tĩn la MAX va in ra kĩt qua 10 Giai va biĩn ludn hĩ phuong trinh tuyĩn tinh (ax + by =m lă +dy =n Il Giai va biện luện phương trình x’ + (m-2}x+ 1= 0 ở đây m lă tham số thực tùy ý 12 Viết chương trình nhập từ băn phín 4 số thực dương ơ, b, c, d Hêy biểm tro xem bốn số trín có lập
thănh bốn cạnh của một tử giâc hay không?
13 Viết chương trình nhập 4 số từ băn phím uă kiểm
tra xem chúng có tạo thănh một cấp số cộng hay không?
Bòi lập về nhỏ
14 Viết chương trình nhộp 2 số tự nhiín N, M uă
Trang 3332 Pascal danh cho hoc sinh
1ê Viết chương trình nhộp 3 số thực X, Y, 2
Nếu X = Max(X,Y,2) thì thông bâo "Đúng", ngược
lai thi thông bâo "Sai"
16 Nhập số thực X tit ban phim Hay kiĩm tra xem
X nằm trong hay ngoăi câc đoạn thang [-1,0] va [1,2)
17 Hăm số yZÍ(X) được định nghĩa như sau: X nếu X >1 f(x) =|_ 0 nếu -1 <=x <=1 -X nếu X <-1 Nhập giâ trị x từ băn phín 0ỉ in ra măn hừnh {{x) 18 Câc số tự nhiín từ 10 đến 99 được xếp ra thănh một hăng: 10111213 9899
Cho trước số tự nhiín k (1<=k <=180), hay tinh xem chữ số thứ h của hăng trín tính từ trâi sang phỏi la chữ số năo
19 Nhập 4 số nguyín a, b, c, d uă hiểm tra xem chúng có tạo nín cấp số nhôn hay bhông
20 Hăm dấu d(x) được định nghĩa như sau:
1 rếu X>Ũ
d(X) =[— 0 nấu x=Ũ -1 nếu x<0
Trang 3422 Giả sử em có câc tờ don vi tiĩn tri gid 1, 2 va
5 dong
a Hoi rang voi cde don vi tiền trín em có bao nhiíu câch đối 10 đồng?
b Cđu hỏi tương tự uới 15 đồng
238 Hỏi có bao nhiíu câch biểu diễn số 10 thănh tổng của của câc số tự nhiín khâc nhau từng đôi một? (thứ tự của câc số hạng không được tính)
§ 7 LENH CASE
BES Cđu hỏi, ví dụ, bởi tập
Trang 3534 Pascal danh cho hoc sinh 1,3,5,7,8,10,12: So_ngay := 31;
End; {cua Case thang}
Writein(‘S6 ngay cia thang’, thang, ‘Nam’, Nam, lă, So_ ngay);
End
Hêy giai thích ý nghĩa của chương trình trín 2 Viết chương trình nhập một số nguyín nhỏ hơn
hoặc bằng 10 où in ra măn hình kết quả bằng chữ Ví dụ: 1 in ra lă một,
2in ra lă hơi
3 Viết chương trình hỏi uă đưa ra bết luận đânh giâ uề một học sinh theo mẫu sau:
PHIẾU ĐIỀU TRA
Bạn hêy trả lời câc cđu hỏi sau bằng câch gõ 1, 2 hoặc 3:
a Trong giờ học bạn có luôn luôn giơ tay phât biểu không?
1 Luôn luôn
2 Thỉnh thoảng
3 Hiểm khi
b Trong giờ đang học một môn học bạn có hay nghĩ tới
Trang 3736 Pascal danh cho hoc sinh
biến nguyĩn i Trong trường hợp Ì=1 ín ra tổng a + b va i = 4¡n ra thương alb
ð Lập trình nhộp uăo số tự nhiín n Đưa uăo biến nguyín ỉ: nếu ì = † in ra n; nếu Ì=2 in ro nẺ, Ì = 3 ïm rơ 3n, i=4inran vai=Sinra nti —
6 Lập trình in ru số nghiệm của phương trình nghiệm nguyín phụ thuộc tham số nguyín i Biĩt rang voi
¡=0 phương trình uô nghiệm, uới ì = 1 phương trừnh có hai
nghiệm X: = 1, X; = 3; Ì =2 phương trừnh có oô số nghiệm 7 Lập trình nhập uăo hơi số nguyín đ, b Đưa ăo
biến biểu liệt kí dang tinh=(cong, tru, nhan, chia) va in ra man hinh tĩng, hiĩu, tich, thuong cua a va b trong tung truong hop
8 Lập trình in ra số thứ tự cúc ngăy trong tuần bất đđu từ: ngăy đầu tiín lă ngăy thứ hơi, ngăy số 2 lă ngăy thứ ba, ., ngăy số 7 lă ngăy chủ nhật
9 Viết chương trình nhộp từ băn phím 3 số nguyín dương Ngay, Thang, Nam Hêy kiểm tra xem 3 số đưa uăo câ lă một bộ ba số Ngăy, Thúng, Năm hợp lệ hay không
(Chú ý: Năm nhuận thâng 2 có 29 ngăy Năm
nhuận nếu số năm la bội của 4 ngoại trừ câc trường hợp nó lă bội củu 100 nhưng lại không chia hết cho 400)
10 Cho trước 4 số thực a, b, c, d Viết chương trình sốp xếp lại câc số năy sưo cho a <= b <= c <= d
| | Bai tap vĩ nha
Il Cho truĩc 3 sĩ thuc a,b,c Không dùng một biến
Trang 3812 Cho trước 3 số thực X,yz Viết chương trình in
ra câc giâ trị sau:
Max({x+y+z, xyz) Min(xy, y2, x2)
13 Cho trước số tự nhiín n Hêy tính xem n uiết dưới dạng thập phđn có bao nhiíu chữ số
14 Viít chương trình nhập 3 số tự nhiín Ngay, Thang, Nam Hêy hiểm tra xem bộ 3 số trín có lập thònh một bộ Ngăy, Thủng, Năm đúng bhông Nếu đúng hêy tính xem đó lă ngăy thứ mấy bể từ đầu:
a Thĩ ky b Công nguyín
15 Giải phương trình tuyến tính một ấn số: ax+b=0
16 Cho trước hai số tự nhiín N va Year Year la
sĩ nam dương lịch cđn tính toân Hêy viĩt chuong trinh tinh xem trong năm Year, ngay thứ N tính từ đầu năm sẽ lă ngăy thứ mấy
17 Một băn cờ uua được đânh số 0ị trí lă một cặp số tự nhiín (I,j) uới 1<=ij<=8
Cho trước u‡ trí của con mỗ lò (iạJaạ) trín băn cờ Hêy tính câc khả năng có thể của bước tiếp theo của con mê trín Kĩt qua thể hiện trín mờn hình
18 Trín ban cd vua em hay sap xếp đúng 8 quđn Hậu sao cho không con năo có thể ăn được con nòo
19 Trín băn cờ oua bắt đầu từ uị trí (1,1) đặt một quôn Ma Em hay tìm câch đi quđn mê đó qua tất cả câc ô của bỉn cờ, mỗi ô đúng 1 lần uờ quay trở 0í bị trí
Trang 3938 Pascal danh cho hoc sinh 20 Một số tự nhiín bất kỳ N đíu có thể biểu diễn
dưới dạng:
N=a,2t+a,,2"!+ + a2! + a, ở đđy a, =0 hoặc 1 uới 0<=i<=k-1, a, =1
Ta sĩ viĩt aya, yaa lă biểu diễn của số N dưới dang nhi phan Vi du 4 = 1000, 5=1001, 6=1010 Hêy biểu diễn câc số sau dưới dạng nhị phân 15 20 99 254 1218 21 Hêy biểu diễn dưới dọng thộp phđn câc số nhị phđn sau: > 111101 10101010 10001000 §8 ƠN TAP ES cĩu hei, vi du, bai tap
1 Khi chay chuong trinh Pascal sau mây sẽ bâo lỗi
gi, gidi thich nguyĩn nhĩn va cach gidi quyết câc lỗi
Trang 40Program CTLOI; Uses Crt; Var X,Y,2: real: —N:integer, Begin Clrser; Readin(N); X:strunc(N); YEN div 2; Z:= N mod 2 =0; Writeln(X,Y 2); End 2 Phan biĩt sự khóc nhau của hai đoạn lệnh sau: a)
For i:=1 to NÑ do Lenh1; For i:=1 to N do Lenh2; b) For i:=1 to N do Begin Lenh1; Lenh2; End;
3 Trong Turbo Pascal có câch năo để cho mây chạy oă thực hiện từng lệnh hay từng nhóm lệnh của
chương trình hay bhông? Níu câc thao tâc uằ ý nghĩa
củo công 0iệc đó