Sửa bài 3, thi hsg Tin học huyện củ chi
Chia sẻ bởi Dương Mẵn Đạt |
Ngày 26/04/2019 |
49
Chia sẻ tài liệu: Sửa bài 3, thi hsg Tin học huyện củ chi thuộc Tin học 11
Nội dung tài liệu:
{Giải bài kim tự tháp , (Bài 3 Tin học)}
var f,f1:text;
i,j,n,s,x:integer;
a:array[1..100] of integer;
b:array[1..100,1..100] of integer;
function max(x,y:integer):integer;
var m:integer;
begin
if x > y then m:=x else m:=y;
max:=m;
end;
begin
assign(f,`d:paramid.inp`);reset(f);
readln(f,n);
for i:= 1 to n*n-2*n do
read(f,a[i]);
close(f);
{mang 1 > mang 2}
x:=0;
for i:= 1 to n do
for j:= 1 to i do
begin
x:=x+1;
b[i,j]:=a[x];
end;
{tim max roi cong lai}
s:= a[1];{max chi cong ket qua tu hang thu 2 nen s phai bang a[1] hoac b[1,1]}
i:=1;
j:=1;
x:=0;
repeat {lap lai n-1 lan, vi co n-1 lan so sanh}
if max(b[j+1,i],b[j+1,i+1]) = b[j+1,i] then
begin
s:=s+b[j+1,i];
j:=j+1;
end
else
begin
s:=s+b[j+1,i+1];
j:=j+1;
i:=i+1
end;
x:=x+1;
until x = n-1;
{luu ket qua vao }
assign(f1,`d:paramid.out`);rewrite(f1);
writeln(f1,s);
close(f1);
readln;
end.
var f,f1:text;
i,j,n,s,x:integer;
a:array[1..100] of integer;
b:array[1..100,1..100] of integer;
function max(x,y:integer):integer;
var m:integer;
begin
if x > y then m:=x else m:=y;
max:=m;
end;
begin
assign(f,`d:paramid.inp`);reset(f);
readln(f,n);
for i:= 1 to n*n-2*n do
read(f,a[i]);
close(f);
{mang 1 > mang 2}
x:=0;
for i:= 1 to n do
for j:= 1 to i do
begin
x:=x+1;
b[i,j]:=a[x];
end;
{tim max roi cong lai}
s:= a[1];{max chi cong ket qua tu hang thu 2 nen s phai bang a[1] hoac b[1,1]}
i:=1;
j:=1;
x:=0;
repeat {lap lai n-1 lan, vi co n-1 lan so sanh}
if max(b[j+1,i],b[j+1,i+1]) = b[j+1,i] then
begin
s:=s+b[j+1,i];
j:=j+1;
end
else
begin
s:=s+b[j+1,i+1];
j:=j+1;
i:=i+1
end;
x:=x+1;
until x = n-1;
{luu ket qua vao }
assign(f1,`d:paramid.out`);rewrite(f1);
writeln(f1,s);
close(f1);
readln;
end.
* Một số tài liệu cũ có thể bị lỗi font khi hiển thị do dùng bộ mã không phải Unikey ...
Người chia sẻ: Dương Mẵn Đạt
Dung lượng: |
Lượt tài: 0
Loại file:
Nguồn : Chưa rõ
(Tài liệu chưa được thẩm định)