Tài liệu hạn chế xem trước, để xem đầy đủ mời bạn chọn Tải xuống
1
/ 12 trang
THÔNG TIN TÀI LIỆU
Nội dung
CÂU HỎI KIỂM TRA BÀI CŨ Câu 1: Về cấu trúc của một CTC khẳng định nào sao đây là không đúng? a. Phần đầu và phần thân nhất thiết phải có, phần khai báo có thể có hoặc không. b. Phần khai báo có thể có hoặc không tùy thuộc vào chương trình cụ thể. c. Phần đầu có thể có hoặc không cũng được d. Phần đầu nhất thiết phải có để khai báo tên chương trình con. Câu 2: Khẳng định nào sau đây là đúng? a. Một chương trình con nhất thiết phải có tham số hình thức. b. Một chương trình con nhất thiết phải có biến cục bộ. c. Một chương trình con nhất thiết phải có tham số hình thức, không nhất thiết phải có biến cục bộ. d. Một chương trình con không nhất thiết phải có tham số hình thức và cũng có thể không có biến cục bộ. Câu 3: Kiểu dữ liệu của hàm a. Chỉ có thể là kiểu integer b. Chỉ có thể là kiểu real. c. Có thể là kiểu integer, real, char, boolean, string. d. Có thể là kiểu integer, real, char. Hãy chọn câu trả lời đúng nhất Câu 4: Khẳng định nào sau đây là đúng a. Biến cục bộ là biến được dùng trong CTC chứa nó và chương trình chính. b. Biến cục bộ là biến chỉ dùng cho chương trình chính. c. Biến cục bộ là biến chỉ dùng cho CTC chứa nó. d. Biến toàn cục là biến chỉ được sử dụng trong chương trình chính và không được sử dụng trong CTC. Câu 5: Khẳng định nào sau đây là đúng a. Cả thủ tục và hàm đều có thể có tham số hình thức. b. Chỉ có thủ tục mới có thể có tham số hình thức. c. Chỉ có hàm mới có thể có tham số hình thức. d. Thủ tục và hàm nào cũng phải có tham số hình thức. BÀI THỰC HÀNH 6 THỦ TỤC CatDan(s1,s2) THỦ TỤC CanGiua(s) CHƯƠNG TRÌNH {Thu tuc CatDan(s1,s2)} type str79 = string[79]; procedure CatDan(s1:str79; var s2: str79); begin s2:= copy(s1,2,length(s1) -1) + s1[1]; end; a b c d b c d a Đầu vào, đầu ra của thủ tục trên là gì? Vào: Xâu kí tự s1 Ra: Biến xâu kí tự s2 s1 s2 Thủ tục này dùng để làm gì? Thực hiện việc tạo xâu s2 từ xâu s1 bằng việc chuyển kí tự thứ nhất đến vị trí cuối của xâu Thu tuc CanGiua(s) procedure CanGiua(var s: str79); var i, n:integer; begin n:=length(s); n := (80 – n) div 2; for i:= 1 to n do s:= ‘ ‘ + s; end; Đầu vào của thủ tục này là gì? Chức năng của thủ tục này là gì? Thủ tục thực hiện thêm vào trước xâu s một kí tự trắng để khi đưa ra màn hình kí tự trong s ban đầu được căn giữa của dòng gồm 80 kí tự. Chương trình Program chuong_trinh1; Uses crt; Type str79 = string[79]; Var s1, s2 : str79; stop: boolean; procedure CatDan(s1: str79; var s2: str79); begin s2:= copy(s1,2,length(s1) -1) + s[1]; end;