HỘI THI TIN HỌC TRẺ TỈNH SÓC TRĂNG NĂM 2011
KHỐI: THCS - PHẦN LẬP TRÌNH
THỜI GIAN LÀM BÀI: 90 phút

Bài 1: (3 điểm)
Người ta gọi
với a,b
Z, b khác 0 là một phân số, hãy mô tả kiểu dữ liệu đối với phân số và viết chương trình cho phép nhập vào hai phân số, thực hiện các phép tính liên quan đến phân số như: Nhân, chia, nghịch đảo phân số.

Bài 2: (4 điểm)

Trong soạn thảo văn bản, qui định khoảng cách giữa các từ là một ký tự trắng, các dấu chấm, dấu phẩy, dấu chấm phẩy phải đi liền với chữ trước nó, sau dấu chấm, dấu phẩy, dấu chấm phẩy thì có một ký tự trắng.
Trong một đoạn văn nếu không tính tới các lỗi sai về chính tả mà chỉ tính các lỗi sai nêu trên. Hãy viết chương nhập từ bàn phím một đoạn văn có lỗi với độ dài không quá 255 ký tự và sữa lỗi đó.
Ví dụ: Nhập vào: ma hoa x , y ,z . Mat thu .
Xuất ra: ma hoa x, y, z. Mat thu.


-------------HẾT-----------

















HỘI THI TIN HỌC TRẺ TỈNH SÓC TRĂNG NĂM 2011
KHỐI: THCS – ĐÁP ÁN PHẦN LẬP TRÌNH
Bài 1: (3 điểm)
Program NhanchiaPhanso;
Uses Crt;
Type
Phanso=record
Tu:integer;
Mau:integer;
end;
Var
Fanso1,Fanso2,kq:phanso;
{} Function Uscln(a,b:integer):integer;
Begin
If b=0 then
Uscln:=a
Else
Uscln:=Uscln(b,a mod b);
End;
{} Procedure Nhan(p1,p2:phanso;var p:phanso);
Var
x:Integer;
Begin
With p do
Begin
tu:=p1.tu*p2.tu;
mau:=p1.mau*p2.mau;
X :=Uscln(tu,mau); {gian luoc phan so}
Tu:=tu div x;
Mau:=mau div x;
End;
End;
{} Procedure Chia(p1,p2:phanso;var p:phanso);
Var
x:Integer;
Begin
With p do
Begin
tu:=p1.tu*p2.mau; {Nhan nghich dao phan so thu hai}
mau:=p1.mau*p2.tu;
X :=Uscln(tu,mau);
Tu:=tu div x;
Mau:=mau div x;
End;
End;
{} Procedure NgDao(var p:phanso);
Var
tam:integer;
Begin
tam:=p.tu;
p.tu:=p.mau;
p.mau:=tam;
End;
{Main program}
Begin
WriteLn(` CHUONG TRINH XU LI PHAN SO`);
Write(`Nhap vao phan so thu nhat :`);
Readln(Fanso1.tu,Fanso1.mau);
Write(`Nhap vao phan so thu hai :`);
Readln(Fanso2.tu,Fanso2.mau);
Writeln(`Ket qua la: `);
Nhan(fanso1,fanso2,kq);
Writeln(`ket qua nhan hai phan so: `,kq.tu,`/`,kq.mau);
Chia(fanso1,fanso2,kq);
Writeln(`ket qua chia hai phan so: `,kq.tu,`/`,kq.mau);
Ngdao(fanso1);
Writeln(`ket qua nghich dao cua phan so 1 : `,fanso1.tu,`/`,fanso1.mau);
End. {of main program}

-Test: (3 điểm)
Nhập vào: 1/2, 4/5
Xuất ra:
+Nhân:4/10 hoặc 2/5 (1 điểm)
+Chia: 5/8 (1 điểm)
+Nghịch đảo: 2/1 hoặc 5/4 (1 điểm)

Bài 2: (4 điểm)
Program CHUAN_HOA;
uses crt;
var i,n:integer;
s:string;
Function chuan_hoa1(ch:string