Bài tập và thực hành 6

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.
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 ([]):;
[]
begin
[]
:= ;
end;
* Hàm
* Thủ tục
Procedure ([]);
[]
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í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 :
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