Đề thi tuyển sinh vào Lớp 10 môn Tin học - Đề 02 - Năm học 2018-2019 - Trường THCS Yên Mô (Có đáp án)

 MÃ KÍ HIỆU ĐỀ THI TUYỂN SINH VÀO 10 ĐẠI TRÀ
 Năm học: 2017- 2018
 MÔN: TIN HỌC
 Thời gian làm bài: 45phút
 (Đề này gồm 3 câu 01 trang)
Câu 1: (3 điểm)
 Viết chương trình nhập vào một dãy số nguyên có n phần tử. In ra màn hình phần 
tử nhỏ nhất, phần tử lớn nhất và giá trị trung bình của danh sách ra màn hình. 
 Ghi file bài là: SONGUYEN.PAS
Câu 2: (2 điểm). 
 Một cụ già đã hơn 100 tuổi, rất yêu môn Toán. Khi được phỏng vấn về tuổi của 
mình, cụ cho biết:
“ Nếu thêm ngày sinh của tôi vào tổng các bình phương các chữ số tuổi tôi thì được kết quả 
chính là tuổi của tôi”
 Ghi file bài: TUOI.PAS
Câu 3: (5 điểm)
 Nhập vào một số nguyên x hãy xuất ra độ dài 3 cạnh của các tam giác có chu vi là x 
và diện tích của các tam giác đó (loại trừ các trường hợp các tam giác trùng nhau). Xuất ra 
diện tích nhỏ nhất và diện tích lớn nhất. (diện tích lấy 2 số lẻ)
 Dữ liệu vào: Số nguyên x.
 Kết quả ra: Độ dài 3 cạnh của các tam giác có chu vi là x và diện tích của các 
 tam giác đó; diện tích lớn nhất và diện tích nhỏ nhất.
 Ví dụ:
 Dữ liệu vào Dữ liệu ra
 15 1 7 7 dien tich : 3.49
 2 6 7 dien tich : 5.56
 3 5 7 dien tich : 6.50
 3 6 6 dien tich : 8.71
 4 4 7 dien tich : 6.78
 4 5 6 dien tich : 9.92
 5 5 5 dien tich : 10.83
 Dien tich nho nhat: 3.49
 Dien tich lon nhat: 10.83
Hạn chế kĩ thuật: 
 - Ghi file làm bài là TAMGIAC.PAS
 --Hết— MÃ KÍ HIỆU HƯỚNG DẪN CHẤM ĐỀ THI TUYỂN SINH 10 ĐẠI TRÀ
 Năm học: 2017- 2018
 MÔN: TIN HỌC
 (Hướng dẫn chấm gồm 5 trang)
I. Dữ liệu chấm bài
 - Giám khảo copy các file dữ liệu của từng bài vào thư mục chứa Turbo Pascal trên 
máy chấm bài
II. Với mỗi bài của thí sinh
Chấm bài:1
 - Giám khảo copy bài làm có tên SONGUYEN.PAS vào thư mục chứa Turbo Pascal 
trên máy chấm bài.
 - Mỗi file dữ liệu vào nếu học sinh không nhập dữ liệu từ file giám khảo nhập từ bàn 
phím. Chạy chương trình của học sinh rồi quan sát kết quả trên màn hình so sánh với đáp án 
và biểu điểm chi tiết. Nếu chương trình không chạy được thì không cho điểm.
Chấm bài 2
 - Giám khảo copy bài làm có tên TUOI.PAS vào thư mục chứa Turbo Pascal trên 
máy chấm bài.
 - Mỗi file dữ liệu vào nếu học sinh không nhập dữ liệu từ file giám khảo nhập từ bàn 
phím. Chạy chương trình của học sinh rồi quan sát kết quả trên màn hình so sánh với đáp án 
và biểu điểm chi tiết. Nếu chương trình không chạy được thì không cho điểm
Chấm bài:3
 - Giám khảo copy bài làm có tên TAMGIAC.PAS vào thư mục chứa Turbo Pascal 
trên máy chấm bài.
 - Mỗi file dữ liệu vào nếu học sinh không nhập dữ liệu từ file giám khảo nhập từ bàn 
phím. Chạy chương trình của học sinh rồi quan sát kết quả trên màn hình so sánh với đáp án 
và biểu điểm chi tiết. Nếu chương trình không chạy được thì không cho điểm
 Câu Đáp án Điểm
 Test 1
 Nhap so phan tu cua day n=3
 Nhap a[1]=4
 Nhap a[2]=5
 Nhap a[3]=3
 Day so vua nhap la: 0.5 điểm
 -------------------------
 4 5 3
 Gia tri lon nhat la:5
 gia tri nho nhat la:3
 gia tri trung binh la: 4.00 
 Test 2
 Nhap so phan tu cua day n=3
 Nhap a[1]=4
 Nhap a[2]=5
 Nhap a[3]=9
 Day so vua nhap la: 0.5 điểm
 Câu 1 -------------------------
 4 5 9
 ( 3 điểm) Gia tri lon nhat la:9
 gia tri nho nhat la:4
 gia tri trung binh la: 6.00 Test 3
 Nhap so phan tu cua day n=3
 Nhap a[1]= 3
 Nhap a[2]=5
 Nhap a[3]=7
 Day so vua nhap la: 0.5 điểm
 -------------------------
 3 5 7
 Gia tri lon nhat la:7
 gia tri nho nhat la:3
 gia tri trung binh la: 5.00
 Test 4
 Nhap so phan tu cua day n=4
 Nhap a[1]=2
 Nhap a[2]=3
 Nhap a[3]=4
 Nhap a[4]=5
 0.5 điểm
 Day so vua nhap la:
 -------------------------
 2 3 4 5
 Gia tri lon nhat la:5
 gia tri nho nhat la:2
 gia tri trung binh la: 3.50
 Test 5
 Nhap so phan tu cua day n=4
 Nhap a[1]=2
 Nhap a[2]=3
 Nhap a[3]=5
 Nhap a[4]=7
 Nhap a[4]=8 0.5 điểm
 Day so vua nhap la:
 -------------------------
 2 3 5 7 8
 Gia tri lon nhat la:8
 gia tri nho nhat la:2
 gia tri trung binh la: 5.00
Program SONGUYEN;
Uses crt;
Var a:array[1..20]of integer;i,n,max,min,sum:integer; 
Begin
Clrscr;
Writeln('TIM MAX, MIN, AVERAGE CUA MOT DAY SO'); 
Writeln('-------------------------------------');
Write('Nhap so phan tu cua day n=');readln(n); 
For i:=1 to n do 0.5 điểm
Begin
Write('Nhap a[',i,']='); readln(a[i]);
End;
Min:=a[1]; Max:=a[1]; Sum:=0; For i:=1 to n do
Begin
If (Min > a[i]) then Min:=a[i]; 
If (Max < a[i]) then Max:=a[i]; Sum :=sum+a[i];
 End; Writeln('Day so vua nhap la: '); 
 Writeln('-------------------------'); 
 For i:=1 to n do
 Write(a[i]:4); Writeln;
 Writeln('Gia tri lon nhat la:',Max); 
 Writeln('gia tri nho nhat la:',Min); 
 Writeln('gia tri trung binh la:',Sum/n:6:2); Readln;
 End.
 test đúng cho điểm:
 Test : Chạy chương trình cho kết quả
 Nam nay tuoi cu gia la 109 1 điểm
 program tuoi_cu_gia;
 var a,b,c,t,ngsinh:integer;
 begin
 for a:=1 to 9 do
 Câu 2 for b:=0 to 9 do
(2 điểm) for c:=0 to 9 do
 begin
 1 điểm
 t:=a*100+b*10+c;
 for ngsinh:=1 to 31 do
 if t=a*a+b*b+c*c+ngsinh then
 write('nam nay cu gia',t:6,' tuoi');
 end;
 readln;
 end.
 Đúng mỗi test cho 0,25 điểm
 Test 1:
 INPUT
 11
 OUTPUT
 1 5 5 dien tich : 2.49
 0,25 điểm
 2 4 5 dien tich : 3.80
 3 3 5 dien tich : 4.15
 3 4 4 dien tich : 5.56
 dien tich nho nhat: 2.49
 dien tich lon nhat: 5.56
 Câu 3
 Test 2:
(5 điểm)
 12
 2 5 5 dien tich : 4.90
 3 4 5 dien tich : 6.00 0,75 điểm
 4 4 4 dien tich : 6.93
 dien tich nho nhat: 4.90
 dien tich lon nhat: 6.93
 Test 3
 13
 1 6 6 dien tich : 2.99 0,75 điểm
 2 5 6 dien tich : 4.68
 3 4 6 dien tich : 5.33 3 5 5 dien tich : 7.15
 4 4 5 dien tich : 7.81
dien tich nho nhat: 2.99
dien tich lon nhat: 7.81
Test 4
14
 2 6 6 dien tich : 5.92
 3 5 6 dien tich : 7.48
 0,75 điểm
 4 4 6 dien tich : 7.94
 4 5 5 dien tich : 9.17
dien tich nho nhat: 5.92
dien tich lon nhat: 9.17
Test 5
16
 2 7 7 dien tich : 6.93
 3 6 7 dien tich : 8.94
 4 5 7 dien tich : 9.80 0,75 điểm 
 4 6 6 dien tich : 11.31
 5 5 6 dien tich : 12.00
dien tich nho nhat: 6.93
dien tich lon nhat: 12.00
Chương trình chạy
 Program TAMGIAC;
 uses crt;
 var x,a,b,c,d,i,j:longint;
 x1,s,min,max:real;
 mang:array[1..1000]of real;
 begin
 repeat
 clrscr;
 readln(x);
 x1:=x/2;
 until (x>2);
 i:=0;
 for a:=1 to x div 2 do 1,25điểm
 for b:=a to x div 2 do
 for c:=b to x div 2 do
 if (a+b>c)and(c+b>a)and(a+c>b)and(a+b+c=x)then
 begin
 inc(i);
 s:=sqrt(x1*(x1-a)*(x1-b)*(x1-c));
 mang[i]:=s;
 writeln(a:4,b:4,c:4,' dien tich :',s:12:2);
 end;
 max:=mang[1];
 min:=mang[1];
 for j:=1 to i do
 begin if mang[j]>max then max:=mang[j];
 if mang[j]<min then min:=mang[j];
 end;
 writeln(‘dien tich nho nhat la:’, min:16:2);
 writeln(‘dien tich lon nhat la:’, max:12:2);
 readln;
end.
 .Hết.. PHẦN KÝ XÁC NHẬN
TÊN FILE ĐỀ THI: TI-02-TS10D-18-PG7.doc
MÃ ĐỀ THI:..
TỔNG SỐ TRANG (GỒM ĐỀ THI VÀ HƯỚNG DẪN CHẤM) LÀ: 6 TRANG
 NGƯỜI RA ĐỀ NGƯỜI THẨM ĐỊNH VÀ XÁC NHẬN CỦA BGH
 PHẢN BIỆN CỦA 
 TRƯỜNG
 Lê Hữu Hoà