开发者社区

文档建议反馈控制台

最新优惠活动

文章/答案/技术大牛

发布

免费的Pascal IDE: Writeln和Readln无法正常工作

免费的Pascal IDE是指免费提供Pascal编程语言集成开发环境的工具。Pascal是一种结构化的高级编程语言，广泛应用于教育和科学计算领域。

在Pascal IDE中，Writeln和Readln是用于在控制台上进行输入输出的过程。Writeln用于向控制台输出一行文本，而Readln用于从控制台读取用户输入的文本。

如果Writeln和Readln在某个免费的Pascal IDE中无法正常工作，可能有以下几个可能的原因和解决方法：

IDE配置问题：首先，确保IDE的配置正确。检查IDE的设置，确保输入输出流被正确地连接到控制台。有些IDE可能默认将输入输出重定向到其他地方，例如文件或网络流。在IDE的设置中查找相关选项，确保输入输出流被正确设置为控制台。
代码逻辑错误：检查代码中与Writeln和Readln相关的部分，确保没有逻辑错误。例如，确保在调用Readln之前已经调用了Writeln，以便在控制台上输出提示信息。
编译器问题：某些免费的Pascal IDE可能使用不同的编译器。如果Writeln和Readln在一个特定的IDE中无法正常工作，尝试使用不同的IDE或编译器来编译和运行代码。

对于Pascal开发者，以下是一些推荐的腾讯云相关产品和产品介绍链接地址，可以帮助他们进行云计算和开发工作：

云服务器（CVM）：腾讯云提供的弹性计算服务，可用于部署和运行Pascal应用程序。了解更多信息：https://cloud.tencent.com/product/cvm
云数据库MySQL版：腾讯云提供的托管式MySQL数据库服务，可用于存储和管理Pascal应用程序的数据。了解更多信息：https://cloud.tencent.com/product/cdb_mysql
云存储（COS）：腾讯云提供的对象存储服务，可用于存储和管理Pascal应用程序的静态文件和媒体资源。了解更多信息：https://cloud.tencent.com/product/cos

请注意，以上推荐的腾讯云产品仅供参考，具体选择应根据实际需求和项目要求进行评估和决策。

相关搜索:修复和免费送货无法正常工作magento 2 CheckBox中的setChecked和setSelected无法正常工作具有AFNetworking和离线模式的SDURLCache无法正常工作 IE11和Edge无法正常工作的谷歌登录桌面和移动设备中的快速分页无法正常工作 PartialView和不显眼的客户端验证无法正常工作带有自定义BottomNavBar和FAB的extendBody无法正常工作使用jQuery gt()和lt()访问无法正常工作的元素范围使用NTAllocateVirtualMemory和GetProcAddress无法正常工作时的内存分配问题 ngFor中的Angular ngModel，带有管道和地图，无法正常工作 HTML 5和CSS中的我的标题横幅无法正常工作覆盖hashCode()和equals()以存储hashMap中的对象无法正常工作 PDFTron中的CustomRelativeLayout Layout_with和layout_height无法正常工作从cpanel迁移到plesk，现在的php和curl无法正常工作混合了JavaScript和JQuery的Google API sessionParams无法正常工作的问题基于BaseHTTPServer的双HTTP和HTTPS Python服务器无法正常工作我的滑块在iPad和Kindle Fire Linux模式下无法正常工作在使用webpack和React CoreUI的生产环境中，代码拆分无法正常工作 jquery中的onblur和onfocus事件有时在IE浏览器上无法正常工作我的Google可视化饼图和表格溢出滚动条无法正常工作

相关搜索:

页面内容是否对你有帮助？

有帮助

没帮助

相关·内容

一个很逗的东西——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党再熟悉不过的语言了，所以可以这么说，在这个里面只要你想要的功能都可以有，只要你能编出来

67912 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.

66411 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.

71411 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.

5616 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个字符串。

7162 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

5948 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.

52011 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.

9715 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.

6897 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

58610 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.

3987 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.

5986 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.

3706 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语言了，实在是麻烦，而且累！我也不知道有些高中生是怎么过来的！ ? 附上一张超屌的图： ? 啦啦啦！...感谢大家一直以来对我文章的支持，大家在文章末尾评论留言，抛出一个话题：学生到底是应该早去接触学习编程还是等到大学再去呢,写写你们的看法！谢谢各位聚聚支持，我会做的更好！

6175 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.

4955 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.

5655 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.

6686 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.

7649 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.

5547 0

2045: 双亲数

我们以d = gcd(a, b)表示a、b的最大公约数，小D执著的认为，这样亲密的关系足可以用双亲来描述，此时，我们称有序数对(a, b)为d的双亲数。...与正常双亲不太相同的是，对于同一个d，他的双亲太多了 >_< 比如，(4, 6), (6, 4), (2, 100)都是2的双亲数。...**************************************** 2 Problem: 2045 3 User: HansBug 4 Language: Pascal...else 45 b[i]:=-b[i div a[i]]; 46 for i:=2 to maxn do b[i]:=b[i]+b[i-1]; 47 readln...(n,m,l); 48 writeln(doit(n div l,m div l)); 49 readln; 50 end.

4987 0

点击加载更多

扫码

添加站长进交流群

领取专属 10元无门槛券

手把手带您无忧上云

扫码加入开发者社群

相关资讯

热门标签

活动推荐

运营活动

活动名称

广告关闭