ĐỀ CƯƠNG ÔN TẬP HỌC KỲ II-NĂM HỌC 2022-2023
Môn: Tin Học 8.
I. KIẾN THỨC TRỌNG TÂM.
Bài 7. Câu lệnh lặp for…to…do.
- Biết cú pháp câu lệnh lặp với số lần chưa biết trước.
- Sử dụng được câu lệnh lặp để áp dụng tính một số phép toán đơn giản.
- Sử dụng được câu lệnh lặp với số lần biết trước phù hợp cho từng trường hợp cụ thể.
Bài 8. Lặp với số lần chưa biết trước while …do. - Biết và viết đúng cú pháp câu lệnh lặp while…do.
- Hiểu phép toán chia lấy phần nguyên, chia lấy phần dư.
- Sử dụng được câu lệnh lặp với số lần chưa biết trước phù hợp cho từng trường hợp cụ thể.
Bài 9: Làm việc với dãy số.
- Thực hiện được việc khai báo biến mảng.
- Viết được các câu lệnh nhập giá trị và tính toán với các biến mảng.
- Biết cú pháp và các thành phần có trong biến mảng.
- Hiểu hoạt động của các câu lệnh khi kết hợp với biến mảng.
II. ĐỀ TỰ LUYỆN.
Đề 1:
Câu 1 (4đ): Để viết chương trình nhập vào từ bàn phím một số tự nhiên n, sau đó xuất ra màn hình bảng cửu chương n. Chương trình được người lập trình viết bằng ngôn ngữ lập trình Pascal như sau:
Program Bangcuuchuong;
Var i, n: Real;
Begin
Write(Hay nhap bang cuu chuong muon in: );
For i:=1 to n do
Writeln(n,’x’,i, ‘ = ‘, n+i);
Readln(n);
Readln; End.
Em hãy gõ lại chương trình trên phần mềm Free Pascal, biên dịch và sửa các lỗi của chương trình; xuất ra màn hình một bảng cửu chương bất kỳ mà giáo viên yêu cầu.
Câu 2 (4đ): Bạn Bình viết chương trình tính tổng giá trị các số chẵn của dãy số nguyên A gồm n phần tử được nhập vào từ bàn phím như sau:
Program Dayso;
Var i, n, A, tong: real;
A: Array[1..50] of Integer;
Begin
Write(‘Nhap n=’) Readln(n);
For i:=1 to n do
Begin
Write(‘A[’, i, ‘]=’);
Readln(A[i]);
End;
Tong:=1;
For i:=1 to n do
Begin
If (A[i] div 2 = 0) then Tong:= Tong + A[i];
End;
Writeln( ‘Tong gia tri cac so chan cua day A: ’, Tong); Readln; End.
Em hãy gõ lại chương trình trên phần mềm Free Pascal, biên dịch và sửa các lỗi của chương trình để được kết quả đúng khi nhập vào giá trị n từ bàn phím.
Câu 3 (2đ): Viết chương trình tính tổng các số tự nhiên đầu tiên cho đến khi tổng đó lớn hơn 1000 thì dừng lại. Xuất ra màn hình số tư nhiên cuối cùng trong tổng đó.
Đề 2:
Câu 1 (4đ): Để viết chương trình nhập vào từ bàn phím một số tự nhiên n, sau đó xuất ra màn hình bảng cửu chương n. Chương trình được người lập trình viết bằng ngôn ngữ lập trình Pascal như sau:
Program Bangcuuchuong;
Var i, n: integer;
Begin Readln;
Write(‘Hay nhap bang cuu chuong muon in: ’ );
For i:=n to 1 do
Readln(n)
Writeln(n,’x’,i, ‘ = ‘, n+i); End.
Em hãy gõ lại chương trình trên phần mềm Free Pascal, biên dịch và sửa các lỗi của chương trình; xuất ra màn hình một bảng cửu chương bất kỳ mà giáo viên yêu cầu.
Câu 2 (4đ): Bạn Bình viết chương trình tính tổng giá trị các số lẻ của dãy số nguyên A gồm n phần tử được nhập vào từ bàn phím như sau:
Program Dayso;
Var i, n, A, tong: integer; A: Array[1..50] of real;
Begin
Write(‘Nhap n=’); Readln(n);
For i:=1 to n do
Begin
Write(‘A[’, i, ‘]=’);
Readln(A);
End;
Tong:=0;
For i:=1 to n do
Begin
If (A[i] mod 2 = 0) then Tong:= Tong + A; End;
Writeln( ‘Tong gia tri cac so le cua day A: ’, Tong); Readln; End.
Em hãy gõ lại chương trình trên phần mềm Free Pascal, biên dịch và sửa các lỗi của chương trình để được kết quả đúng khi nhập vào giá trị n từ bàn phím.
Câu 3 (2đ): Viết chương trình tính tổng các số tự nhiên lẻ đầu tiên cho đến khi tổng đó lớn hơn 1000 thì dừng lại. Xuất ra màn hình số tư nhiên lẻ cuối cùng trong tổng đó.
Đề 3:
Câu 1 (4đ): Để viết chương trình nhập vào từ bàn phím một số tự nhiên n, sau đó xuất ra màn hình bảng cửu chương n. Chương trình được người lập trình viết bằng ngôn ngữ lập trình Pascal như sau:
Program Bangcuuchuong;
Var n: integer; i: real;
Begin
Write(‘Hay nhap bang cuu chuong muon in: ’ );
For i:=1 to n
Readln(n);
Writeln(n,’x’,i, ‘= ‘, n+i);
Readln; End.
Em hãy gõ lại chương trình trên phần mềm Free Pascal, biên dịch và sửa các lỗi của chương trình; xuất ra màn hình một bảng cửu chương bất kỳ mà giáo viên yêu cầu.
Câu 2 (4đ): Bạn Bình viết chương trình tính tích giá trị các số chẵn của dãy số nguyên A gồm n phần tử được nhập vào từ bàn phím như sau:
Program Dayso;
Var i, n, A, tich: integer;
A: Array[1….50] of longint;
Begin
Write(‘Nhap n=’); Readln(n);
For i:=1 to n do
Begin
Write(‘A[’, i, ‘]=’);
End;
Readln(A[i]);
Tich:=0;
For i:=1 to n do
Begin
If (A[i] div 2 <> 0) then Tich:= Tich * A[i];
End;
Writeln( ‘Tich gia tri cac so chan cua day A: ’, Tich); Readln; End.
Em hãy gõ lại chương trình trên phần mềm Free Pascal, biên dịch và sửa các lỗi của chương trình để được kết quả đúng khi nhập vào giá trị n từ bàn phím.
Câu 3 (2đ): Viết chương trình tính tổng các số tự nhiên chẵn đầu tiên cho đến khi tổng đó lớn hơn 1000 thì dừng lại. Xuất ra màn hình số tư nhiên chẵn cuối cùng trong tổng đó.
