NHẬP VÀO NHIỆT ĐỘ TRUNG BÌNH CỦA MỖI NGÀY TRONGHS

1. Kiểu mảng 1 chiều:

dẫn dắt vào vấn đề:

a) Xét ví dụ:

Nhập vào nhiệt độ trung bình của mỗi ngày trong

HS: Theo dõi chương trình ví dụ, ghi bài.

tuần, tính và đưa ra màn hình nhiệt độ trung bình

GV: Yêu cầu học sinh tìm hiểu chương trình

của tuần và số lượng ngày trong tuần có nh/độ

và trả lời: khi số tuần lớn thì chương trình có

cao hơn nh/độ t/bình của tuần.

hạn chế gì?

- Giải: Chương trình được viết như sau:

Program ndtuan;

Var t1,t2,t3,t4,t5,t6,t7,tb:real;

Dem:integer;

Begin

Write('nhap vao nhiet do 7 ngay:');

Readln(t1,t2,t3,t4,t5,t6,t7);

Tb:=(t1+t2+t3+t4+t5+t6+t7)/7;

Dem:=0;

If t1>tb then dem:=dem+1;

Writeln('nhiet do tb tuan:',tb);

HS: Trả lời câu hỏi giáo viên:

Writeln('so ngay nd cao hon nd tb tuan:',dem);

Khai báo nhiều biến nên số câu lệnh xử lý sẽ

End.

rất nhiều.

GV: Dẫn dắt vào bài: để khắc phục ta ghép 7

biến thành 1 dãy, đặt chung 1 tên, đánh mỗi

Program nhdo;

phần tử 1 chỉ số.

Const max = 20;

HS: So s ánh 2 ch/tr trên

Type a = array[1..max] of real;

Var ndo:a; d,i,n: byte; t,tb: real;

Begin

Writeln('Nhap so ngay: ');

Readln(n);

T:=0; d:=0;

For i:=1 to n do

Begin

T:=t+ndo[i];

End;

Tb:=t/n;

If ndo[i]>tb then d:=d+1;

Writeln('Nhiet do tr/binh tuan: ',tb:5:2);

Writeln('So ngay nh/do cao hon nh/do t/binh la:

',d);

Readln;

.Củng cố:

-Cách tạo mảng 1chiều.

-Tham chiếu đến phần tử mảng.

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

-Làm bài 1-7 SGK/79.

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

...

...

------

Tiết : 20

Ngày soạn :

TIẾT 2