Bài tập Kiểu Bản Ghi

CHÀO MỪNG QUÝ THẦY CÔ GIÁO
CÙNG CÁC EM THAM DỰ TIẾT HỌC
TRƯỜNG THPT LÊ TRUNG KIÊN
Tổ: Tin
Tiết 34:
Bài tập
1. Viết chương trình nhập vào mã học sinh, họ tên, điểm Toán, Văn, Tin của tất cả các học sinh trong lớp. Tính điểm trung bình và đưa ra màn hình danh sách lớp trước khi sắp xếp và sau khi sắp xếp theo thứ tự tăng lần.
dtb =
Input: nhập vào mahs, hoten, toan, van, tin của các HS trong lớp
Output: Xuất ra màn hình danh sách lớp trước và sau khi sắp xếp
Ý tưởng thực hiện:
B1: Nhập vào mahs, hoten, toan, van, tin của các HS trong lớp
B2: tính điểm trung bình
B3: Đưa ra màn hình danh sách lớp trước khi sắp xếp
B4: Sắp xếp lại danh sách lớp theo thứ tự tăng dần điểm trung bình
B5: Đưa ra màn hình danh sách lớp sau khi sắp xếp
Khai báo biến
End;
Type Hocsinh = Record
Hoten :String[30];
Toan, Van, Tin: Integer;
Mahs :String[5];
Dtb: real;
Var Lop: array[1..48] of Hocsinh;
t : Hocsinh;
n, i, j : integer;
Nội dung chương trình
Các bước thực hiện
Lệnh trong Pascal
B1: Nhập dữ liệu cho các học sinh trong lớp
Write(‘Nhap ma hoc sinh: ‘);
Readln(Lop[i].mahs);
Write(‘Nhap ho ten hoc sinh: ’);
Readln(Lop[i].hoten);
Write(‘Nhap diem Toan: ‘);
Readln(Lop[i].Toan);
Write(‘Nhap diem Van: ‘);
Readln(Lop[i].Van);
Write(‘Nhap diem Tin: ‘);
Readln(Lop[i].Tin);
Nội dung chương trình
Các bước thực hiện
Lệnh trong Pascal
B2: Tính điểm trung bình
Lop[i].dtb:=((Lop[i].Toan + Lop[i].Van)*2 +Lop[i].Tin)/5;
B3: Đưa ra màn hình danh sách lớp trước khi sắp xếp
writeln(Lop[i].mahs:7, Lop[i].hoten:30,Lop[i].Toan:5, Lop[i].Van:5,Lop[i].tin:5, Lop[i].dtb:7:2);
for i:=1 to n do
B4: Sắp xếp lại danh sách lớp theo thứ tự tăng dần điểm trung bình
Nội dung chương trình
Các bước thực hiện
Lệnh trong Pascal
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i].dtb>a[j].dtb then
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
Nội dung chương trình
Các bước thực hiện
Lệnh trong Pascal
B5: Đưa ra màn hình danh sách lớp sau khi sắp xếp
writeln(Lop[i].mahs:7, Lop[i].hoten:30,Lop[i].Toan:5, Lop[i].Van:5,Lop[i].tin:5, Lop[i].dtb:7:2);
for i:=1 to n do
2. Viết chương trình nhập họ tên, điểm toán,lý, hóa của tối đa 50 học sinh. Tính điểm trung bình và in ra kết quả những học sinh có điểm trung bình lớn hơn 5

Input: nhập vào hoten, toan, ly, hoa của các HS trong lớp
Output: Xuất ra màn hình những học sinh có DTB > 5
Ý tưởng thực hiện:
B1: Nhập vào hoten, toan, ly, hoa của các HS trong lớp
B2: tính điểm trung bình
B3: Xuất ra màn hình những học sinh có DTB > 5
Khai báo biến
End;
Type Hocsinh = Record
Hoten :String[30];
Dtb: real;
Var Lop: array[1..48] of Hocsinh;
n, i : integer;
Toan, Ly, Hoa: Integer;
Nội dung chương trình
Các bước thực hiện
Lệnh trong Pascal
B1: Nhập dữ liệu cho các học sinh trong lớp
Write(‘Nhap ho ten hoc sinh: ’);
Readln(Lop[i].hoten);
Write(‘Nhap diem Toan: ‘);
Readln(Lop[i].Toan);
Write(‘Nhap diem Ly: ‘);
Readln(Lop[i].Ly);
Write(‘Nhap diem Hoa: ‘);
Readln(Lop[i].Hoa);
Nội dung chương trình
Các bước thực hiện
Lệnh trong Pascal
B2: Tính điểm trung bình
Lop[i].dtb:=(Lop[i].Toan *2 +Lop[i].Ly + Lop[i].Hoa)/4;
B3: Xuất ra màn hình những học sinh có DTB > 5
for i:=1 to n do
Begin
If(a[i].dtb > 5) then
writeln(Lop[i].hoten:20, Lop[i].Toan:6, Lop[i].Ly:8, Lop[i].Hoa:7, Lop[i].dtb:8:2);
Writeln(``);
End;
Các em về nhà hoàn chỉnh các bài tập.
Chuẩn bị bài mới: § 14. Kiểu dữ liệu tệp
§ 15. Thao tác với tệp
Nội dung chuẩn bị:
Xem lại khái niệm: tệp là gì?
Vai trò của kiểu tệp
Phân loại tệp
Cách khai báo
Các thao tác với tệp
Củng cố - Dặn dò
CHÚC CÁC EM HỌC TỐT
CHÚC QUÝ THẦY CÔ KHỎE