TRƯỜNG THCS HƯNG ĐIỀN A ĐỀ CƯƠNG TIN HỌC 8 Năm: 2009-2010 A. Lý Thuyết Câu 1 : Sau khi thực hiện đoạn chương trình sau, giá trị của biến j bằng bao nhiêu? Tại sao? j:= 0; for i := 0 to 5 do j := j+2; Câu 2: Hãy cho biết tác dụng của câu lệnh lặp. Câu 3: Với cấu trúc câu lệnh lặp với số lần biết trước trong Pascal, máy kiểm tra điều gì ở điều kiện? Câu 4: Ghi cấu trúc và giải thich câu lệnh lặp với số lần biết trước? Câu 5 : Tìm hiểu thuật tốn sau đây và cho biết khi thực hiện thuật tốn, máy lặp bao nhiêu lần? Khi kết thúc giá trị của S là bao nhiêu? Thuật tốn: B1: S ← 10; x ← 0.5; B2: Nếu S < = 5.2; chuyển tới bước 4; B3: S ← S – x và quay lại B2; B4: Thơng báo S và kết thúc. Câu 6 : Hãy nêu các lợi ích của việc sử dụng biến mãng trong chương trình? Câu 7 : Các khai báo mãng sau đây là đúng hay sai? Nếu sai hãy sửa lại cho đúng. a) var X : Array [10, 13] of integer; b) var X : Array [5 10. 5] of real; c) var X : Array [3.4 4.8] of integer; d) var X : Array [10 1] of integer; e) var X : Array [4 10] of real; Câu 8 : Nêu sự khác nhau giữa cấu trúc của câu lệnh lặp với số lần chưa biết trước và câu lệnh lặp với số lần biết trước? ĐÁP ÁN: Câu 1: * Khi i = 0; j = 0 + 2 = 2, tương tự với i = 1, 2, 3, 4, 5; i = 5, j = 10 +2 = 12. Câu 2: *Giúp cơng việc lập trình đơn giả hơn vì chỉ cần viết một câu lệnh hay một nhóm các câu lệnh thay cho rất nhiều câu lệnh hay nhóm các câu lệnh phải viết. Câu 3: *Kiểm tra giá trị đầu có lớn hơn giá trị cuối hay khơng. Câu 4: * Cấu trúc: for <biến đếm> := <giá trị đầu> to <giá trị cuối> do <câu lệnh>; *Giải thich: - biến đếm là biến đơn có kiểu ngun; 20 phút lý thuyết: 3 đ 70 phút thực hành: 7đ - giá trị đầu và giá trị cuối là các biểu thức có cùng kiểu với biến đếm và giá trị cuối phải lớn hơn giá trị đầu; - câu lệnh có thể là câu lệnh đơn giản hay câu lệnh ghép. Câu 5: *) Lặp 10 vòng; S = 5. *) Viết chương trình: Program tt; uses crt; var S, x: real; begin clrscr; S :=10; x := 0.5; while S > 5.2 do S := S – x; write (‘S = ‘, S:7:2); readln end. Câu 6 : * Có thể thay rất nhiều câu lệnh lặp và xuất ra màn hình bằng một câu lệnh lặp. Sử dụng biến mãng rất hiệu quả trong xử lý dữ liệu. Có thể làm việc với các phần tử của mãng như làm việc với một biến thơng thường. Câu 7 : a) Sai, vì trong mãng có dấu ',', sửa lại var X : Array [10 13] of integer; b) Sai, vì giá trị sau của mãng khơng là số ngun. c) Sai, vì giá trị trước và giá trị sau của mãng khơng là số ngun. d) Sai, vì giá trị đầu lại lớn hơn giá trị sau. e) Đúng. Câu 8 : Ngồi sự khác nhau thể hiện qua tên gọi, chúng còn khác nhau ở 2 điểm sau: * Ở điều kiện: Của câu lệnh lặp với số lần chưa biết trước, lệnh thực hiện đến khi nào điều kiện còn sai ; câu lệnh lặp với số lần biết trước được thực hiện đến khi nào điểu kiện còn đúng. * Câu lệnh lặp với số lần chưa biết trước ít nhất được thực hiện một lần; câu lệnh lặp với số lần biết trước có thể khơng được thực hiện nếu ngay từ đầu điều kiện sai. B. THỰC HÀNH: Bài 1: Viết chương trình tính tổng của n số tự nhiên đầu tiên, với n là số tự nhiên được nhập vào từ bàn phím? Bài 2: Viết chương trình in ra màn hình thứ tự lần lặp? Bài 3: Viết chương trình nhập n số nguyên từ bàn phím. In ra màn hình số nhỏ nhất và số lớn nhất. N cũng được nhập từ bàn phím? Bài 4: Viết chương trình thể hiện thuật tốn sau: Thuật tốn: B1: S ← 10; x ← 0.5; B2: Nếu S < = 5.2; chuyển tới bước 4; B3: S ← S – x và quay lại B2; B4: Thơng báo S và kết thúc. Bài 5: Dùng phần mềm Yenka, vẽ mô hình không gian theo mẫu sau: ĐÁP ÁN: Bài 1: Program tinh_tong; Uses crt; Var i, n: integer; tong: longint; Begin Clrscr; Tong:=0; Writeln(‘Nhap vao so n’); readln(n); For i:=1 to n do Tong: = Tong+i; Writeln(‘Tong cua’, n,’so tu nhien dautien la’,tong); Readln; End. Bài 2: Program lap; Var i: integer; Begin For i:=1 to 10 do Writeln(‘day la lan lap thu’, i); Readln; Baøi 3: program MaxMin; uses crt; Var i, n, Max, Min: integer; A: array[1 100] of integer; Begin clrscr; write('Hay nhap do dai cua day so, N = '); 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. Baøi 4: Program tt; uses crt; var S, x: real; begin clrscr; S :=10; x := 0.5; while S > 5.2 do S := S – x; write (‘S = ‘, S:7:2); readln end. . – x và quay lại B2; B4: Thơng báo S và kết thúc. Bài 5: Dùng phần mềm Yenka, vẽ mô hình không gian theo mẫu sau: ĐÁP ÁN: Bài 1: Program tinh_tong; Uses crt; Var i, n: integer; tong: longint; Begin Clrscr; Tong:=0; Writeln(‘Nhap. la’,tong); Readln; End. Bài 2: Program lap; Var i: integer; Begin For i:=1 to 10 do Writeln(‘day la lan lap thu’, i); Readln; Baøi 3: program MaxMin; uses crt; Var i, n, Max, Min: integer; A: array[1. clrscr; write('Hay nhap do dai cua day so, N = '); readln(n); writeln('Nhap cac phan tu cua day so:'); For i:=1 to n do Begin write('a[',i,']='); readln(a[i]);