堆模板(pascal)洛谷P3378

Posted Currier

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了堆模板(pascal)洛谷P3378相关的知识,希望对你有一定的参考价值。

题目描述

如题,初始小根堆为空,我们需要支持以下3种操作:

操作1: 1 x 表示将x插入到堆中

操作2: 2 输出该小根堆内的最小数

操作3: 3 删除该小根堆内的最小数

输入输出格式

输入格式:

第一行包含一个整数N,表示操作的个数

接下来N行,每行包含1个或2个正整数,表示三种操作,格式如下:

操作1: 1 x

操作2: 2

操作3: 3

 

输出格式:

包含若干行正整数,每行依次对应一个操作2的结果。

 

输入输出样例

输入样例#1:
5
1 2
1 5
2
3
2
输出样例#1:
2
5

说明

时空限制:1000ms,128M

数据规模:

对于30%的数据:N<=15

对于70%的数据:N<=10000

对于100%的数据:N<=1000000(注意是6个0。。。不过不要害怕,经过编者实测,堆是可以AC的)

样例说明:

技术分享

故输出为2、5

 

 

明天市赛,继续复习板子。

代码丑勿喷。

 1 program rrr(input,output);
 2 var
 3   a:array[0..1000010]of longint;
 4   n,opt,i,m,t,k,x:longint;
 5 procedure ins;
 6 begin
 7    inc(m);a[m]:=x;k:=m;
 8    while (k>1) and (a[k>>1]>a[k]) do begin t:=a[k>>1];a[k>>1]:=a[k];a[k]:=t;k:=k>>1; end;
 9 end;
10 procedure del;
11 begin
12    a[1]:=a[m];dec(m);k:=1;
13    while true do
14       begin
15          if k+k>m then exit;
16          if k+k=m then
17             begin
18                if a[k+k]<a[k] then begin t:=a[k+k];a[k+k]:=a[k];a[k]:=t; end;
19                break;
20             end;
21          if (a[k+k]>=a[k]) and (a[k+k+1]>=a[k]) then break;
22          if a[k+k]<a[k+k+1] then
23             begin t:=a[k+k];a[k+k]:=a[k];a[k]:=t;k:=k+k; end
24         else begin t:=a[k+k+1];a[k+k+1]:=a[k];a[k]:=t;k:=k+k+1; end;
25       end;
26 end;
27 begin
28    assign(input,r.in);assign(output,r.out);reset(input);rewrite(output);
29    readln(n);
30    m:=0;
31    for i:=1 to n do
32       begin
33          read(opt);
34          if opt=1 then begin read(x);ins; end
35          else if opt=2 then writeln(a[1])
36          else del;
37       end;
38    close(input);close(output);
39 end.

 





以上是关于堆模板(pascal)洛谷P3378的主要内容,如果未能解决你的问题,请参考以下文章

堆的模板题洛谷P3378

P3378 模板堆

luogu P3378 堆模板

P3378 模板堆

P3378 模板堆

luogu P3378 模板堆