Bài tập chuong trinh con (t2)
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 (140.51 KB, 7 trang )
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
