Bài 1: Cho chương trình:
var p,q:byte;
procedure F(var a,b:byte);
var tg:byte;
begin
tg:=a; a:=b; b:=tg;
writeln('a= ',a,' b=',b);
end;
begin
p:=5; q:=2; F(p,q);
writeln(' p= ', p ,' q=', q); readln
end.
Cho biết kết quả trên màn hình là bao nhiêu? nếu thay dòng 2 bới “procedure F(a:byte; var b:byte);” thì kết quả thay đổi thế nào? tại sao?
Bài 2:
Var a, b, c: integer;
Procedure K(var x: integer ; y, z: integer ; );
Begin
x= x+5; y:= y-5; z:= z*5;
Writeln(‘x=’,x:5,‘y=’,y:5, ‘z=’,z:5);
End;
BEGIN
a=5; b:=6; c:=7; K(a,b,c);
Writeln(‘a=’,a:5,’b=’,b:5,’c=’,c:5);
END.
H•y cho biết kết quả in ra màn hình.Nếu thay dòng 2 bởi Procedure K(x: integer ; var y, z: integer ; ); thì chương trình sẽ in ra kết quả là bao nhiêu? Tại sao?
Bài 3: Lập trình để
1. Nhập một số nguyên từ bàn phím, H•y lập trình số đó có chia hết cho 3 không?
2. Nhập vào một năm bất kỳ (số nhập vào phải là số nguyên dương gồm 4 chữ só). H•y cho biết năm đó có là năm nhuận không? (năm nhuận là năm chia hết cho 4).
3. Nhập vào một tháng bất kỳ, kiểm tra xem tháng đó có bao nhiêu ngày ( biết tháng 1,3,5,7,8,10,12: có 31 ngày; Tháng 4,6,9,11: có 30 ngày; tháng 2 có 28 ngày).
4. Nhập một số có 3 chữ số từ bàn phím, h•y kiểm tra chữ số hàng trăm có là tổng của chữ số hàng chục và hàng đơn vị không?
Bài 4:
Cho danh sách ( không quá 100 sinh viên), mỗi sinh viên bao gồm: tên, toán, lý, hoá, tổng. H•y lập trình (mỗi phần là 1 chương trình con ) để:
a. Nhập thông tin của tất cả sinh viên từ bàn phím;
b. Tính tổng điểm cho từng sinh viên, biết tổng = toán +lý +hoa;
c. Hiển thị thông tin sinh viên có tổng điểm cao nhất;
d. Cho biết tên của những sinh viên có tổng điểm >=25;
e. Tính trung bình điểm của tất cả sinh viên.
Bài 5: Cho n nhân viên nhập từ bàn phím(bao gồm: m• nhân viên, tên, hệ số lương, lương). H•y lập trình (mỗi phần là một chương trình con ) thực hiện:
a. Nhập thông tin cho n nhân viên (trừ lương).
c. Tính lương của từng nhân viên, biết:
lương = hệ số lương * 730000.
d. Hiển thị thông tin (gồm: m• nhân viên, tên, lương) của những nhân viên có lương cao nhất.
e. Đếm số nhân viên có mức tiền lương từ 10 triệu đồng trở lên.
f. Cho biết số tiền lương mà công ty phải trả cho toàn bộ nhân viên.