Giáo án Tin học 8 - Bài 4: Khai báo và sử dụng biến - Phạm Tấn Phát

GV: Phạm Tấn Phát
DANH MỤC BÀI TẬP THAM KHẢO CHO HỌC SINH
CHUẨN BỊ KIỂM TRA THỰC HÀNH 1 TIẾT
Bài 4: Khai báo và sử dụng biến
1./ Giả sử a và b là hai biến có kiểu nguyên (integer), R là một biến có kiểu thực (real), S là một biến có kiểu xâu (string)
Các phép gán nào dưới đây không hợp lệ
a./ a:=390;
b./ a:=39.000;
c./ a:=65000;
d./ a:=r;
e./ r:=a/b;
f./ a:=a mod 3;
g./ a:=a mod b;
h./ r:=a div b;
s:=’SCHOOL’;
s:=a+b+r;
r:=s;
a:=a/b;
2./ Một bạn viết khai báo như sau:
var x:integer;
var x:real;
Begin
X:=3; X:=10.5;
End.
Em hãy giải thích và sửa sai dùm bạn đó ?
3./ Viết chương trình tính cước phí sử dụng các dịch vụ internet qua đường truyền ADSL hằng tháng, với cách tính cước phí trả theo lưu lượng sử dụng được cho như sau
Tổng số tiền trước thuế = Tiền thuê bao hằng tháng + Đơn giá một MB dữ liệu x Số MB dữ liệu đã sử dụng
Tổng số tiền chịu thuế VAT 10% =Tổng số tiền trước thuế x 1.1
a./ Khai báo các biến sau:
a-số tiền thuê bao cố định hằng tháng
b-đơn giá 1 MB dữ liệu
S-số MB dữ liệu thuê bao đã sử dụng
T-tổng số tiền phải thanh toán
b./ Phần thân chương trình gồm các lệnh thực hiện các công việc sau:
-Nhập từ bàn phím giá trị cho biến a, b và S
-Tính số tiền phải thanh toán
-In ra màn hình giá trị của T
c./ Lưu chương trình với tên BT4_20.pas. Dịch và chạy chương trình để xem kết quả?
4./ Viết chương trình tính chu vi, diện tích hình chữ nhật ?
5./ Viết chương trình tính chu vi, diện tích hình tròn ?
6./ Viết chương trình tính chu vi tam giác khi biết ba cạnh, diện tích tam giác khi biết một cạnh và chiều cao ứng với cạnh đó ?
7./ Viết chương trình tính chu vi, diện tích hình vuông ?
8./ Viết chương trình tính chỉ số khối cơ thể BMI (Body Mass Index) theo công thức BMI=W/(H*H), trong đó W là cân nặng của một người tính bằng kí-lô-gam(kg), h là chiều cao của người đó tính bằng mét (m).
-Nếu BMI<15.5 thì “Người gầy”;Nếu 18.5<=BMI<25 thì “Người bình thường”
-Nếu BMI>25 “Người béo”
Bài 5: Từ bài toán đến chương trình
+ Xác định bài toán: xác định thông tin vào (input), thông tin ra (output)
+ Mô tả thuật toán: tìm cách giải bài toán và diễn tả các bước cần thực hiện
+ Viết chương trình: Dựa vào mô tả thuật toán ở bước trên, viết chương trình cho máy tính thực hiện bằng một ngôn ngữ lập trình.
+ Thuật toán là dãy hữu hạn các thao tác cần thực hiện theo một trình tự xác định để thu được kết quả cần thiết từ những điều kiện cho trước.
Bài 6: Câu lệnh điều kiện
1./ Em hãy mô tả các điều kiện cho dưới đây trong ngôn ngữ Pascal:
a./ n là một số nguyên chia hết cho 3.
b./ m là một số nguyên không chia hết cho 7.
c./ y là một số nguyên dương không vượt quá 100.
d./ Tổng hai số bất kỳ trong 3 số a, b, c luôn lớn hơn số còn lại.
e./ Hai số a và b khác 0, có cùng dấu.
f./ Số a>5 và tổng hai số b và c bằng 10, hoặc a <=5 và tổng hai số b và c bằng -20.
2./ Cho a=15 và b=6. Xác định tính đúng /sai của biểu thức điều kiện ?
Câu
Biểu thức
Giá trị
Kiểu dữ liệu
A
a*a + sqr(b)
B
a / b
C
a div b
D
a mod b
E
sqrt(21 * (a+b))
F
a > b
G
a – b =5
H
(a > b) and (a < 2*b)
I
(a >b) or (a < 2*b)
J
((a >= b) and (a =b) and (a<=b*b))
3./ Cho biết tính hợp lệ của các câu lệnh Pascal sau, nếu không hợp lệ đề xuất các sửa cho hợp lệ ?
a./ if x:=a+b then x:=x+1;
b./ if a>b then max:=a;
c./ if a>b then max:=a; else max:=b;
d./ if a>b then max:=a else max:=b;
e./ if 5=6 then x:=100;
4./ Sau mỗi câu lệnh dưới đây, giá trị của biến X sẽ là bao nhiêu, nếu trước đó giá trị của X bằng 5 ?
a./ if X mod 3=2 then X:=X+1;
b./ if (X mod 3=2) or (X>=5) then X:=2*X;
c./ if (X mod 2=1) and (X>10) then X:=0;
d./ if X mod 5=0 then begin X:=X*X; X:=X-10 end;
e./ if X<10 then;
5./ Đoán giá trị của a,b khi thực hiện đoạn chương trình sau:
a./ Chương trình 1:
var a, b: integer;
begin
	a := 16; b := 8;
	if a < b then a := a + b; a := a – b; b := b + a;
	writeln(‘a=’,a, ‘ , b=’,b);
end.
b./ Chương trình 2:
var a, b: integer;
begin
	a := 16; b := 8;
	if a < b then begin a := a + b; a := a – b end;
	b := b + a;
	writeln(‘a=’,a, ‘ , b=’,b);
end.
c./ Chương trình 3:
var a, b: integer;
begin
	a := 16; b := 8;
	if a < b then a := a + b else begin a := a – b; b := b + a; end
	writeln(‘a=’,a, ‘ , b=’,b); end;
end.
6./ Viết chương trình nhập vào số n ( n>=3), in ra thông báo bộ số Pi-ta-go nếu thỏa mãn đẳng thức n*n=(n-1)*(n-1)+(n-2)*(n-2) ?
7./ Viết chương trình tìm số lớn nhất, nhỏ nhất trong 2 số a, b nhập từ bàn phím ?
8./ Viết chương trình tìm số lớn nhất, nhỏ nhất trong 3 số a,b,c nhập từ bàn phím ?
9./ Viết chương trình nhập điểm trung bình của một môn học, xuất lên màn hình xếp loại học lực về môn học đó (Giỏi, Khá, Trung binh) ?
10./ Viết chương trình nhập vào tháng, năm từ bàn phím
a./ Cho biết tháng đó có bao nhiêu ngày, không yêu cầu xử lý năm nhuận ?
b./ Cho biết năm đó có nhuận hay không ?
c./ Cho biết tháng đó có bao nhiêu ngày, có xử lý năm nhuận ?