YÊU CẦU HỌC SINH VIẾT CHƯƠNG TRÌNH NHẬP VAR A

3.Ví dụ:

GV: Yêu cầu học sinh viết chương trình nhập

Var A:array[1..46,1..3] of real;

bảng điểm tin có 3 cột : 15', 45', dtb bảng có 46

I,j:byte;

dòng tương ứng số học sinh. Tính dtb=(điểm

Begin

15'+2*điểm 45')/3. Xuất dtb lớn nhất.

Writeln('nhap diem va tinh dtb:');

HS: Khai báo mảng 2 chiều: có 3 cột mỗi cột là

For i:=1 to 46 do begin

1 loại điểm, mỗi dòng của mảng là điểm của

writeln('hoc sinh thu:',i);

từng học sinh.

write('diem 15:'); readln(A[I,1]);

Nhập điểm bằng câu lệnh FOR. Tính điểm

write('diem 45:'); readln(A[I,2];

trung bình đưa vào cột thứ 3.

write('diem tb:');

Dùng thuật toán tìm giá trị lớn nhất tính dtb

A[I,3]:=(A[I,1]+2*A[I,2])/3;

lớn nhất.

Writeln(A[I,3]:4:1);

Đưa giá trị lớn nhất ra màn hình.

End;

Max:=A[I,3];

For i:=2 to 46 do

If max<A[I,3] then max:=A[I,3];

Writeln('diem tbln la:',max:4:1);

Readln

End.

.Củng cố:

-Tạo kiểu mảng 2 chiều.Tham chiếu đến từng phần tử. Phân biệt mảng 2 chiều và 1 chiều.

.Dặn dò bài tập về nhà:

-Làm bài 8,9SGK/79,80

-Xem trước bài TH SGK/63.

.Rút kinh nghiệm bổ sung:

...

------

CHƯƠNG IV: KIỂU DỮ LIỆU CÓ CẤU TRÚC

BÀI TẬP VÀ THỰC HÀNH 3 ( 2 TIẾT)

I. MỤC TIÊU BÀI HỌC: