ĐỀ CƯƠNG ÔN TẬP HỌC KỲ II Trường THCS TRẦN CAO VÂN Môn: Tin (Năm học 2010-2011) Họ tên HS: Lớp : 8/ I/ Lý thuyết: Viết cấu trúc câu lệnh : IF , For…to…do While…do? Cho ví dụ? Hãy nêu khác biệt câu lệnh lặp với số lần biết trước câu lệnh lặp với số lần chưa biết trước? So sánh lệnh IF (dạng thiếu) lệnh WHILE Hãy nêu lợi ích việc sử dụng mảng chương trình? Câu lệnh Pascal sau hay sai? Hãy lỗi sai có a For i:=2 to 10; x:=x+1;………………………………………………………………… b For i:=11 to x:=x+1;………………………………………………………………… c For i:=1 to 10 for j:=1 to 10 x:=x+1;…………………………………………………… d For i:=1 to 10 for i:=1 to 10 x:=x+1;………………………………………………… e While b>=a; write (‘b khong nho hon a’);……………………………………………… g While 2=2 write (‘toi that la gioi’);……………………………………………………… Các khai báo mảng sau hay sai? Nếu sai sửa lại cho a) var X : Array [10, 13] of integer;…………………………………………………………… b) var X : Array [3.4 4.8] of integer;………………………………………………………… c) var X : Array [10 1] of integer;…………………………………………………………… Tìm giá trị S đọan chương trình đây: a) S := 0; b) I:=1; For i := to S := S + i; While i ... Program Dem_so_chan_so_le; Var i,n,demchan,demle:word; a:array[1 100] of word; Begin Write('Nhap n = ');readln(n); For i:=1 to n Begin Write('a[',i,']=');readln(a[i]); if a[i] mod = then demchan:=demchan+1... Write('a[',i,']=');readln(a[i]); if a[i] mod = then demchan:=demchan+1 else demle:=demle+1; end; write('Trong ',n,' so ban nhap co ', demchan,' so chan,',demle,' so le'); readln; End ... a[i]>1 then Begin j:=2; while (a[i] mod j0) j:=j+1; if a[i] = j then dem:=dem+1; end; end; write('Trong ',n,' so ban nhap co ',dem,' so nguyen to'); readln; end Program Phantichra_thua_so_nguyen_to;