tju1131 — 编程爱好者社区

主题：tju1131

fxzxg [专家分：430] 发布于 2005-09-28 13:50:00

program tj;
const n=1048576;
label 1;
var a:array[1..n] of longint;
    b,c,d:longint;
function chengfang(x,y:integer):longint;
var z,i:longint;
begin
z:=1;
for i:=1 to y do
  z:=z*x;
chengfang:=z;
end;
begin
1:
readln(c);
for d:=1 to chengfang(2,c) do
  a[d]:=d;
for d:=1 to chengfang(2,c)-1 do
  begin
   readln(b);
   a[b]:=0;
  end;
  for d:=1 to chengfang(2,c) do
   if a[d]<>0
    then writeln(a[d]);
  goto 1;
end.

内存！！！！！！！！！！

本帖地址： http://bbs.pfan.cn/post/108932.html

回复列表（共4个回复）

沙发

qswbghk [专家分：280] 发布于 2005-09-28 13:55:00

我也不懂！！！！！！！

板凳

fxzxg [专家分：430] 发布于 2005-09-29 12:08:00

Problem
小卡卡继续着他的Pascal圣地之行。他来到了Pascal农场主John的家里，向他探询关于Pascal圣地宝藏的事。

John答应小卡卡愿意把他所知道的一切告诉小卡卡，但是John有一个要求，那就是希望小卡卡帮助他找出他走丢的一头奶牛。

John的奶牛都是由1－2^k编号的，但是John在放牛的时候无意中弄丢了一头奶牛。

他希望小卡卡告诉他，他走丢的奶牛的编号是多少。

Input
该题含有多组测试数据。

每组测试数据第一行一个整数k表示奶牛的数目为2^k（1<=k<=20）。

第二行到第2^k行每行一个整数表示还在农场的一头奶牛的编号（并不是按顺序给出的）。

Output
输出走丢的奶牛的编号

Sample Input
2
4
1
3

Sample Output
2

3 楼

qswbghk [专家分：280] 发布于 2005-10-02 09:49:00

我ac了！！！！！！！！
program tju1131;
var n,s,m,x,y:longint;
begin
while not seekeof(input) do
begin
readln(n);
y:=1;
for x:=1 to n do
  y:=y*2;
s:=0;
for x:=1 to y do
  s:=s+x;
for x:=1 to y-1 do
  begin
   readln(m);
   s:=s-m;
  end;
writeln(s);
end;
end.

4 楼

小田甜 [专家分：3910] 发布于 2005-10-02 17:42:00

1048576*4=4194304(byte)=4096(KB)=2(MB)

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：tju1131

回复列表（共4个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：tju1131

回复列表 （共4个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共4个回复）