Bài 9. Làm việc với dãy số

Tiết:
Giáo án điện tử tin học lớp 8
Đặt vấn đề:
Giả sử khi nhập điểm môn toán cho 50 học sinh thì theo phương pháp thông thường, ta phải khai báo bao nhiêu biến?. Khi nhập dữ liệu thì ta thực hiện bao nhiêu lệnh nhập Read().?
Ta khai báo đến 50 biến và có tới 50 lệnh nhập Read()
Var toan2,toan3,toan4;…………toan50:Real;
Begin
Read(toan1); Read(toan2); Read(toan3); Read(toan4);……Read(D50);
End;
,
var
toan
1
toan
2
toan
,
,
3
,
toan
4
,
toan
50
:
Real
;
........
TOAN
.....
…...
.......
19
21
18
20
17
Chỉ số
50
4
3
2
1
……….
……
….
,
var
toan
1
toan
2
toan
,
,
3
,
toan
4
,
toan
50
:
Real
;
Chỉ số
.............
TOAN
TOAN
Chỉ số
4
3
2
1
19
13
19
21
18
20
17
5
6
7
b. Xử lý trong mảng
FOR i:= 1 TO 9 DO
IF D[ i ] >= 8 THEN ‘GIOI’);
Kết quả là


Cho biến i nhận GT 1 ? 9
Kiểm tra và ghi kết quả.
Gioi Gioi Gioi Gioi
Kết quả in ra màn hình:
Ví dụ: Kiểm tra GT nào lớn hơn 8 thì ghi ra màn hình từ `Gioi`