P
pe_kid_55


Ai có đề thi tin học trẻ tỉnh/tp không? Post lên cho mọi người làm với!
Ai có đề thi tin học trẻ tỉnh/tp không? Post lên cho mọi người làm với!
Ừ cái gì cũng được, miễn là đề thi tin học là được rồi.Mình chỉ có đề thi học sinh giỏi thôi. Bạn lấy k0?
bài này có công thức trong sách của TS.Quách tuấn Ngọc đó- Biết ngày 14/4/2011 là thứ 5. Viết chương trình nhập vào ngày, tháng, năm. Sau đó xuất ra màn hình đó là ngày thứ mấy trong tuần. ( biết năm nhuận là năm chia hết cho 4 nhưng không chia hết cho 400)
Chính xác là thuật toán Doomsday .bài này có công thức trong sách của TS.Quách tuấn Ngọc đó
3 Đề tin học trẻ THCS tỉnh Quảng Nam :
- Nhập vào bảng số nguyên A (nxn), sắp xếp và in ra dãy A tăng dần theo hình Zichzac
- Nhập vào bảng số nguyên A (nxn), sắp xếp và in ra dãy A tăng dần theo hình Xoắn ốc1|2|3
6|5|4
7|8|9
1|2|3
8|9|4
7|6|5
- Biết ngày 14/4/2011 là thứ 5. Viết chương trình nhập vào ngày, tháng, năm. Sau đó xuất ra màn hình đó là ngày thứ mấy trong tuần. ( biết năm nhuận là năm chia hết cho 4 nhưng không chia hết cho 400)
Var f,f1:text;
A:array[1..10,1..10] of word;
B:array[1..100] of word;
m,n:word;
Procedure Nhap;
Var i,j:word;
Begin
Assign(f,'inp.dat');reset(f);
Read(f,m,n);
For i:=1 to m do
For j:=1 to n do
Read(f,a[i,j]);
End;
Procedure doicho(var a,b:word);
Var tg:word;
Begin
tg:=a;
a:=b;
b:=tg;
End;
Procedure Sapxep;
Var l,i,j:word;
Begin
l:=0;
For i:=1 to m do
For j:=1 to n do
Begin
inc(l);
B[l]:=A[i,j];
End;
For i:=1 to m*n-1 do
For j:=i+1 to m*n do
If b[i]>b[j] then
doicho(b[i],b[j]);
l:=0;
For i:=1 to m do
For j:=1 to n do
Begin
inc(l);
A[i,j]:=B[l];
End;
End;
Procedure Xuli;
Var i,j,k,q:word;
Begin
For i:=1 to m do
For j:=1 to n do
If i mod 2=0 then
For k:=1 to n-1 do
For q:=k+1 to n do
If A[i,k]<A[i,q] then
doicho(a[i,k],a[i,q]);
End;
Procedure Xuat;
var i,j:word;
Begin
Assign(f1,'out.dat');rewrite(f1);
For i:=1 to m do
Begin
For j:=1 to n do
write(f1,a[i,j],' ');
writeln(f1);
End;
Close(f1);
readln;
End;
BEGIN
Nhap;
Sapxep;
Xuli;
Xuat;
End.
begin
assign(f,'so.inp');
assign(f1,'so.out');
reset(f);
readln(f,n,m);
rewrite(f1);
cot:=m;
dong:=n;
so:=n*m;
i:=1;
j:=1;
dem:=1;
k:=0;
repeat
while (k<so) and ( j< cot) do
begin
j:= j+1;
k:= k+1;
a[i,j]:= k;
end;
while (k<so) and ( i< dong) do
begin
i:= i+1;
k:=k+1;
a[i,j]:= k;
end;
while (k<so) and ( j > dem) do
begin
j:= j-1;
k:= k+1;
a[i,j]:= k;
end;
while (k<so) and ( i > dem+1) do
begin
i:= i-1;
k:= k+1;
a[i,j]:= k;
end;
dong:=dong-1;
cot:=cot-1;
dem:=dem+1;
until so=k;
for i:=1 to n do
begin
for j:=1 to m do
write(f1,a[i,j]:4);
writeln(f1);
close(f);
close(f1);