Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (343.72 KB, 17 trang )
TRƯỜNG ĐHSP HUẾ- KHOA TIN HỌC
KIỂM TRA BÀI CỦ
NỘI DUNG BÀI MỚI
Nguyễn Viết Cường
Đặng Thị Huệ
Nhóm sinh viên thực hiện:
Đinh Văn Thái
Hoàng Đại Thọ
TRƯỜNG ĐHSP HUẾ- KHOA TIN HỌC
LỚP TIN 4A
Nguyễn Thị Diễm Ngọc
Huế 11/2005.
BÀI GIẢNG ĐIỆN TỬ NHÓM 8- LỚP TIN 4A
Câu hỏi:
1) Hãy viết cấu trúc của một chương trình con thủ tục ?
2) Hãy viết thủ tục tìm UCLN của hai số x,y ?
Đáp án:
1) Procedure <tên thủ tục>([ds tham số]);
[< Phần khai báo>]
Begin
Các câu lệnh xử lý; {Phần thân thủ tục}
End;
TRANG ĐẦU
2) Procedure UCLN(x,y:integer);
Var du:integer;
Begin
While y<>0 do
Begin
Du:=x mod y;
x:=y;