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

 MÃ KÍ HIỆU ĐỀ THI TUYỂN SINH THPT
 (PHẦN NÀY DO SỞ GD&ĐT GHI) Năm học 2018-2019
 .. MÔN: TIN HỌC
 Thời gian làm bài: 45 phút
 ( Đề thi gồm 02 câu, 01 trang)
 Bài 1: (5 điểm)
 Nhập vào mảng 1 chiều gồm 1 dãy số nguyên N phần tử. Hãy xóa các phần tử 
trùng nhau trong mảng và in kết quả ra màn hình.
 Bài 2: (5 điểm).
 Viết chương trình trừ 2 số tự nhiên lớn không quá 255 kí tự và in kết quả ra màn 
hình.
 VD: 456789 – 345678 = 111111
 542879654 – 123 = 542879532
Chú ý
 - Học sinh làm bài xong phải lưu vào ổ đĩa D:\SBD với tên: BAI1.PAS, 
BAI2.PAS.
 - Tất cả dữ liệu được nhập từ bàn phím và xuất kết quả ra màn hình.
 - Giám thị coi thi không giải thích gì thêm.
 ------------Hết----------
 1 MÃ KÍ HIỆU HƯỚNG DẪN CHẤM
 (PHẦN NÀY DO SỞ GD&ĐT GHI) ĐỀ THI TUYỂN SINH THPT
  Năm học 2018-2019
 MÔN: TIN HỌC
 (Hướng dẫn chấm gồm 03 trang)
 BIỂU ĐIỂM
 - Khai báo biến đúng: 0,5 điểm.
 - Nhập được dữ liệu: 1 điểm
 - Xử lý được thuật toán: 2 điểm
 - Xuất được dữ liệu: 0,5 điểm
 - Chương trình chạy đúng: 1 điểm.
 ĐÁP ÁN 
 Các chương trình tham khảo.
Chú ý: - Học sinh làm theo cách khác mà đúng vẫn được điểm tối đa.
 - Chương trình chạy được mới tính điểm.
Bài 1:
 Program Bai1;
 Const
 Max=100;
 Var
 a:Array[1..Max] Of Integer;
 i,j,k,n:Integer;
 Begin
 Write('-Nhap so phan tu mang: ');
 Readln(n);
 For i:=1 To N Do
 Begin
 Write('-Phan tu A[',i,']= ');
 Readln(a[i]);
 End;
 i:=2;
 While i <= N Do
 Begin
 j:=1;
 While a[j] a[i] Do
 j:=j+1;
 If j < i Then
 Begin
 For k:=i to n-1 Do
 a[k]:= a[k+1];
 n:=n-1;
 End
 Else
 i:=i+1;
 2 End;
 Writeln;
 Write('-Mang con lai: ');
 For i:=1 to n Do
 Write(a[i]:8);
 Writeln;
 Writeln(' Bam phim de ket thuc ');
 Readln
 End. 
Bài 2:
program bai2;
 var st1,st2:string;
 Procedure tru(s1,s2:string);
 Var s:String;
 h1,h2:Array[1..255] of byte;
 C:Array[1..255] of byte;
 dau:Char;
 code,l1,l2,Max,i:word;
 Begin
 L1:=length(s1);
 L2:=length(s2);
if L1>L2 Then Max:=L1 Else Max:=L2;
 For i:=L2+1 to Max do s2:='0'+s2;
 For i:=L1+1 to Max do s1:='0'+s1;
dau:=' ';
IF s2>s1 Then
 Begin
 dau:='-'; s:=s2; s2:=s1; s1:=s;
 End;
 For i:=1 to 255 do C[i]:=0;
 For i:=1 to Max do
Begin
 val(s1[i],h1[i],code);
 val(s2[i],h2[i],code);
 End;
 For i:=Max downto 1 do
 3 IF h1[i]<h2[i] Then
 Begin
 c[i]:=h1[i]+10-h2[i];
 h2[i-1]:=h2[i-1]+1;
 End Else
 c[i]:=h1[i]-h2[i];
Write(dau);
For i:=1 to Max do Write(c[i]);
End;
Begin
write('nhap so thu nhat'); readln(st1);
 write('nhap so thu nhat'); readln(st2);
 writeln('ket qua la');
 tru(st1,st2);
Readln;
End.
 -----------Hết-----------
 4 PHẦN KÝ XÁC NHẬN:
TÊN FILE ĐỀ THI: TI-05-TS10D-18-PG7.doc
MÃ ĐỀ THI (DO SỞ GD&ĐT GHI): 
TỔNG SỐ TRANG (GỒM ĐỀ THI VÀ HƯỚNG DẪN CHẤM) LÀ: 04 TRANG.
 NGƯỜI RA ĐỀ THI NGƯỜI THẨM ĐỊNH VÀ XÁC NHẬN CỦA BGH
 PHẢN BIỆN CỦA TRƯỜNG
 VŨ VĂN TUẤN HOÀNG THỊ SÂM HOÀNG THỊ SÂM
 5