Giáo án Tin Học lớp 11: BÀI TẬP KIỂU BẢN GHI I doc

Thái độ:Tích cực ham học hỏi II Chuẩn bị của giáo viên và học sinh: 1.. Nội dung bài giảng 1.Ổn định tổ chức 2.Kiểm tra bài cũ trình bày cách khai báo kiểu bản ghi?. Nội dung bài mới

BÀI TẬP KIỂU BẢN GHI

I Mục đích yêu cầu:

1 Kiến thức:Biết khai báo bản ghi, truy cập trường của bản ghi

2 Kỹ năng: Biết Khai báo kiểu bản ghi

3 Thái độ:Tích cực ham học hỏi

II Chuẩn bị của giáo viên và học sinh:

1 Chuẩn bị của giáo viên:SGK, SGV, giáo án

2 Chuẩn bị của học sinh:Xem kỹ SGK, làm bài tập ở nhà

III Nội dung bài giảng

1.Ổn định tổ chức

2.Kiểm tra bài cũ

trình bày cách khai báo kiểu bản ghi? Cách nhập biến bản ghi?

3 Nội dung bài mới:

Hoạt động thầy và trò Nội dung bài mới

GV: Toạ độ điểm trên mặt păhngr có mấy

thành phần?

HS: 2: Tung độ và hoành độ

GV:Cách khai báo?

HS:Khai báo

Câu1:Toạ độ điểm trên mp cho bởi cặp hai số thực tương ứng với hoành

độ và tung độ của điểm đó

A Mô tả kiểu bản ghi để biểu diễn toạ độ điểm

B Viết chương trình nhập toạ độ ba

GV: Khai báo chương trình?

Hs: Thực hiện

GV:A, B,C, G có kiểu gì?

HS:Diem

Nhập toạ độ cho ba điểm?

GV:Nhập tạo độ cho điểm ta phải nhập

mấy thành phần?

HS: Hoành độ, tung độ

GV:Toạ độ điểm G tính như thế nào?

điểm của tam giác ABC Tính và hiển thị ra màn hình toạ độ trọng tâm của tam giác đó

Bài làm:

a TYPE DIEM=record

x, y: real;

End;

b.program Bai1b;

Type DIEM=record

x, y: real;

End;

Var A,B,C,G:Diem;

BEGIN Clrscr;

Write(’nhap toa do diem A:’);

Readln(A.x,A.y);

Write(’nhap toa do diem B:’);

Readln(B.x,B.y);

Write(’nhap toa do diem C:’);

Gy=(Ay+By+Cy)/3

GV:Bài toán yêu cầu?

HS:Trả lời

GV: Mô tả kiểu hocsinh diễn tả thông tin

học sinh?

HS: Trả lời

G.x:=(A.x+B.x+C.x)/3;

G.y:=(A.y+B.y+C.y)/3;

Write(‘ Toa do trong tam G la:’,G.x:6:0,’,’,G.y:6:0);

Readln;

END

Câu 2:Lớp 11C có không quá 45 học sinh Bảng điểm môn Tin học có 6 cột: Cột 1 là STT, cột 2 là họ tên học sinh, cột 3, 4,5,6 là điểm kiểm tra môn Tin học trong học kì Viết chương trình thực hiện::

A Mô tả kiểu bản ghi thông tin về một học sinh đối với môn Tin học

B Nhập thông tin cho học sinh Và hiển thị ra màn hình

Bài làm TYPE HOCSINH=record STT:byte;

GV: Khai báo chương trình?

Gv: Gọi học sinh thực hiện và cả lớp nhận

xét

Gv: Định hướng cho học sinh giải quyết

Gv: Gọi học sinh nhập số hovj sinh của cả

lớp

HS: Thực hiện

GV: Sử dụng câu lệnh WITH ta viết đoạn

chương trình dùng để nhập thông tin học

sinh tương tự như ví dụ minh hoạ tiết

trước?

HS: Thực hiện

GV: stt có phải nnhập không?

Hoten:String[30];

M,D15,D1t,Hk:real;

End;

b.Program VD;

Uses crt;

Const max=45;

TYPE Hsinh=record STT:byte;

Hoten:String[30];

M,D15,D1t,Hk:real;

End;

Var i, n:Byte;

LOP:ARRAY[1 max] of Hsinh; Begin

Clrscr;

Write(‘Nhap so hoc sinh cua lop:’); Readln(n);

For i:=1 to n do

Gv: ta có thể gán I cho STT được không?

HS: Trả lời

GV: Giải thích tại sao có dòng lệnh

Writeln(‘ Stt │ ho ten │M

│15│1t│hk │’);

Hs: giải thích

GV: Giải thích

Begin Stt:=i;

Write(‘ nhap hoten:’);

readln(hoten);

Write(‘ nhap diem mieng:’);

readln(M);

Write(‘ nhap diem 15 phut::’); readln(D15);

Write(‘ nhap diem 1 tiet:’);

readln(D1t);

Write(‘ nhap diem hoc ki:’);

readln(hk);

End;

Writeln(‘ Stt │ ho ten │M

│15│1t│hk │’);

For i:=1 to n do With Lop[i] do Begin

Stt:=i;

Write(‘│’, hoten); Write(‘│’,m);

Write(‘│’ ,d15); Write(‘│’,d1t);

Writeln(‘│’,hk, ‘ │’); End;

Readln;

END

4 Củng cố:4 phút

Nhắc lại cách khai báo kiểu bản ghi

Nhập và hiển thị biến bản ghi

5 Dặn dò, bổ sung:

Xem trước chương 5.TỆP VÀ THAO TÁC VỚI TỆP