免费的Pascal IDE: Writeln和Readln无法正常工作 - 腾讯云开发者社区 - 腾讯云

开发者社区

文档建议反馈控制台

文章/答案/技术大牛

发布

一个很逗的东西——Jd

这个嘛是本人专门为了NOI上面对拍程序写的对拍程序，已经经历了NOI2015的考验；更重要的是——纯Pascal的哦（HansBug：其实是我不会写.sh脚本TT，谁叫用惯了windows的我只会写bat...t1,t2:extended;tt,jj:boolean; 8 function fc(ss1,ss2:ansistring):boolean; //标准比对模块，千万注意无论是正常退出还是中断的都必须关闭文件...14 begin 15 readln(f1,s1);readln(f2,s2); 16...（本程序中的是忽略行末空格和多余回车的，也就是常用的模式），比如说允许0.01%的实数精度误差，那样子只要简单修改下fc模块代码即可正常使用，而且在程序其他的地方也可以按照你自己的需要自由的增删功能，比如自动计算当前拍下来所有的点里面的正确率...或者可以这么说——这个东西是Pascal写的（当然了欢迎大家做出来C/C++版的高级语言对拍器），这个是你作为一个OI党再熟悉不过的语言了，所以可以这么说，在这个里面只要你想要的功能都可以有，只要你能编出来

68612 0

4063: Darts

板子由十个环组成，半径分别为20, 40, 60, 80, 100, 120, 140, 160, 180和200（单位：mm），均以原点为中心。每次投掷的得分取决于飞镖所击中的位置。...接下来n行，每行两个整数x和y，表示一次投掷击中的位置为(x, y)，-200 <= x, y <= 200。 Output 对于每组数据输出一行，即n次投掷得分的总和。...inc(ans,doit(k,l)); 26 end; 27 writeln(ans); 28 end; 29 end....Problem: 4063 3 User: HansBug 4 Language: Pascal 5 Result: Wrong_Answer 6 ***********...inc(ans,doit(k,l)); 22 end; 23 writeln(ans); 24 end; 25 end.

66611 0

您找到你想要的搜索结果了吗？

是的

没有找到

33841750: Apple Catching 接苹果

（编号为1和2），每一棵树上都长满了苹果．奶牛贝茜无法摘下树上的苹果，所以她只能等待苹果从树上落下．但是，由于苹果掉到地上会摔烂，贝茜必须在半空中接住苹果（没有人爱吃摔烂的苹果）．贝茜吃东西很快，所以她接到苹果后仅用几秒钟就能吃完...Input 第1行：由空格隔开的两个整数T和W. 第2到T+1行：1或2（每分钟掉落苹果的树的编号）．...**************************************** 2 Problem: 3384 3 User: HansBug 4 Language: Pascal...(l); 35 readln; 36 end....(l); 35 readln; 36 end.

71811 0

字符和字符串

字符常量的定义： const 字符常量=‘字符’ 字符变量的定义： Var 字符变量:char; 例题模拟一个简单的计算器，即输入两个数和一个算符（加、减、乘、除）。...输入： 12 24 + 输出： 36 Program exam5_4; Var a,b,c:integer; ch: char; begin readln(a,b); readln...【输入】FreePascal 【输出】eeasca 2、分别统计一个字符串中大写字母和小写字母的个数。...+：连接运算符比如：‘Turbo ’+‘PASCAL’的结果是‘Turbo PASCAL’。若连接的结果字符串长度超过255，则被截成255 个字符。...‘12’〈‘2’ 结果为真； ‘PASCAL ’=‘PASCAL’ 结果为假；练习对给定的10个字符串。

7302 0

2292: 【POJ Challenge 】永远挑战

所以1tthinking把某些边的长度增加了1（也就是说，每条边的长度不是1就是2）。现在，可怜的ftiasch要向你求助了。 ?...Input 第1行，两个整数 N (1 ≤ N ≤ 105) 和 M (1 ≤ M ≤ 106), 点和边的数量。...**************************************** 2 Problem: 2292 3 User: HansBug 4 Language: Pascal...(c[n]); 54 readln; 55 end....(c[t]); 55 readln; 56 end.

5656 0

3407: Bessies Weight Problem 贝茜的体重问题

Input 第1行：两个由空格隔开的整数日和N. 第2到第N+1行：第i+l行是一个单独的整数，表示第i捆干草的重量Si．...Sample Input 56 4 15 19 20 21 Sample Output 56 HINT 有四捆草，重量分别是15，19，20和21.贝茜在56公斤的限制范围内想要吃多少就可以吃多少...**************************************** 2 Problem: 3407 3 User: HansBug 4 Language: Pascal...********************************** 2 Problem: 3407 3 User: HansBug 4 Language: Pascal...do 23 if j>=b[i] then a[j]:=max(a[j],a[j-b[i]]+b[i]); 24 writeln(a[m]); 25 readln

5978 0

33861752: Til the Cows Come Home 带奶牛回家

现给出所有路标之间的小路，要求输出贝茜回到谷仓的最短路程（每组输入数据都保证有解）． Input 第1行：2个整数T和N． ...**************************************** 2 Problem: 3386 3 User: HansBug 4 Language: Pascal...next; 54 end; 55 g[d[f]]:=0;inc(f); 56 end; 57 writeln...* 2 Problem: 1752 3 User: HansBug 4 Language: Pascal 5 Result: Accepted 6 Time...(c[n]); 58 readln; 59 end.

52511 0

3389: Cleaning Shifts安排值班

Sample Input 3 10 1 7 3 6 6 10 Sample Output 2 样例说明奶牛1和奶牛3参与值班即可．...**************************************** 2 Problem: 3389 3 User: HansBug 4 Language: Pascal...(-1) else writeln(ans); 61 end....3 User: HansBug 4 Language: Pascal 5 Result: Accepted 6 Time:160 ms 7 Memory...(c[m]); 97 readln; 98 end.

9725 0

1000: A+B Problem（NetWork Flow）

a, &b); printf("%d\n",a+b); return 0; } Here is a sample solution for problem 1000 using PASCAL...: program p1000(Input,Output); var a,b:Integer; begin Readln(a,b); Writeln(a+b);...直接源点与汇点连两条边权分别为A和B的有向边，然后跑sap完事，具体看代码 1 /***********************************************************...*** 2 Problem: 1000 3 User: HansBug 4 Language: Pascal 5 Result: Accepted 6...(ans); 61 readln; 62 end.

6947 0

1455: 罗马游戏

把i所在的团和j所在的团合并成一个团。如果i, j有一个人是死人，那么就忽略该命令。 2. Kill(i)。把i所在的团里面得分最低的人杀死。如果i这个人已经死了，这条命令就忽略。...K i Output 如果命令是Kill，对应的请输出被杀人的分数。...1 5 K 1 K 1 M 2 3 M 3 4 K 5 K 4 Sample Output 10 100 0 66 HINT Source 题解：呵呵呵呵呵呵呵呵呵和～...************ 2 Problem: 1455 3 User: HansBug 4 Language: Pascal 5 Result: Accepted...j:=getfat(j); 79 mak[j]:=1; 80 writeln

58810 0

3381: Cave Cows 2 洞穴里的牛之二

[1，10^9]依次通过i..j的通道，那奶牛的体重指数就不能超过i..j通道中阈值的最小值．贝茜有Q(1≤Q≤25000)个问题，想请教你由i到j的通道的阈值的最小值．...Input 第1行输入N和Q，接下来N行输入每个通道的阈值，之后Q行每行两个整数，对应问题中的i和j（i<j）． Output 对于每个问题，输出其结果．...**************************************** 2 Problem: 3381 3 User: HansBug 4 Language: Pascal...(j,k); 28 l:=trunc(ln(k-j+1)/ln(2)); 29 writeln(min(a[j,l],a[k-trunc(exp(...ln(2)*l))+1,l])); 30 end; 31 readln; 32 end.

4037 0

1081: 超级格雷码

2n个不同n位二进制数（即0~2n-1，不足n位在前补零）的一个排列，这个排列满足相邻的两个二进制数的n位数字中最多只有一个数字不同（例如003和001就有一个数位不同，而003和030有两个数位不同，...任务：给出n和B（2≤B≤36, 1≤Bn≤65535），求一个满足条件的格雷码。对于大于9的数位用A~Z表示（10~35）。 Input 只有一行，为两个整数n和B。...晕，不过看到网上的部分题解后还是明白咋回事了——每个数字要倒着输出然后就是正常的生成格雷码即可 1 /************************************************...************** 2 Problem: 1081 3 User: HansBug 4 Language: Pascal 5 Result: Accepted...; 40 end; 41 readln; 42 end.

6006 0

1741: Asteroids 穿越小行星群

贝茜想驾驶她的飞船穿过危险的小行星群．小行星群是一个NxN的网格(1≤N≤500)，在网格内有K个小行星(1≤K≤10000)． ...第1行：两个整数N和K，用一个空格隔开．第2行至K+1行：每一行有两个空格隔开的整数R，C(1≤R，C≤N)，分别表示小行星所在的行和列．...(ans); 72 readln; 73 end....2 Problem: 1741 3 User: HansBug 4 Language: Pascal 5 Result: Accepted 6 Time:...(ans);; 63 readln; 64 end.

6786 0

3390: Bad Cowtractors牛的报复

第2到M+1行：三个整数，表示一条可能线路的两个端点和费用．...Output 最大的花费．如果不能建成合理的线路，就输出-1 Sample Input 5 8 1 2 3 1 3 7 2 3 10 2 4 4 2 5 8 3 4 6 3 5 2...4 5 17 Sample Output 42 连接4和5,2和5，2和3，1和3，花费17+8+10+7=42 HINT Source Silver 题解：最小生成树模板题（HansBug：...**************************************** 2 Problem: 3390 3 User: HansBug 4 Language: Pascal...(-1) else writeln(ans); 66 readln; 67 end.

3736 0

1339 1163: Mafia

对于每个车站进行布控都需要一定的代价,现在警方希望使用最小的代价控制一些车站,使得去掉这些车站后，匪徒无法从原定的初始点到达目标点 Input 第一行输入N,M代表车站的总个数,及有多少条双向边连接它们...再下来有N行,给出对第i个车站进行布控所需要的Money,其不超过10 000 000 再下来M行,用于描述图的结构....**************************** 2 Problem: 1163 3 User: HansBug 4 Language: Pascal 5...(d,sizeof(d),0); 69 ans:=0;n:=n*2; 70 while d[s]<n do inc(ans,dfs(s,maxlongint)); 71 writeln...(ans); 72 readln; 73 end.

4985 0

Free Pascal初次体验(有亮点哦)

感觉上Pascal语言写的非常有条理，和英语很像，应该是比较容易学，但是写起来真的是麻烦的要死，平时一行代码用C/C++可能就是几秒钟，用Pascal就要几分钟，Free Pascal感觉也不是很好用，...比如以下面这个为例：例题：已知一位小朋友的电影票价为42元，计算x位小朋友的总票价是多少？这个应该是再简单不过的题了，但是这题目写起来还是有点费神！...下面给出参考代码： 1 program exl_3; 2 var 3 x,y:integer; 4 begin 5 readln(x); 6 y:=42*x; 7 writeln('total...这个最气的一点就是不能复制粘贴，什么情况？一个一个打上去好累啊！算了，还是放弃学Pascal语言了，实在是麻烦，而且累！我也不知道有些高中生是怎么过来的！ ? 附上一张超屌的图： ? 啦啦啦！...感谢大家一直以来对我文章的支持，大家在文章末尾评论留言，抛出一个话题：学生到底是应该早去接触学习编程还是等到大学再去呢,写写你们的看法！谢谢各位聚聚支持，我会做的更好！

6235 0

3400: Cow Frisbee Team 奶牛沙盘队

)，他希望所有奶牛的飞盘水准指数之和是幸运数字的倍数． ...Input 第1行输入N和F，之后N行输入Ri． Output 组队方式数模10^8取余的结果．...****************** 2 Problem: 3400 3 User: HansBug 4 Language: Pascal 5 Result: Accepted...for j:=0 to m do 23 a[i,j]:=(a[i-1,(j-b[i]+m) mod m]+a[i-1,j]) mod p; 24 writeln...(a[n,0]-1); 25 readln; 26 end.

5705 0

3404: Cow Digit Game又见数字游戏

游戏一共进行了G(1≤G≤100)场．第i场游戏开始于一个正整数Ni(l≤Ni≤1,000,000)．游戏规则是这样的：双方轮流操作，将当前的数字减去一个数，这个数可以是当前数字的最大数码，也可以是最小的非...但是我还是在读题上逗比了N次——第一次我以为每次可以减去 1-最大的位数；第二次我以为可以减去最小的位数-最大的位数；直到第三次才发现只可以减去最大位数和最小位数。。。...**************************************** 2 Problem: 3404 3 User: HansBug 4 Language: Pascal...(n); 41 for i:=1 to n do 42 begin 43 readln(m); 44 if a[m,1...] then writeln('YES') else writeln('NO'); 45 end; 46 readln; 47 end.

7689 0

3409: Barn Echoes 牛棚回声

你要确定最长的重复部份的长度。两个字符串的重复部份指的是同时是一个字符串的前缀和另一个字符串的后缀的字符串。我们通过一个例子来理解题目。...Input 两行: 每一行是1个字符串表示奶牛的哞声或它的回声。 Output 第一行: 包含一个单独的整数表示输入的2个字符串中，一个字符串的前缀和另一个字符串的后缀的最长的重复部份的长度。...Sample Input abcxxxxabcxabcd abcdxabcxxxxabcx Sample Output 11 "abcxxxxabcx"是第一个字符串的前缀和第二个字符串的后缀...(l); 39 readln; 40 end....(l); 69 readln; 70 end.

6247 0

3377: The Cow Lineup 奶牛序列

Input 第1行输入两个整数N和K，接下来N行输入奶牛序列． Output 最短的不出现子序列．...Sample Input 14 5 1 5 3 2 5 1 3 4 4 2 5 1 2 3 Sample Output 3 样例说明所有的长度为1和为...**************************************** 2 Problem: 3377 3 User: HansBug 4 Language: Pascal...inc(k); 23 l:=0; 24 end; 25 end; 26 writeln...(k); 27 readln; 28 end.

5557 0

点击加载更多

扫码

添加站长进交流群

领取专属 10元无门槛券

手把手带您无忧上云

扫码加入开发者社群

相关资讯

热门标签

活动推荐

运营活动

活动名称

广告关闭