Hướng dẫn giải đề thi Olympic tin học khối 6, 7 Hiệp Hòa – Bắc Giang – Năm 2016 – 2017
Trong đề thi Olympic tin học khối 6, 7 Hiệp Hòa – Bắc Giang – Năm 2016 – 2017 có một số bài như sau:
I. PHẦN CHUNG (DÀNH CHO CẢ HAI KHỐI 6,7)
Bài 1(20 điểm): Soạn thảo một văn bản bằng word
Bài 2 ( 20 điểm): Lưu với tên là Bai2.pas
Sử dụng ngôn ngữ lập trình Turbo Pascal hoặc Free Pascal viết chương trình giải bài toán sau:
Nhập vào một số tự nhiên n (n > 1), đếm xem từ 1 đến n có bao nhiêu số chẵn và chia hết cho 7.
Bài 3 (15 điểm): Lưu với tên Bai3.pas
Sử dụng ngôn ngữ lập trình Turbo Pascal hoặc Free Pascal
Ta gọi số “đối xứng” với số nguyên dương x là số nguyên dương thu được từ x bằng cách đảo ngược thứ tự các chữ số của x. Cho a và b là 2 số nguyên dương. Ta gọi tổng đối xứng của a và b là số đối xứng với tổng của số đối xứng với a và số đối xứng với b. Viết chương trình cho phép nhập hai số nguyên dương a, b và in ra tổng đối xứng của chúng.
Ví dụ : Nếu a = 25 và b = 26 thì tổng của số đối xứng với a và số đối xứng với b là 52 + 62 = 114. Vì thế tổng đối xứng của a và b là 411.
II. PHẦN RIÊNG
Lớp 6: Bài 4 (15 điểm): Thêm một bài soạn thảo văn bản.
Lớp 7: Bài 4 ( 15 điểm): Một bài tập về bảng tính Excel
Và dưới đây là chương trình mẫu hướng dẫn giải hai bài thi Pascal
Bài 2 – Đề thi Olympic tin học khối 6, 7 Hiệp Hòa – Bắc Giang
var n,i,dem:longint; begin Write('nhap vao n = '); readln(n); dem:=0; for i:=1 to n do if ((i mod 2)=0) and ((i mod 7)=0) then dem:=dem+1; Writeln('Tu 1 den ',n,' co ',dem,' so chan va chia het cho 7'); readln; end.
Bài 3 – Đề thi Olympic tin học khối 6, 7 Hiệp Hòa – Bắc Giang
Program Bai3; Var a,aa,b: longint; cs,tong:integer; Function DX(a:integer):integer; var so: integer; Begin so:=0; Repeat so:=so*10 + a mod 10; a:= a div 10; Until a = 0; DX:=so; End; Begin Write('Nhap so a: '); Readln(aa); a:=aa; cs:=0; Repeat cs:=cs + 1; a:=a div 10; until a=0; Writeln('So a co ',cs,' chu so'); a:=aa; Tong:=0; Repeat tong:=tong + a mod 10; a:=a div 10; until a=0; Writeln('So a co tong cac chu so la:',tong); a:=aa; Writeln('So doi xung cua so a la: ',DX(a)); Write('Nhap so b: '); Readln(b); Write('Tong doi xung cua hai so a, b la: ',DX(DX(a)+DX(b))); Readln; End.
À còn đề thi Olympic tin học khối 8, 9 Hiệp Hòa – Bắc Giang – Năm 2014 – 2015 cũng có ba bài pascal rất hay các bạn có thể tìm hiểu thêm.
Chúc các bạn học tốt