BÀI TẬP VỀ CHƯƠNG TRÌNH CON Bài tập 1: Viết chương trình thực hiện lần lượt các công việc sau: - Lập thủ tục nhập ba số nguyen dương a , b , c từ bàn phím . - Lập thủ tục kiểm tra xem ba số trên có lập thành ba cạnh của tam giác hay không ? - Viết hàm tính diện tích của tam giác . - Viết hoàn thiện chương trình chính. Bài tập 2: Chương trình tính . Có sử dụng hàm? k n C Tiết PPCT 45: 1. Cách viết và sử dụ chương trình con Program vidu; Uses crt; Var ………… Ctcon; Khai báo; Phần thân; Begin …………. End. Function <tênhàm>([<danh sách tham số>]):<kiểu dữ liệu>; [<phần khai báo>] begin [<Dãy các lệnh>] <tênhàm>:= <biểu thức>; end; * Hàm * Thủ tục Procedure <tênthủtục>([<danh sách tham số>]); [<phần khai báo>] begin [<Dãy các lệnh>] end; Bài 1: Viết chương trình thực hiện lần lượt các công việc sau: - Lập thủ tục nhập ba số nguyên dương a , b , c từ bàn phím . - Lập thủ tục kiểm tra xem ba số trên có lập thành ba cạnh của tam giác hay không ? - Viết hàm tính diện tích của tam giác . - Viết hoàn thiện chương trình chính. INPUT: 3 cạnh a,b,c của tam giác OUTPUT: Kiểm tra tam giác và tính diện tích Công thức Herong: p := (a+b+c)/2; dt := sqrt(p* (p-a)*(p- b)*(p-c)); 2. Bài tập BEGIN {4. Chương trình chính} NhapABC(a,b,c); KiemTra_InDienTich (a,b,c); END. Procedure NhapABC (Var a, b, c : Integer); {1. Nhập 3 cạnh a,b,c} Begin Write( 'Nhap a:' ); Readln( a ); Write( 'Nhap b:' ); Readln( b ); Write( 'Nhap c:' ); Readln( c ); End; Function Dientich( a, b, c:Integer ) : Real; {3. Hàm tính diện tích} Var dt,p : Real; Begin p := (a+b+c)/2; dt := sqrt(p* (p-a)*(p-b)*(p-c)); Dientich := dt; End; Procedure KiemTra_InDienTich ( a,b,c:Integer); {2. Kiểm tra tam giác} Begin If ((a+b>c) and (b+c>a) and (a+c>b)) then Writeln(' Ba canh tren tao thanh tam giac.dien tich', Dientich(a,b,c) ) Else Writeln('Ba canh tren khongtao thanh tam giac'); End; Var a,b,c : Integer; Ct Bài tập 2: Viết chương trình tính VD: nhập n: 5 Kết quả: k: 3 INPUT : Nhập n, k OUTPUT : k n C 3 5 10C = k n C ( ) ! ! ! n k n k = − Program to_hop; Uses crt; Var n,k : integer; nCk: real; Function gt( n : integer) : integer; var i,s: integer; Begin s:=1; for i:=1 to n do s:=s*i; gt:=s; end; BEGIN Write(‘ Nhap n:’); readln(n); Write(‘ Nhap k:’); readln(k); nCk := gt(n) /(gt(k) *gt(n-k)); Writeln(‘ nCk = ’, nCk); Readln; END. Write(‘ Nhap n:’); readln(n); Write(‘ Nhap k:’); readln(k); BEGIN Nhap vao n, k: 5 3 nCk = 10 nCk := gt(5) gt(3) gt(5-3) gt(5) gt=120 gt(3) gt=6 gt(2) gt=2 Writeln(‘ nCk = ’,10) Program to_hop; Uses crt; Var n,k : integer; nCk: real; Function gt( n : integer) : integer; var i,s: integer; Begin s:=1; for i:=1 to n do s:=s*i; gt:=s; end; BEGIN Write(‘ Nhap n:’); readln(n); Write(‘ Nhap k:’); readln(k); nCk := gt(n) /(gt(k) *gt(n-k)); Writeln(‘ nCk = ’, nCk); Readln; END. Ct . BÀI TẬP VỀ CHƯƠNG TRÌNH CON Bài tập 1: Viết chương trình thực hiện lần lượt các công việc sau: - Lập thủ tục nhập. thiện chương trình chính. Bài tập 2: Chương trình tính . Có sử dụng hàm? k n C Tiết PPCT 45: 1. Cách viết và sử dụ chương trình con Program vidu; Uses crt; Var ………… Ctcon; Khai báo; Phần thân; Begin …………. End. Function. giác và tính diện tích Công thức Herong: p := (a+b+c)/2; dt := sqrt(p* (p-a)*(p- b)*(p-c)); 2. Bài tập BEGIN {4. Chương trình chính} NhapABC(a,b,c); KiemTra_InDienTich (a,b,c); END. Procedure