Đề thi tin học trẻ ko chuyên!

Bài 1 ( 4 đ) Mật mã Atbash ( ra đời 500 năm TCN) Ta có bảng chữ cái a,b,c,d,e,f,g,h,I,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z Nguyên tắc mã hóa : Chữ cái đầu được thay thế bởi chữ cái cuối cùng và chữ cái thứ hai được thay thế bởi chữ cái kế tiếp chữ cái cuối cùng và cứ như thế tiếp tục. Yêu cầu của đề bài:
Lập chương trình mã hóa 1 chuỗi kí tự nhâp từ bàn phím lấy trong 26 kí tự trên. Chú ý rằng chuỗi nhập không có kí tự trắng. nếu chuỗi nhập có kí tự không thuộc bảng trên thì yêu cầu nhập lại cho đến khi đạt yêu cầu
Lập chương trình giải mã chuỗi kí tự đã được mã hóa.
Bài 2 (3 đ) Lập chương trình nhập vào tọa độ 3 điểm A,B,C của tam giác ABC vào máy:
* yêu cầu trong chương trình phải có 1 đoạn kiểm tra A,B,C có thẳng hàng hay không, nếu có thì nhập lại
Nhập vào tọa độ 1 điểm M và cho biết M nằm trong , ngoài hay trên cạnh tam giác
Bài 3 Lập chương trình nhập vào n số tự nhiên, tạo 1 file có tên INPUT chứa n số này, tiếp đó lập chương trình đọc file INPUT và tính tổng n số trong file đó. Xuất kết quả ra màn hình
Bai giai:


Program Mat_Ma_Atbash_Decoder; Uses CRT; Var i:integer;     Str,Str2:String;     dk:Boolean; Begin   Clrscr;   Repeat     Write(`Nhap vao mot chuoi chu thuong(Tu a - z) va khong co khoang cach: `);     Readln(Str);     dk:=True;     For i:=1 to length(Str) do       If not(Str[i] in [`a`..`z`]) then         Begin           dk:=False;           Break;         End;   Until dk=True;   For i:=1 to length(Str) do     Str2:=Str2+chr(122-ord(Str[i])+97);   Write(Str2);   Readln;

Bài 2. Câu a dễ rùi, em chỉ làm câu b thui, cái này em khỏi xài kiến thức đại học gì cả, mà rất đơn giản, mọi người coi sẽ biết ^^.
Code:

Uses CRT,Graph; Var gm,gd:Integer;     Goc:Array[1..4] of PointType;     Goc_tmp:PointType;     xt,yt,seg:Word;     p1:Pointer;     Vitri:byte; Begin   Write(`Nhap X1: `);Readln(xt);   Write(`Nhap Y1: `);Readln(yt);   Goc_tmp.x:=xt;   Goc_tmp.y:=yt;   Goc[1]:=Goc_tmp;   Goc[4]:=Goc_tmp;   Write(`Nhap X2: `);Readln(xt);   Write(`Nhap Y2: `);Readln(yt);   Goc_tmp.x:=xt;   Goc_tmp.y:=yt;   Goc[2]:=Goc_tmp;   Write(`Nhap X3: `);Readln(xt);   Write(`Nhap Y3: `);Readln(yt);   Goc_tmp.x:=xt;   Goc_tmp.y:=yt;   Goc[3]:=Goc_tmp;   Write(`Nhap toa do X cua diem M:`);Readln(xt);   Write(`Nhap toa do Y cua diem M:`);Readln(yt);   gm:=detect;   Initgraph(gm,gd,``);   SetbkColor(White);   Setcolor(Blue);   SetFillStyle(SolidFill,Yellow);   DrawPoly(4,Goc);   FillPoly(4,Goc);   Case GetPixel(xt,yt) of     Blue:Vitri:=1;     White:Vitri:=0;     Yellow:Vitri:=2;   End;   ClearDevice;   Case Vitri of     0:Outtextxy(1,1,`Diem M nam ngoai tam giac`);     1:Outtextxy(1,1,`Diem M nam tren canh cua tam giac`);     2:Outtextxy(1,1,`Diem M nam trong tam giac`);   End;