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... Bài 2: program uses var.[r]
(1)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 MÔN TIN HỌC 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ừ đến n có bao nhiêu số chia hết cho Bài 2: (3 điểm) Nhập vào xâu đếm xem xâu đó có bao nhiêu từ (từ phân cách dấu cách) Bài 3: (4 điểm) Nhập vào dãy In dãy theo thứ tự tăng dần, đếm và in số lần xuất số x bất kỳ, in màn hình các số lớn và nhỏ x -hết - (2) TRƯỜNG THCS QUẢNG HÒA TỔ KHTN KHẢO SÁT CHẤT LƯỢNG HỌC SINH GIỎI LẦN MÔN TIN HỌC 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 if(i mod 7)=0 then dem:=dem+1; writeln('tu 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 if (st[i]=' ') and( st[i+1]<>' ') then dem:=dem+1; write(' cac tu xuat hien 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 begin write('a[',i,'] =');readln(a[i]); end; {sap xep day so} for i:=1 to n-1 for j:=i+1 to n if a[i]>a[j] then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end; het cho 7'); 0,5đ (3) writeln('day sau sap xep la'); for i:=1 to n write(a[i]:4); readln; {dem so lan xuat hien} write('nhap x=') ;readln(x); dem:=0; for i:=1 to n 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 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 if a[i]> x then write(a[i]:4); readln end hết -Quảng Hòa, ngày 20 tháng năm 2016 GV đề và đáp án Đinh Thị Giang (4)