堆模板(pascal)洛谷P3378
2024-08-28 00:38:13
题目描述
如题,初始小根堆为空,我们需要支持以下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
明天市赛,继续复习板子。
代码丑勿喷。
program rrr(input,output);
var
a:array[..]of longint;
n,opt,i,m,t,k,x:longint;
procedure ins;
begin
inc(m);a[m]:=x;k:=m;
while (k>) and (a[k>>]>a[k]) do begin t:=a[k>>];a[k>>]:=a[k];a[k]:=t;k:=k>>; end;
end;
procedure del;
begin
a[]:=a[m];dec(m);k:=;
while true do
begin
if k+k>m then exit;
if k+k=m then
begin
if a[k+k]<a[k] then begin t:=a[k+k];a[k+k]:=a[k];a[k]:=t; end;
break;
end;
if (a[k+k]>=a[k]) and (a[k+k+]>=a[k]) then break;
if a[k+k]<a[k+k+] then
begin t:=a[k+k];a[k+k]:=a[k];a[k]:=t;k:=k+k; end
else begin t:=a[k+k+];a[k+k+]:=a[k];a[k]:=t;k:=k+k+; end;
end;
end;
begin
assign(input,'r.in');assign(output,'r.out');reset(input);rewrite(output);
readln(n);
m:=;
for i:= to n do
begin
read(opt);
if opt= then begin read(x);ins; end
else if opt= then writeln(a[])
else del;
end;
close(input);close(output);
end.
最新文章
- C++_系列自学课程_第_5_课_vector容器_《C++ Primer 第四版》
- Thinking in Java——笔记(19)
- 构建自己的PHP框架--抽象框架的内容
- 从苹果apns的feedback服务器获取推送失败的token
- jquery和js使用技巧
- 中国广核集团:BPM与ERP紧密结合
- bzoj 1096: [ZJOI2007]仓库建设
- Oracle 事务相关的一些测试
- Oracle - SQL 错误: ORA-00917: 缺失逗号
- 截取字符串一之substring
- 【JavaScript创建对象】
- Collections.sort自定义排序的使用方法
- Numpy系列(十三)- 文件IO
- Ocelot使用
- Linux umask
- mount过程分析之一(基于3.16.3内核)【转】
- Python decode和encody
- BG.Sqoop
- Canny边缘检测——学习笔记
- xshell 用密钥登录服务器