bai 18 tin 11

Ví dụ về hàm: Ví dụ 1: Lập chương trình thực hiện việc rút gọn một phân số, trong đó có sử dụng hàm tính ước số chung lớn nhất ƯCLN của hai số nguyên.... Chương trình rút gọn phân số Pro[r]

Bài 18 VÍ DỤ VỀ CÁCH VIẾT VÀ SỬ DỤNG CHƯƠNG TRÌNH CON (tiết 2) KIỂM TRA BÀI CỦ Nêu cấu trúc thủ tục? Cho phần đầu thủ tục sau: Procedure Tong(x,y:integer; var s:integer); Trong lời gọi thủ tục chương trình ta gọi: Tong(a,b,T); - Hãy xác định tham số hình thức, tham số thực sự? - Xác định tham số giá trị, tham số biến? NỘI DUNG  Cách viết và sử dụng thủ tục a Cấu trúc thủ tục: b Ví dụ thủ tục Cách viết và sử dụng hàm a Cấu trúc hàm b Ví dụ hàm Cách viết và sử dụng hàm a.Cấu trúc hàm: Function <tên hàm>[(<ds tham số>)]: <kiểu liệu> ; [<phần khai báo>] Begin [<dãy các lệnh>] <tên hàm>:= <biểu thức>; End; trả có thể có thể gồmdữnhững kiểu nào? Kiểu Kiểu dữ liệu là kiểu liệu chuẩn (integer, real, boolean, char, string) Cách viết và sử dụng hàm Cấu trúc hàm Function <tên hàm>[(<ds tham số>)]: <kiểu liệu> ; [<phần khai báo>] Begin [<dãy các lệnh>] <tên hàm>:= <biểu thức>; End; Cấu trúc thủ tục Procedure <tên thủ tục>[(<ds tham số>)]; [<phần khai báo>] Begin [<dãy các lệnh>] End; So sánh giống và khác hàm và thủ tục? Cách viết và sử dụng hàm a.Cấu trúc hàm: Giống nhau: + Đều là chương trình con, có cấu trúc giống chương trình + Đều có thể có tham số (tham biến tham trị), cùng tuân theo quy định khai báo và sử dụng các tham số này Khác nhau: + Việc thực hàm luôn trả giá trị thuộc kiểu xác định qua tên hàm + Trong thân hàm thường có câu lệnh gán giá trị cho tên hàm Cách viết và sử dụng hàm b Ví dụ hàm: Ví dụ 1: Lập chương trình thực việc rút gọn phân số, đó có sử dụng hàm tính ước số chung lớn (ƯCLN) hai số nguyên Chương trình rút gọn phân số Program Rutgon_phanso; USES CRT; Var tuso,mauso,a:integer; tuso,mauso,a Function UCLN(x,y:integer):integer; Var sodu:integer; sodu Begin While y<>0 Do Tham Begin trị: x,y:integer sodu:=x mod y; x:=y; y:=sodu; End; UCLN:=x; End; Begin Write(‘Nhap tu so, mau so’);Readlln(tuso,mauso); a:=UCNL(tuso,mauso) a:=UCNL(tuso,mauso); If a>1 Then Begin UCLN:=x tuso:=tuso div a; mauso:=mauso div a; End; Write(tuso:5, mauso:5); End HÃY XÁC ĐỊNH Trong chương trình có hàm? Có hàm Hàm UCLN dùng để làm gì? Tìm ước số chung lớn x,y Biến nào là biến toàn cục? Biến nào là biến cục bộ? Tham số hình thức là tham biến hay tham trị? Lời gọi hàm: Câu lệnh gán giá trị cho tên hàm? CHƯƠNG TRÌNH RÚT GỌN Cách viết và sử dụng hàm a Cấu trúc hàm: b Ví dụ hàm: Hàm hàm: sử dụng nào chương trình? Sử dụng + Việc sử dụng hàm tương tự sử dụng các hàm chuẩn + Lệnh gọi hàm có thể tham gia vào biểu thức toán hạng làm tham số cho chương trình khác Ví dụ: a:=UCLN(tuso,mauso)+5; write(UCLN(tuso,mauso); Ví dụ 2: Viết chương trình tìm số nhỏ số (xây dựng hàm tính giá trị nhỏ số) Giả sử x = 3, y = => số nhỏ là x = Làm nào để biết số nhỏ nhất?  So sánh giá trị số Nếu x>y thì số nhỏ là y, ngược lại số nhỏ là x Chương trình tìm số nhỏ số Program Minbaso; var a, b, c: real; Function Min(x,y:real):real; Begin if x>y then Min:=y else Min:=x; End; Begin Write(‘ Nhap vao ba so’); Readln(a,b,c); Writeln(‘So nho nhat so la:’,Min(Min(a,b),c)); Readln End Biến toàn cục: a,b,c Tham số giá trị: x,y Hàm sử dụng làm tham số hay tham gia biểu thức? Làm tham số Chương trình tìm số nhỏ số Ví du 3: Viết chương trình tính tổng nguyên số nhập vào từ bán phím Nên sử dụng thủ tục hàm? Sử dụng hàm Sửhay dụng thủ tục Function Tong(x,y:integer):integer; Begin Tong:=x+y; End; => Nên sử dụng hàm Procedure Tong(x,y:integer; var t:integer); Begin t:=x+y; End; Ví dụ 4: Viết chương trình kiểm tra số nguyên a là số chẵn hay số lẻ Nên sử dụng thủ tục hay hàm? Sử dụng thủ tục Procedure KT(a:integer); Begin IF a mod = Then Write(‘ La so chan’) Else Write(‘La so le); End; Sử dụng hàm Function KT(a:integer):boolean; Begin IF a mod = Then KT:=true Else KT:=false; End; => Nên sử dụng thủ tục Khi mộthàm, công việcnào nàothì đósử người Khicần nàothực thì sử dụng dụng ta dùng tục, còn cần tính giá trị nào đó thủthủ tục? người ta dùng hàm Ví du 3: Chương trình tính tổng số nhập vào từ bàn phím (sử dụng hàm tính tổng hai số) Program Tinh_tong; Var a,b:integer; Function Tong(x,y:integer):integer; Begin Tong :=x+y; End; Begin Writeln(‘Nhap so:’); readln(a,b); Writeln(‘Tong cua so’,Tong(a,b)); Readln HAM End THUTUC Ví du 4: Chương trình kiểm tra số nguyên nhập vào từ bàn phím là số chẳn hay lẻ Program Kiem_tra; Var a:integer; Procedure KT(x:integer); Begin IF x mod = Then Write(‘ La so chan’) Else Write(‘La so le’); End; Begin Writeln(‘Nhap vao so:’); readln(a); KT(a); Readln End THUTUC HAM Kiến thức cần nhớ - Khái niệm chương trình - Phân loại chương trình + Thủ tục + Hàm - Cấu trúc chương trình <phần đầu> [<phần khai báo>] <phần thân> - Tham số hình thức + Tham số giá trị + Tham số biến - Biến cục - Biến toàn cục KÍNH CHÀO CÁC THẦY CÔ VÀ CÁC EM! Bài tập Bài 1:Viết chương trình kiểm tra số nguyên là số âm hay số dương? Bài 2: Viết chương trình tính tổng bình phương số nguyên