- 博客(22)
- 收藏
- 关注
原创 新手村之BOSS战-入门综合练习2
P1426 小鱼会有危险吗 总:三个字——暴力。var s,x,ans,n:real;begin readln(s,x); ans:=0; n:=7; while ans<s-x do begin ans:=ans+n; n:=n*0.98; end; ans:=ans+n; if an...
2017-01-15 17:18:00 82
原创 新手村之BOSS战-入门综合练习2
P1426 小鱼会有危险吗 总:三个字——暴力。var s,x,ans,n:real;begin readln(s,x); ans:=0; n:=7; while ans<s-x do begin ans:=ans+n; n:=n*0.98; end; ans:=ans+n; if ans>s+x then write('n')
2017-01-15 17:17:56 435
原创 新手村之BOSS战-入门综合练习1
P1478 陶陶摘苹果(升级版) 代码: 总:把力气从小到大排序,判断是否能摘到,累加。var j,ans,n,s,h,h1,i:longint; x,y:array[1..5000]of longint;procedure init;var i:longint;begin readln(n,s); readln(h,h1); inc(h,h1); for i:=
2017-01-15 17:13:03 350
原创 新手村之BOSS战-入门综合练习1
P1478 陶陶摘苹果(升级版) 代码: 总:把力气从小到大排序,判断是否能摘到,累加。var j,ans,n,s,h,h1,i:longint; x,y:array[1..5000]of longint;procedure init;var i:longint;begin readln(n,s); readln(h,h1); in...
2017-01-15 17:13:00 133
原创 新手村之过程函数与递归
前言:前言君以被代码击杀。 P1028 数的计算 代码: 总:递归。const maxn=1000;var i,n:longint; a:array [1..maxn] of longint;procedure dfs(m:longint);var i:longint;begin if a[m]<>-1 then exit; a[m]:=1; for i:=1 t
2017-01-13 11:16:09 351
原创 新手村之过程函数与递归
前言:前言君以被代码击杀。 P1028 数的计算 代码: 总:递归。const maxn=1000;var i,n:longint; a:array [1..maxn] of longint;procedure dfs(m:longint);var i:longint;begin if a[m]<>-1 then exit;...
2017-01-13 11:16:00 349
原创 新手村之简单字符串
前言:根据题意,是简单的字符串。所以只要暴力和模拟,注意细节问题。 P1055 ISBN号码 代码:var s:string; i,j,n,m,k,l,t:longint; v:char;begin readln(s); delete(s,2,1); delete(s,5,1); delete(s,10,1); for i:=1 to 9 do t:=(o
2017-01-13 10:23:06 270
原创 新手村之简单字符串
前言:根据题意,是简单的字符串。所以只要暴力和模拟,注意细节问题。 P1055 ISBN号码 代码:var s:string; i,j,n,m,k,l,t:longint; v:char;begin readln(s); delete(s,2,1); delete(s,5,1); delete(s,10,1); for i:=1...
2017-01-13 10:23:00 99
原创 新手村之数组
前言:都是暴力+模拟。P1046 陶陶摘苹果 代码:var a:array [1..11] of longint; n,s,i:longint;begin for i:=1 to 10 do read(a[i]); read(n); n:=n+30; for i:=1 to 10 do if n>=a[i] then inc(s); write(s);
2017-01-12 15:46:29 245
原创 新手村之数组
前言:都是暴力+模拟。P1046 陶陶摘苹果 代码:var a:array [1..11] of longint; n,s,i:longint;begin for i:=1 to 10 do read(a[i]); read(n); n:=n+30; for i:=1 to 10 do if n>=a[i] the...
2017-01-12 15:46:00 68
原创 新手村之循环!循环!循环!
P1008 三连击 代码: 总:优美的暴力或打表。var i,j,a,b,c:longint; v:array [0..10] of boolean; f:boolean;begin for i:=123 to 345 do begin fillchar(v,sizeof(v),0); a:=i; b:=i*2; c:=i*3; for
2017-01-12 14:53:19 519
原创 新手村之循环!循环!循环!
P1008 三连击 代码: 总:优美的暴力或打表。var i,j,a,b,c:longint; v:array [0..10] of boolean; f:boolean;begin for i:=123 to 345 do begin fillchar(v,sizeof(v),0); a:=i; b:=i*2; ...
2017-01-12 14:53:00 276
原创 新手村之顺序与分支
P1422 小玉家的电费 代码: 总:分类(累)讨论。 var n:longint; ans:real; begin readln(n); if n<=150 then ans:=n*0.4463; if (n>150) and (n<=400)...
2017-01-12 11:34:00 71
原创 新手村之顺序与分支
P1422 小玉家的电费 代码: 总:分类(累)讨论。var n:longint; ans:real;begin readln(n); if n<=150 then ans:=n*0.4463; if (n>150) and (n<=400) then ans:=150*0.4463+(n-150)*0.4663; if n>400 then ans:=150*0.446
2017-01-12 11:33:44 320
原创 新手村之洛谷的第一个任务
P1001 A+B Problem 代码 :var a,b:longint;begin readln(a,b); write(a+b);end.P1421 小玉买文具 代码:var a,b:real;begin readln(a,b); write(trunc((a+b/10)/1.9));end.P1425 小鱼的游泳时间 代码:var a,b,c,d:long
2017-01-12 11:03:24 474
原创 新手村之洛谷的第一个任务
P1001 A+B Problem 代码 : var a,b:longint; begin readln(a,b); write(a+b); end. P1421 小玉买文具 代码: var a,b:real; begin readln...
2017-01-12 11:03:00 144
原创 USACO 4.2 The Perfect Stall 完美的牛栏(最大匹配)
Description 农夫约翰上个星期刚刚建好了他的新牛棚,他使用了最新的挤奶技术。不幸的是,由于工程问题,每个牛栏都不一样。第一个星期,农夫约翰随便地让奶牛们进入牛栏,但是问题很快地显露出来:每头奶牛都只愿意在她们喜欢的那些牛栏中产奶。上个星期,农夫约翰刚刚收集到了奶牛们的爱好的信息(每头奶牛喜欢在哪些牛栏产奶)。一个牛栏只能容纳一头奶牛,当然,一头...
2017-01-12 10:58:00 60
原创 USACO 4.2 The Perfect Stall 完美的牛栏(最大匹配)
Description农夫约翰上个星期刚刚建好了他的新牛棚,他使用了最新的挤奶技术。不幸的是,由于工程问题,每个牛栏都不一样。第一个星期,农夫约翰随便地让奶牛们进入牛栏,但是问题很快地显露出来:每头奶牛都只愿意在她们喜欢的那些牛栏中产奶。上个星期,农夫约翰刚刚收集到了奶牛们的爱好的信息(每头奶牛喜欢在哪些牛栏产奶)。一个牛栏只能容纳一头奶牛,当然,一头奶牛只能在一个牛栏中产奶。 给出奶牛们的爱好的
2017-01-12 10:57:48 916
原创 落谷_2740/poj_1273/USACO_4.2/网络流
题目背景在农夫约翰的农场上,每逢下雨,贝茜最喜欢的三叶草地就积聚了一潭水。这意味着草地被水淹没了,并且小草要继续生长还要花相当长一段时间。因此,农夫约翰修建了一套排水系统来使贝茜的草地免除被大水淹没的烦恼(不用担心,雨水会流向附近的一条小溪)。作为一名一流的技师,农夫约翰已经在每条排水沟的一端安上了控制器,这样他可以控制流入排水沟的水流量。题目描述农夫约翰知道每一条排水沟每分钟可以流过的水量,和排
2017-01-11 16:48:13 329
原创 落谷_2740/poj_1273/USACO_4.2/网络流
题目背景在农夫约翰的农场上,每逢下雨,贝茜最喜欢的三叶草地就积聚了一潭水。这意味着草地被水淹没了,并且小草要继续生长还要花相当长一段时间。因此,农夫约翰修建了一套排水系统来使贝茜的草地免除被大水淹没的烦恼(不用担心,雨水会流向附近的一条小溪)。作为一名一流的技师,农夫约翰已经在每条排水沟的一端安上了控制器,这样他可以控制流入排水沟的水流量。题目描述农夫约翰知道每一条排水沟...
2017-01-11 16:48:00 122
原创 总觉得这可以用(网络流)
Repeat 队列置空; 所有点设为未标号; 将源点加入队列,并标号为(0,+∞); while 队列非空 { 头指针+1 依次检查与头指针指向的元素相连的边 if 另一点没有标号 and 流量可改进 ...
2017-01-11 16:44:00 75
转载 总觉得这可以用(网络流)
Repeat 队列置空; 所有点设为未标号; 将源点加入队列,并标号为(0,+∞); while 队列非空 { 头指针+1 依次检查与头指针指向的元素相连的边 if 另一点没有标号 and 流量可改进 {
2017-01-11 16:43:49 254
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人