Bài giảng Tin học 8 tiết 45: Bài tập về chương trình con

BÀI TẬP VỀ CHƯƠNG TRÌNH CONBà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?Tiết PPCT 45:1. Cách viết và sử dụ chương trình conProgram vidu;Uses crt;Var 	 Ctcon; Khai báo; 	 Phần thân;Begin.End.Function ([]):;	[]	begin	[]	:= ;	end;* Hàm* Thủ tụcProcedure ([]);	[]	begin	[]	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íchCông thức Herong:      p := (a+b+c)/2;     	 dt := sqrt(p* (p-a)*(p- b)*(p-c)); 2. Bài tậpBEGIN	{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;CtBà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 :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;BEGINWrite(‘ 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);BEGINNhap vao n, k: 5 3nCk = 10nCk := gt(5)gt(3)gt(5-3)gt(5)gt=120gt(3)gt=6gt(2)gt=2Writeln(‘ 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;BEGINWrite(‘ Nhap n:’); readln(n);Write(‘ Nhap k:’); readln(k);nCk := gt(n) /(gt(k) *gt(n-k));Writeln(‘ nCk = ’, nCk);Readln;END.Ct