bai thuc hanh 7 tiet 60 gvdg

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[r]

1 Viết cú pháp của câu lệnh lặp for … do

2 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);

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) HS Toán Văn

1.

2.

3. 7 9

8

7 5

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