de thi cap truong lan 1

<span class='text_page_counter'>(1)</span>TRƯỜNG THCS QUẢNG HÒA TỔ KHTN ĐỀ THI KHẢO SÁT CHẤT LƯỢNG HỌC SINH GIỎI LẦN 2 MÔN TIN HỌC 8 NĂM HỌC 2015-2016 Thời gian: 90 phút. I. NỘI DUNG ĐỀ. Bài 1: (3 điểm) Nhập vào n, đếm xem từ 1 đến n có bao nhiêu số chia hết cho 7. Bài 2: (3 điểm) Nhập vào một xâu rồi đếm xem xâu đó có bao nhiêu từ (từ được phân cách nhau bởi dấu cách). Bài 3: (4 điểm) Nhập vào một dãy. In dãy theo thứ tự tăng dần, đếm và in số lần xuất hiện của một số x bất kỳ, in ra màn hình các số lớn hơn và nhỏ hơn x. -------------------------hết-------------------------.

<span class='text_page_counter'>(2)</span> TRƯỜNG THCS QUẢNG HÒA TỔ KHTN KHẢO SÁT CHẤT LƯỢNG HỌC SINH GIỎI LẦN 2 MÔN TIN HỌC 8 NĂM HỌC 2015-2016 Thời gian: 90 phút ---------------------------------------------------------------. II. ĐÁP ÁN Bài 1: program dem_so; uses crt; var i,dem,n:integer; begin clrscr; write('nhap vao mot so n ='); readln(n); dem:=0; for i:=1 to n do if(i mod 7)=0 then dem:=dem+1; writeln('tu 1 den ', n ,' co ', dem ,'so readln end.. 0,25đ. 0,5đ 0,25đ 0,5đ 1,0đ chia. Bài 2: program uses var. chuoi; crt; st:string; dem,i:integer;. begin clrscr; write('nhap chuoi:'); readln(st); if st[1]='' then dem:=0 else dem:=1; for i:=1 to length(st) -1 do if (st[i]=' ') and( st[i+1]<>' ') then dem:=dem+1; write(' cac tu xuat hien trong chuoi la: ', dem); readln end.. Bài 3: program sapxep; var A:array[1..50] of integer; n,i,x,j,t,dem:integer; begin write('nhap cac phan tu cua day so:');readln(n); for i:=1 to n do begin write('a[',i,'] =');readln(a[i]); end; {sap xep day so} for i:=1 to n-1 do for j:=i+1 to n do if a[i]>a[j] then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end;. het cho 7'); 0,5đ.

<span class='text_page_counter'>(3)</span> writeln('day sau khi sap xep la'); for i:=1 to n do write(a[i]:4); readln; {dem so lan xuat hien} write('nhap x=') ;readln(x); dem:=0; for i:=1 to n do if a[i]=x then dem:=dem+1; write('so lan xuat hien cua ',x ,' la', dem); readln; {cac phan tu <=x} write('cac phan tu <=', x ,'la'); for i:=1 to n do if a [i]<=x then write(a[i]:4); readln; {cac phan tu >x } write('cac phan tu >', x ,' la'); for i:=1 to n do if a[i]> x then write(a[i]:4); readln end.. ------------ hết-----------Quảng Hòa, ngày 20 tháng 4 năm 2016 GV ra đề và đáp án. Đinh Thị Giang.

<span class='text_page_counter'>(4)</span>