Đề 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;
Setcolor(Red);
Circle(xt,yt,1);
Circle(xt,yt,2);
Setcolor(Blue);
DrawPoly(4,Goc);
Readln;
Closegraph;
End.
Bài 3. Code hơi nhiều, nhưng rất đơn giản
Code:
Program Bai3;
Uses CRT;
Var So,i,CountSo:word;
f:file of word;
Chon:Byte;
Procedure Nhap;
Begin
Assign(f,'INPUT.DAT');

{$I-}Rewrite(f);{$I+}
If IOResult<>0 then
Begin
Writeln('Khong the tao file ''INPUT.DAT'' !!!');
Readln;
Exit;
End;
Write('Nhap vao so n phan tu: ');
Readln(CountSo);
For i:=1 to CountSo do
Begin
Write('Nhap vao so tu nhien thu ',i, ' : ');
Readln(So);
Write(f,So);
End;
Close(f);
End;
Function TinhTong:Word;
Var Tong:Word;
Begin
Tong:=0;
Assign(f,'INPUT.DAT');
{$I-}Reset(f);{$I+}
If IOResult<>0 then
Begin
Writeln('Khong the doc file ''INPUT.DAT'' !!!');
Readln;
Exit;
End;
While not(EOF(f)) do

Begin
Read(f,So);
Tong:=Tong+So;
End;
Close(f);
TinhTong:=Tong;
End;
Begin
Clrscr;
Repeat
Clrscr;

Writeln('***************************************************
***');
Writeln('1. Nhap phan tu');
Writeln('2. Tinh tong cac phan tu');
Writeln('3. Thoat');
Writeln;
Repeat
Write('Chon: ');Readln(Chon);
Until Chon in [1 3];
Case Chon of
1:Nhap;
2:Begin
Write('Tong cac phan tu la: ',TinhTong);
Readln;
End;
End
Until Chon=3;
End.

Câu1.
Nhập số nguyên N. Sau đó nhập 1 dãy gồm N phần tử .Tìm chiều dài
của dãy con có các số liên tiếp nhau mà tổng của chúng lớn nhất .
Yêu cầu:
Nhập:
N:6
123589
Xuất:
89
Câu 2.
Nhập 2 số nguyên N và M.Sau sau đó in ra ma trận gồm N cột và M
hàng.
a. Tim các số chính phương .Sau đó tìm số chính phương lớn nhất
b. Nếu N=M thì in ra trung bình cộng 2 đường chéo
c. Xuất ma trận gồm phần tử lẻ trước chẵn sau
Yêu cầu:
Nhập:
N,M:3,3
1 2 3
4 5 6
7 8 9
Xuất:
a.Cac so chinh phuong la:4,9
So chinh phuong lon nhat la:9
b.Trung binh cong cua 2 duong cheo la:15
c.
1 3 5
7 9 2
4 6 8
Câu 3.

Cho 1 chuỗi số .Hãy xoá 1 ít chữ số sao cho chữ số còn lại là 1 chữ số
giảm dần từ trái qua phải và là số lớn lớn nhất có thể có được .
Yêu cầu:
Nhập:
19235842.
Xuất:
9842
loc_math_th
09-20-2008, 09:53 PM
Bài 1: Đặt S(i)=a1 + a2 + + ai, MinS(i) là Min{S(j) với j từ 1 đến i-
1}. Tổng dãy liên tiếp lớn nhất kết thúc tại vị trí i là S(i)-MinS(i), từ đó
tìm ra lời giải.
Bài 3: Thực chất là tìm dãy con của dãy các chữ số để tạo thành số có
các chữ số giảm dần và đạt giá trị lớn nhất.
F(i) là số lớn nhất kết thúc tại i . F(i)=Max{F(j) / 1<=j<i và ai<aj}
*10 + ai
loc_math_th
09-20-2008, 09:54 PM
Bài 1:
Nhập một số nguyên dương từ bàn phím. In số vừa nhập và số được
tạo thành theo thứ tự đảo ngược ( VD số nhập là 1234 th“ số tạo
thành theo thứ tự đảo ngược là 4321 ).
Bài 2:
T“m ƯCLN của hai số nguyên không âm khác nhau.
Bài 3:
Nhập vào một dãy số nguyên
- Sắp xếp dãy số theo thứ tự tăng.
- Hãy xóa bớt các số có giá trị bằng nhau và chỉ bớt lại một số ( VD
dãy số là 1;2;2;2;3;4;5;5;7 th“ sau khi xóa la 1;2;3;4;5;7 ).
Bài 4:

T“m cách điền chín chữ số khác nhau (1;2;3;4;5;6;7;8;9) vào bảng
sau:
a b c
a' b' c'
a'' b'' c''
sao cho: a'b'c' = 2*(100a+10b+c) và đ?#8220;ng thời: a''b''c'' =
3*(100a+10b+c)
I'm a big big girl
in a big big world
It's not a big big thing if you leave me
but I do do feel that
I too too will miss you much
miss you much
I can see the first leaf falling
it's all yellow and nice
It's so very cold outside
like the way I'm feeling inside
I'm a big big girl
in a big big world
It's not a big big thing if you leave me
but I do do feel that
I too too will miss you much
miss you much
Outside it's now raining
and tears are falling from my eyes
why did it have to happen
why did it all have to end
I'm a big big girl
in a big big world
It's not a big big thing if you leave me

but I do do feel that
I too too will miss you much
miss you much
I have your arms around me ooooh like fire
but when I open my eyes
you're gone
I'm a big big girl
in a big big world
It's not a big big thing if you leave me
but I do do feel that
I too too will miss you much
miss you much
I'm a big big girl
in a big big world
It's not a big big thing if you leave me
but I do feel I will miss you much
miss you much
If only you could see the tears in the world you left behind
If only you could heal my heart just one more time
Even when I close my eyes
There's an image of your face
And once again I come I'll realise
You're a loss I can't replace
Soledad
It's a keeping for the lonely
Since the day that you were gone
Why did you leave me
Soledad
In my heart you were the only
And your memory live on

Why did you leave me
Soledad
Walking down the streets of Nothingville
Where our love was young and free
Can't believe just what an empty place
It has come to be
I would give my life away
If it could only be the same
Cause I can't still the voice inside of me
That is calling out your name
Soledad
It's a keeping for the lonely
Since the day that you were gone
Why did you leave me
Soledad
In my heart you were the only
And your memory live on
Why did you leave me
Soledad
Time will never change the things you told me
After all we're meant to be love will bring us back to you and
me
If only you could see
Soledad
It's a keeping for the lonely
Since the day that you were gone
Why did you leave me
Soledad
In my heart you were the only
And your memory live on

Why did you leave me
Soledad
Danh sách bài hát
Tên bài
Baby,baby,
I swear to you,
Baby,baby,
I\'m here for you,
I don\'t know why,
why i did those things to you,
what went through my mind,
And i don\'t know why,
why i broke your heart in two,
guess that i was blind,
Baby how i wish you could forgive me,
just one more time,baby
And i swear,
I\'ll be there,
anytime you want me to,
I\'ll be true,
here for you,
Don\'t leave me lonely,
cause i need you,
Guess i\'ve been a fool,
Now i can see the price to pay,
I can\'t run and hide,
Cause i\'m loosing you,
and my chances slipped away,
with each time i lied,
Baby how i wish you could forgive me,

One more time,
oh yeah
And i swear,(and i swear)
I\'ll be there,(i\'ll be there)
anytime you want me to,
yeah,
I\'ll be true(i\'ll be true)
here for you,
Don\'t leave me lonely,
cause i need you,
Baby,
Living without you,
will tear me apart,
When i know how it could have been,
But i don\'t care what it leads to,
let\'s make a new start,
and give love a chance to win,
cause,baby i swear,
Baby,baby,
I swear to you,
anytime you want me to,
Yes i swear,
Baby, baby,
I\'m here for you,
don\'t leave me lonely,
Cause i need you, (i need you)
And i swear,
I\'ll be there,
anytime you want me to,
yeah,

I\'ll be true,
here for you,
Don\'t leave me lonely,
Cause i need you, (cause i need you)
And i swear,(you know i\'ll be)
I\'ll be there,(i will be there)
(i swear) I\'ll be true,(i will be true)
Don\'t leave me lonely,
Cause i need you,
Yes baby i need you