Đề cương ôn tập môn Tin học Lớp 8 - Bài 8: Lặp với số lần chưa biết - Năm học 2019-2020

 2. Ví dụ về lệnh lặp với số lần chưa biết trước
 Hãy nêu cú pháp với câu lệnh lặp
 while - do?
 Cú pháp:
 While do ;
 Điều kiện: biểu thức quan hệ hoặc biểu thức
 logic
 Câu lệnh: là môt câu lệnh trong Pascal (có thể là câu lệnh
 đơn giản hay câu lệnh ghép)
2. Ví dụ về lệnh lặp với số lần chưa biết trước
 SƠ ĐỒ KHỐI
 Quan sát sơ đồ
 khối, hãy cho Sai
 biết sự thực hiện Điều kiện
 của máy?
 Đúng
 Câu lệnh
• Bước 1: tính giá trị của .
• Bước 2: Nếu có giá trị đúng
thì:
 • thực hiện lệnh cần lặp.
 • quay lại bước 1.
 Chừng nào điều kiện còn đúng thì câu lệnh còn thực
 hiện. 
Cách khai báo mảng trong Pascal như sau: 
Tên mảng : array[.. ] of 
Tìm giá trị lớn nhất và giá trị nhỏ nhất của dãy số 
Giáo viên đưa ra ý tưởng để viết chương trình 
program MaxMin; 
uses crt; 
Var 
 i, n, Max, Min: integer; 
 A: array[1..100] of integer; 
Phần thân chương trình sẽ tương tự dưới đây: 
Begin 
 clrscr; 
write('Hay nhap do dai cua day so, = '); readln(n); 
 writeln('Nhap cac phan tu cua day so:'); 
 For i:=1 to n do 
 Begin 
 write('a[',i,']='); readln(a[i]); 
 End; 
 Max:=a[1]; Min:=a[1]; 
 for i:=2 to n do 
 begin if Max<a[i] then Max:=a[i]; 
 if Min>a[i] then Min:=a[i] 
 end; 
 write('So lon nhat la Max = ',Max); 
 write('; So nho nhat la Min = ',Min); 
 readln; 
End. 
A. Phần trắc nghiệm: Hãy chọn một đáp án đúng nhất. 
Câu 1. Trong Pascal, câu lệnh nào sau đây được viết đúng? 
 A. for i:= 4 to 1 do writeln(‘A’); B. for i= 1 to 10 writeln(‘A’); C. for i:= 
1 to 10 do writeln(‘A’); D. for i to 10 do writeln(‘A’); 
Câu 2. Trong câu lệnh lặp: For i := 1 to 10 do j:= j + 2; write( j ); 
 Khi kết thúc câu lệnh lặp trên, câu lệnhwrite( j ); được thực hiện bao nhiêu lần? 
 A. 10 lần B. 5 lần C. 1 lần D. Không thực hiện. 
Câu 3. Cho đoạn chương trình: J:= 0; 
 For i:= 1 to 5 do J:= j + i; 
 Sau khi thực hiện đoạn chương trình trên, giá trị của biến j bằng bao nhiêu? 
 A. 12 B. 22 C. 15 D. 42. 
Câu 4. Trong Pascal, câu lệnh nào sau đây là đúng? 
 A. S:=1; B. i:=0; S:=1; 
 While S<10 do write(S); while s<10 do S:=S+i; i:=i+1; Câu 14. Cú pháp đầy đủ của câu lệnhWhile  do là: 
 A. While do ; C. While to do; 
 B. While ; ; D. While do ;
Câu 15. Hãy cho biết chương trình dưới đây sẽ thực hiện bao nhiêu vòng lặp khi thực hiện đoạn chương 
trình ? n:=10; T:=100; 
 While n>10 do n:=n+5; T:=T - n; 
 A. 0 B. 4 C. 6 D. 10
Câu 16. Đoạn lệnh dưới đây sẽ cho kết quả là gì? 
 so := 1; 
 While so <10 writeln(so); so := so + 1; 
 A. In ra các số từ 1 đến 10; C. In ra vô hạn số 1 trên một cột; 
 B. Chương trình báo lỗi; D. In ra vô hạn số 1 trên một dòng ; 
Câu 17. Trong Pascal, câu lệnh khai báo biến mảng nào sau đây đúng? 
 A. var a : array[10..1] of integer; C. var c : array[1..15] of integer; 
 B. var b : array(1..100) of real; D. var d : array[-2..-5] of real; 
Câu 18. Khai báo biến mảng: A : array[1..7] of real;. Sử dụng câu lệnhFor i:= 1 to 5 do readln(A[i]); 
 để gán giá trị cho các phần tử trong biến A từ bàn phím, ta sẽ nhập được bao nhiêu giá trị? 
 A. 5; B. 4; C. 6; D. 7; 
Câu 19. Trong câu lệnh khai báo biến mảng, phát biểu nào sau đây đúng: 
 A. Chỉ số đầu > chỉ số cuối; C. Kiểu dữ liệu chỉ có thể là real; 
 B. Chỉ số đầu chỉ số cuối; D. Cả ba ý trên đều đúng; 
Câu 20. Giả sử biến mảng A có 5 phần tử và giá trị của các phần tử lần lượt là 1, 4, 7, 2, 6. Khi thực hiện 
 câu lệnh dưới đây giá trị của biếntb là bao nhiêu? 
 tb:= 0; For i:= 1 to 5 do tb := tb + A[i];
 A. 19; 
 B. 18; 
 C. 21; 
 D. 20 CÂU ĐÁP ÁN ĐIỂM 
 - Khi thực hiện thuật toán trên, máy tính sẽ thực hiện 06 vòng 
 a lặp. 
 - T = 0; j = 30. 
 Đoạn chương trình thể hiện thuật toán: 
Câu 3 
 j := 0; 
 b T := 105; 
 While T >= 20 do begin j := j + 5; T := T - j; end; 
 Write(T); write(j); 
 Program cau_2; 
 Uses crt; 
 Var max, i : integer; 
 dayso : array[1..20] of integer; 
 Begin 
 Clrscr; 
 so_chan:=0; 
 For i := 1 to 8 do 
 Begin 
Câu 4 Write(‘phan tu thu ‘,i,’ la = ‘); 
 readln(dayso[i]); 
 End; 
 Max:=dayso[1]; 
 For i := 2 to 8 do 
 Begin 
 If max<dayso[i] then max:=dayso[i]; 
 End; 
 Writeln(‘So lon nhat day so ‘,max); 
 Readln; End. 
 CÂU ĐÁP ÁN ĐIỂM 
 - Cú pháp câu lệnh: while do ; 
 - Hoạt động: Khi thực hiện câu lệnh chương trình kiểm tra 
 Câu 1 điều kiện. Nếu điều kiện đúng thực hiện câu lệnh sau từ khóa 
 do và quay lại kiểm tra điều kiện. Nếu điều kiện sai bỏ qua 
 câu lệnh sau từ khóa do và kết thúc. 
 Program trung_binh; 
 Uses crt; 
 Var n, i: integer; 
 Diem: array[1..50] of real; 
 Begin 
 Câu 2 
 Clrscr; 
 Write(‘Nhap so luong hoc sinh N = ‘); Readln(n); 
 Writeln(‘Nhap diem cho tung hoc sinh’); 
 For i := 1 to n do 
 Begin