Chào mừng quý thầy cô
về dự giờ!
KTBC:
Viết cú pháp của câu lệnh lặp for … do
Cho đoạn chương trình sau và cho biết đoạn chương trình này thực hiện như thế nào?
n:=5;
For i:=1 to n do
begin
write(i, ‘. ‘);
readln(diem[i]);
end;
Bài thực hành 7
XỬ LÍ DÃY SỐ TRONG CHƯƠNG TRÌNH (tt)
1. Mục đích, yêu cầu
Tiếp tục làm quen với việc khai báo và sử dụng biến mảng
Rèn luyện kĩ năng sử dụng câu lệnh lặp for…do, đọc và hiểu ý nghĩa từng dòng lệnh trong chương trình
2. Nội dung
Bài 2:
a. Thuật toán
B1: Nhập số các bạn HS trong lớp (N=?)
B2: Nhập điểm Toán và Văn vào từ bàn phím
B3: In điểm trung bình mỗi HS:
(điểm Toán + điểm Văn)/2
B4: Tính điểm trung bình cả lớp theo từng môn:
TBToanTBToan/N
TBVanTBVan/N
B5: In điểm TBToan , TBVan ra màn hình và kết thúc
Bài thực hành 7
XỬ LÍ DÃY SỐ TRONG CHƯƠNG TRÌNH (tt)
2. Nội dung
Bài 2:
b. Tìm hiểu ý nghĩa của các câu lệnh trong chương trình sau đây:
Bài thực hành 7
XỬ LÍ DÃY SỐ TRONG CHƯƠNG TRÌNH (tt)
Var i, n: integer;
TBToan, TBVan: real;
DiemToan, DiemVan: array [1..100] of real;
Begin
writeln(‘Diem trung binh: ‘);
For i:=1 to n do
Writeln(i, ‘ . ’, (DiemToan[i]+DiemVan[i])/2:3:1);
TBToan:=0;
TBVan:=0;
For i:=1 to n do
Begin
TBToan:=TBToan+DiemToan[i];
TBVan:=TBVan+DiemVan[i]
end;
TBToan:=TBToan/N;
TBVan:=TBVan/N;
Writeln(‘Diem trung binh mon Toan: ‘, TBToan:3:2);
Writeln(‘Diem trung binh mon Van: ‘,TBVan:3:2);
End.
2. Nội dung
Bài 2:
c. Bổ sung các câu lệnh cần thiết vào vị trí thích hợp trong chương trình để được một chương trình hoàn chỉnh.
Bài thực hành 7
XỬ LÍ DÃY SỐ TRONG CHƯƠNG TRÌNH (tt)
Program Diem_trung_binh;
Uses crt;
Var i, n: integer;
TBToan, TBVan: real;
DiemToan, DiemVan: array [1..100] of real;
Begin
clrscr;
write(‘Nhap so cac ban HS trong lop, N =‘); readln(N);
writeln(‘Nhap diem Toan: ‘);
For i:=1 to n do begin write(i, ‘ . ‘); readln(DiemToan[i]); end;
Writeln(‘Nhap diem Van: ‘);
For i:=1 to n do begin write(i, ‘. ‘); readln(DiemVan[i]); end;
writeln(‘Diem trung binh moi HS: ‘);
For i:=1 to n do
Writeln(i, ‘ . ’, (DiemToan[i]+DiemVan[i])/2:3:1);
TBToan:=0;
TBVan:=0;
For i:=1 to n do
Begin
TBToan:=TBToan+DiemToan[i];
TBVan:=TBVan+DiemVan[i]
end;
TBToan:=TBToan/N;
TBVan:=TBVan/N;
Writeln(‘Diem trung binh mon Toan: ‘, TBToan:3:2);
Writeln(‘Diem trung binh mon Van: ‘,TBVan:3:2);
readln
End.
Bài thực hành 7
XỬ LÍ DÃY SỐ TRONG CHƯƠNG TRÌNH (tt)
2. Nội dung
Bài 2:
d. Gõ đoạn chương trình trên, dịch và chạy chương trình với các số liệu thử.
N=3 (3 HS)
1.
2.
3.
7
9
8
7
5
6
7.0
6.0
8.0
8.0
6.0
Điểm TB mỗi HS
TB Toán và Văn
Dặn Dò:
Về nhà ôn lại câu lệnh điều kiện, câu lệnh lặp, khai báo biến mảng
Tập viết 1 số chương trình đơn giản
Xem bài mới: Quan sát hình không gian với phần mềm Yenka
Chân thành cảm ơn quý thầy cô
đã đến dự!!!