ĐỀ THI TIN HỌC TRẺ - THCS Héi THI TIN Học TRẻ nghệ an lần thứ XVII - 2011 Thi gian làm 120 phút, không kể thời gian phát đề tham khảo a im thi: Trng i hc Vinh B PHẦN LẬP TRÌNH ĐỀ BÀI: Bài (10 điểm): Sắp xếp xâu Nhập xâu s bao gồm số kí tự, in xâu xếp số theo thứ tự tăng dần vị trí kí tự giữ nguyên? Input Output abc6ghj7kkkkk1hhhh9 abc6ghj7kkkkk1hhhh9 Bài (10 điểm): viết chương trình nhập vào chuổi ký tự chữ gồm nhiều từ từ tên học sinh hình phải chữ đầu tên chữ hoa chữ lại chữ thường Sau xếp tên theo thứ tự alphabet tên xuất dòng Dữ liệu vào: Các phím chữ thường từ a z phím cách trống để phân biệt tên học sinh với tên học sinh Kết ra: Màn hình hiển thị chữ đầu tên học sinh chữ hoa (người nhập xếp tên theo thứ tự alphabet tên xuất dòng không cần bấm giữ phím shift bật Caplock), Gợi ý: Dùng hàm Readkey Ví dụ: Input dung cuong an xuan dao Output Dung Cuong An Xuan Dao An Cuong Dao Dung Xuan Trang 1/2 ThuVienDeThi.com program bai1; uses crt; var x,xs:string; procedure docdl; var v:text; begin assign(v,'c:\input.txt'); reset(v); readln(v,x); close(v); end; procedure xau_so; var i,j:word;c:char; begin xs:=''; for i:= to length(x) for c:= '0' to '9' if x[i]=c then xs:=xs+c; for i:= to length(xs)-1 for j:= i+1 to length(xs) if xs[i]>xs[j] then begin c:=xs[i]; xs[i]:=xs[j]; xs[j]:=c; end; end; procedure thay; var i:word; c:char; begin for i:= to length(x) for c:='0' to '9' if x[i]=c then begin x[i]:=xs[1]; delete(xs,1,1); end; end; procedure xuat; var r:text; begin assign(r,'c:\OUTPUT.TXT'); rewrite(r); writeln(r,x); close(r); end; begin clrscr; docdl; xau_so; thay; xuat; end Trang 2/2 ThuVienDeThi.com ĐỀ THI TIN HỌC TRẺ - THCS Héi THI TIN Học TRẻ nghệ an lần thứ XVII - 2011 Thi gian làm 120 phút, không kể thời gian phát đề tham khảo a im thi: Trng i hc Vinh program bai 2; uses crt; var x:string; s:array[1 1000] of string; i,n,j:word; v,r:text; begin clrscr; assign(v,'d:\vao.txt'); reset(v); readln(v,x); close(v); writeln(x); assign(r,'d:\ra.txt'); rewrite(r); n:=1; repeat i:= pos(' ',x); s[n]:= copy(x,1,i-1); delete(x,1,i); n:=n+1; until pos(' ',x) =0; n:=n+1; s[n]:=x; s[n-1]:=s[n]; n:=n-1; for i:= to n s[i][1]:= upcase(s[i][1]); for i:= to n-1 write(r,s[i],' '); writeln(r,s[n]); for i:= to n-1 for j:= i+1 to n if s[i]>s[j] then begin x:=s[i]; s[i]:=s[j]; s[j]:=x; end; for i:= to n writeln(r,s[i]); close(r); end Trang 1/2 ThuVienDeThi.com ... Trang 2/2 ThuVienDeThi.com ĐỀ THI TIN HỌC TRẺ - THCS Hội THI TIN Học TRẻ nghệ an lần thứ XVII - 2011 Thời gian làm 120 phút, không k thi gian phỏt đề tham khảo a im thi: Trường Đại học Vinh program... x:=s[i]; s[i]:=s[j]; s[j]:=x; end; for i:= to n writeln(r,s[i]); close(r); end Trang 1/2 ThuVienDeThi.com