Bài tập ngày 4_10_08 ( Thầy Toàn ) !!!!!

Tiêu đề: Bài tập ngày 4_10_08 ( Thầy Toàn ) !!!!! 4/10/2008, 2:14 am

Bài 1 :
Cho n điểm trong mặt phẳng tọa độ A1,A2,…An .
*Yêu cầu :
a) Tìm đường tròn có tâm thuộc n điểm , chứa tất cả các điểm và có chu vi nhỏ nhất .
b) Tìm đường tròn đi qua nhiều điểm nhất trong n điểm .

Bài 2 :
Cho ma trận vuông cấp n , tìm ma trận cao cấp k (k<= n) có tổng các phần tử là lớn nhất .
Vd:
Inp :
5 3 { trong đó 5 tượng trưng cho n , 3 là tượng trưng cho k }
2 5 7 9 10
0 2 1 8 3
7 1 2 0 0
2 4 4 1 7
6 4 1 3 5

Out :
40
7 9 10
1 8 3
2 0 0

lol!

Đang định hỏi thầy toàn còn dạy ko thì có bài rồi
Bài 1 năm ngoái hình như làm rồi
giờ quên hết công thức rồi ... haha
Bài 2 thì năm ngoái cô nhung cho làm oài ^^!

Bài tập 2:

program tim;
const fi='tim.inp';
fo='tim.out';
type matran=array[1..100,1..100] of integer;
var n,k:integer; a:matran;
{-------------}
procedure nhap;
var f:text; i,j:integer;
begin
assign(f,fi);
reset(f);
read(f,n,k);
for i:=1 to n do
for j:=1 to n do read(f,a[i,j]);
close(f);
end;
{-----------------}
function tong(i,j,k:integer):longint;
var u,v,s:integer;
begin
tong:=0;
for u:=i to i+k-1 do
for v:=j to j+k-1 do
tong:=tong+a[u,v];
end;

{------------------}
procedure xuly;
var f:text; dong,cot,max,i,j,p,h,t:integer;
begin
assign(f,fo);
rewrite(f);
for i:=1 to n-k+1 do
for j:=1 to n-k+1 do
begin
t:=tong(i,j,k);
if max<t then
begin
max:=t;
dong:=i;
cot:=j;
end;
end;
writeln(f,max);
for i:=dong to k do
begin
for j:=cot to n do write(f,a[i,j],' ');
writeln(f);
end;

close(f);
end;
{-----------------}
begin
nhap;
xuly;
end.

Cool