Bài thực hành 7. Xử lí dãy số trong chương trình

CÂU 1: Cách khai báo biến mảng ? Ví dụ?
CÂU 2: Các lệnh Pascal sau đây đúng hay sai? Nếu sai hãy giải thích.
a : array[1…100] of integer;
Diem : array[1..n] of real;
b : array[1..50] of real;
x : array(-1..10) of integer;
a) Sai, thừa một dấu chấm
b) Sai, chỉ số cuối phải được xác định là giá trị cụ thể
c) Đúng
d) Sai, các chỉ số phải được viết trong dấu ngoặc vuông
Chỉ số đầu và chỉ số cuối là hai số như thế nào ?
var< tên biến mảng>: array[< chỉ số đầu >..] of < kiểu dữ liệu>;
Ví dụ: Var Chieucao : array[1..60] of real;
Var a : array[21..80] of integer;
KiỂM TRA BÀI CŨ:
Giải thích
Bài thực hành 7:
XỬ LÍ DÃY SỐ TRONG CHƯƠNG TRÌNH
a) Tìm hiểu phần khai báo dưới đây và tìm hiểu tác dụng của từng biến:
Viết chương trình nhập điểm các bạn trong lớp.In ra màn hình số bạn đạt loại giỏi, khá, trung bình và kém (8.0 trở lên giỏi, từ 6.5 đến 7.9 khá, từ 5.0 đến 6.4 trung bình, dưới 5.0 kém).
Program phanloai;
Uses crt;
Var i, n, gioi, kha, trungbinh, kem: integer;
a: array[1..100] of real;
Yêu cầu: gõ phần khai báo trên vào máy và lưu với tên phanloai
Bài tập 1:
b) Tìm hiểu các câu lệnh trong phần thân chương trình dưới đây:
Begin
Yêu cầu: gõ phần chương trình trên vào máy
clrscr;
write(‘nhap so luong hoc sinh, n= ‘); readln(n);
writeln(‘nhap diem :’);
for i:=1 to n do begin write( i,’. ‘); readln(a[i]); end;
gioi:=0; kha:=0; trungbinh:=0; kem:=0;
for i:=1 to n do
begin
if a[i] >= 8.0 then gioi:= gioi + 1;
if a[i] < 5.0 then kem:= kem + 1;
if (a[i] < 8.0) and (a[i] >= 6.5) then kha:= kha + 1;
if (a[i] >= 5.0) and (a[i] < 6.5) then trungbinh:= trungbinh +1;
end;
writeln(‘ket qua hoc tap:’);
writeln(‘gioi, ‘ban hoc gioi !’);
writeln(kha, ‘ban hoc kha !’);
writeln(trungbinh, ‘ban hoc trung binh !’);
writeln(kem, ‘ban hoc kem !’);
Readln
End .
Yêu cầu: Gõ tiếp phần chương trình này vào máy. Dịch, chạy chương trình. Kiểm tra kết quả.
Kiểm tra kết quả với các bộ số liệu sau:
Trắc nghiệm:
Câu 1: Để nhập dữ liệu vào cho mảng A có 10 phần tử số nguyên ta dùng lệnh nào sau đây:
For i:=1 to 10 do writeln(A[i]);
For i:=1 to 10 do readln(A[i]);
Dùng 10 lệnh readln(A);
Tất cả đều sai
Câu 2: Trước khi khai báo mảng A : array[1..n] of real, thì ta phải khai báo điều gì ?
Var n:integer;
Count n=10;
Const n=10;
Cả a và b đúng
Câu 3: Cho biết câu lệnh sau do được thực hiện mấy lần trong đoạn chương trình sau:
i:=5;
While i >=0 do i:= i – 1;
a) 1 lần
b) 5 lần
c) 6 lần
d) 0 lần
i<0, kết thúc lệnh while
i:=5 > 0  i:= 5-1=4
i:=4 > 0  i:= 4-1=3
i:=3 > 0  i:= 3-1=2
i:=2 > 0  i:= 2-1=1
i:=1 > 0  i:= 1-1=0
i:= 0 >= 0  i:= 0-1=-1
i:=-1 < 0, dừng