Giáo án môn Tin học Lớp 8 - Tiết 52: Bài tập - Năm học 2019-2020

òng máy
 - Hình thức tổ chức hoạt động: hoạt động nhóm.
- Sản phẩm: Đưa ra được chương trình hoàn chỉnh có khai báo và sử dụng các biến mảng, sử dụng câu lệnh lặp if...then, for...do
- Sản phẩm: Lầm được các bài tập theo yêu cầu
Hoạt động giáo viên
Hoạt động học sinh
Nội dung
1.Hãy viết chương trình nhập 5 số ngyên từ bàn phím và ghi ra màn hình số lớn nhất trong 5 số đó theo hai cách: không sử dụng biến mảng và sử dụng biến mảng.
a) Nếu không sử dụng biến mảng, chương trình có thể dài như sau:
uses crt;
var So_1, So_2, So_3, So_4, So_5, Max: integer;
begin
clrscr;
write('Nhap so thu nhat: '); readln(So_1);
write('Nhap so thu hai: '); readln(So_2);
write('Nhap so thu ba: '); readln(So_3);
write('Nhap so thu tu: '); readln(So_4);
write('Nhap so thu nam: '); readln(So_5);
Max:=So_1;
If Max<So_2 then Max:=So_2;
If Max<So_3 then Max:=So_3;
If Max<So_4 then Max:=So_4;
If Max<So_5 then Max:=So_5;
writeln('So lon nhat: ',Max);
readln;
end.
b) Nếu sử dụng biến mảng, chương trình chỉ ngắn gọn như sau:
uses crt;
var i, Max: integer;
 A: array[1..5] of integer;
begin
clrscr;
for i:=1 to 5 do
 begin
 write('Nhap so thu ',i,':'); readln(A[i]) 
 end;
Max:=a[1];
for i:=2 to 5 do 
 If Max<a[i] then 
 Max:=a[i];
writeln('So lon nhat: ',Max);
readln;
end.
Bài tập 1: Hãy viết chương trình nhập 5 số ngyên từ bàn phím và ghi ra màn hình số lớn nhất trong 5 số đó theo hai cách: không sử dụng biến mảng và sử dụng biến mảng.

2.Viết chương trình sử dụng biến mảng để tính giá trị trung bình của tổng N số nguyên được nhập vào từ bàn phím.
- Sử dụng biến mảng tính giá trị trung bình
uses crt;
var N, i: integer;
 TB: real;
 A: array[1..100] of real;
begin
clrscr;
write(’Nhap so ptu cua mang, n= ’); readln(n);
for i:=1 to n do
 begin 
 write(’Nhap a[’,i,’]= ’); readln(a[i]);
 end;
TB:=0;
for i:=1 to n do 
 TB:=TB+a[i];
TB:=TB/n;
write(’Trung binh bang ’,TB);
readln;
end.
Bài tập 2: Viết chương trình sử dụng biến mảng đ