Bài 13. Kiểu bản ghi
- 0 / 0
-
(Tài liệu chưa được thẩm định)
Nguồn:
Người gửi: Nguyễn Hương
Ngày gửi: 04h:24' 07-11-2014
Dung lượng: 25.0 KB
Số lượt tải: 71
Nguồn:
Người gửi: Nguyễn Hương
Ngày gửi: 04h:24' 07-11-2014
Dung lượng: 25.0 KB
Số lượt tải: 71
Số lượt thích:
0 người
Tiết 33 - Bài tập Kiểu Bản Ghi
Tin học 11
GV: Nguyễn Thanh Hương
Tổ: Lý - Tin - CN
Gv: Nguyễn Thanh Hương
Kiểm tra bài cũ
1- Viết lệnh khai báo các biến cho bài toán trên
Bài toán: Quản lý thành tích chạy 100m chào mừng 26/3,
2- Viết lệnh nhập thông tin phiếu kiểm tra sức khỏe học sinh thứ I trong lớp
Type HocSinh=Record
HoTen:string[30];
GioiTinh:string[3];
Cao, Nang:real;
End;
Var ds:array[1..50] of HocSinh;
Write(`nhap thong tin cua hs thu `,i);
Write (`nhap Ho ten:`);readln(ds[i].HoTen);
Write (`nhap Gioi Tinh:`);readln(ds[i].GioiTinh);
Write (`nhap chieu cao:`);readln(ds[i].Cao);
Write (`nhap can nang:`);readln(ds[i].Nang);
Gv: Nguyễn Thanh Hương
Gv: Nguyễn Thanh Hương
Tin học 11
GV: Nguyễn Thanh Hương
Tổ: Lý - Tin - CN
Gv: Nguyễn Thanh Hương
Kiểm tra bài cũ
1- Viết lệnh khai báo các biến cho bài toán trên
Bài toán: Quản lý thành tích chạy 100m chào mừng 26/3,
2- Viết lệnh nhập thông tin phiếu kiểm tra sức khỏe học sinh thứ I trong lớp
Type HocSinh=Record
HoTen:string[30];
GioiTinh:string[3];
Cao, Nang:real;
End;
Var ds:array[1..50] of HocSinh;
Write(`nhap thong tin cua hs thu `,i);
Write (`nhap Ho ten:`);readln(ds[i].HoTen);
Write (`nhap Gioi Tinh:`);readln(ds[i].GioiTinh);
Write (`nhap chieu cao:`);readln(ds[i].Cao);
Write (`nhap can nang:`);readln(ds[i].Nang);
Gv: Nguyễn Thanh Hương
Gv: Nguyễn Thanh Hương
Các ý kiến mới nhất