var buff: array [1..512] of byte; procedure readdisk(drv,cy,head,sec:word;VAR result:boolean); begin reg.DX:=head*256+drv; { DX赋值 } reg.CX:=((cy div 256)*64+sec)+(cy mod 256)*256; { CX赋值 } reg.BX:=ofs(buff[1]); { BX赋值为buff的偏移地址 } reg.AX:=$0201; { AX赋值 } reg.es:=seg(buff[1]); { ES赋值为buff的段地址 } intr($13,reg); { 调用DOS中断13H } if reg.ah=0 {根本返回值判断AH} then result:=true else result:=false; end; 有人能看懂吗？

我系统是windows10，一开始用了2.0.4版本，发现安装后打开就是闪屏，就是闪一下然后就自动关闭了，然后便

首先是高中有接触过一点pascal，现在大一了想继续学编程。 软件的同学都劝我学c。 我明白这只是一个工具与思维的问题 所以还是决定先学pascal 那么，

需要学习lazarus这个软件，网上好难找资源。。。人麻了，伸手抱歉

聊啥都行，水贴也行，求你们多来几个人回复吧……

大佬们 小弟刚刚进研究室, 但是发现研究室的行程管理程序是一个远古神器, 作者只给了windows版本的. 但是程序本身开源: https://github.com/takashi-ishio/hyCalendar/tree/master 所以我就想在mac上自己打包一下, 但是不知道怎么办 刚刚brew装好了free pascal, hello world正常, 剩下的我就不会了 这玩意很多地方用的shift jis编码, 大手子能不能帮忙给改成utf8的

网上的还收费

作为Pascal语言家族的设计者，历经八十九载的风雨春秋，大师在他人生的end后留下了句点 消息来源：X

没啥，就是来水水（ 我大概是最后一批活跃过的P吧玩家力 当时我在P吧逛的时候还有很多人在发游戏

虽然是终端自身的特性……

当年这件事闹得沸沸扬扬。但在如今人均 C++ 的时代里，已经没什么人在乎这件事情了。

请问有没有大佬知道，这个else后边的语句在pascal中怎么实现呢。

win11系统，FreePascal3.2.2，官网下载，打开即闪退。兼容模式试过无用，问解决办法

看看本吧还有多少人……

求一个代码，实现8个字符前后调换顺序，例如12345678-abcdefg变成abcdefg-12345678

2288: 【基础】小X转进制时间限制 : 1 Sec内存限制 : 256 Mb 题目描述 小X喜欢研究进制转换。 在了解了进制转

一 pascal的乘法口诀程序： program Main; var i,j:integer; begin writeln; write('乘法口诀'); writeln; writeln; for i:=1 to 9 do begin for j:=1 to i do write(i,'x',j,'=',i*j:2,' '); writeln; end; end. 二 Basic乘法口诀程序 2 print 4 print "云码Basic乘法口诀" 10 FOR i = 1 TO 9 20 FOR j = i TO 9 22 p=i*j 30 PRINT i;" x "; j ;"=";p 40 NEXT j 60 NEXT i 怎么感觉Basic程序要简单、明了一些。 pascal反而复杂。

我应该用发行版提供的安装包，还是lazarus开发者社区提供的（sourceforge）的安装包？

内容： 把整数1到n2（n为奇数）排成一个n×n方阵，使方阵中的每一行、每一列以及对角线上的数之和都相

程序： var a:array[0..1023] of Byte; b:array[0..1023] of Char; c:array of Byte; d:array of Char; begin writeln(SizeOf(a)); writeln(SizeOf(b)); writeln(SizeOf(c)); setlength(c,1024); writeln(SizeOf(c)); writeln(SizeOf(d)); setlength(d,1024); writeln(SizeOf(d)); end. 输出： 1024 1024 4 4 4 4 编译器版本：Free Pascal Compiler version 3.2.2 [2021/05/15] for i386 虽然Wiki上有提及字符数组是旧时代的产物了，但好像没有提及长度固定这一点？

因为要使用inno setup，不得不使用这个语言，，， 这个语言的方法，是如何返回返回值的？Result还是就是方法名？ 这个语言是完全不区分大小写吗？ 字符串是如何操作的？str[0]这样能获得第一个字符吗 字符串是用“”还是’‘ 我就想检测一个字符串是否由“v4”开头，，，

2013年的都有人挖出来

今天在百度的首页看到pascal贴吧，才想起来曾经在2012年，当时我上高二，报名参加信息技术奥林匹克竞赛还是什么，初赛题目几乎都是蒙的，误打误撞进了复赛，当时我们小城市就两个同学，于是老师把我们组织起来，每天放学之后学pascal，学了一个多月，去省会参加复赛，一共两天，好像是六道题写出来四道，最后提交，选择了错误的文件，于是获得了一个鼓励奖还是什么的。回想起来也是一段很有意思的经历，后来高考，本想报物流错选成物联

定义：https://baike.baidu.com/item/汇编语言 必读：https://wenku.baidu.com/view/45bda35b804d2b160b4ec09c.html 提示：①调试时

1 - 往集合中新增一个元素； 2 - 从集合中删去一个元素； 3 - 打印整个集合； 基本上所有的入门编程书涉及菜单交互的时候，都会让你往控制台打印一个这样的菜单，然后让你输入一个数字来决定程序执行哪个模块。这种交互方式太为了教学便捷而忽视实用性了，现实中甚至连 BIOS 设置都不是这样交互的。就算是控制台也能做到用上下的方向键控制一个指示标记 ‘*’ 显示在菜单的左侧，然后用回车键决定选择执行哪个模块。 crt 单元，GotoXY, ReadKey 和

【试题描述】 某动物饲养中心用X元专款购买小狗(每只A元)和小猫(每只B元)两种小动物。 要求专款专用,(至少猫狗各一),正好用完?请求出方案的总数。如没

最近刚转去Lazarus，问的问题可能很小白，不好意思 有时候一行代码太长，查看时需要左右滚动水平滚动条，不太方便 所以是否能设置成分成两行显示？ 已经以“Lazarus”“自动换行”“soft warp”“word warp”关键字搜索 也稍微翻了下新手教程，但没能找到相关信息

总算是干了点正事……之后的竞赛也会在上面进行，虽然现在竞赛系统还没做好。 虽然已经对手机端的排版做了优化，但是似乎还是有点问题，bug修不了（毕竟js也不是我的专长）。各位尽量用电脑访问吧。 地址看图。

年初当上吧主到现在，p吧终于有1w4关注了 泪目

有点在意，百度了也没查到 因为不怎么用FP的IDE，也懒得切换旧版控制台来截图，所以图是借别人的

可是这吧都没几个人活跃，搞不了啊。。 如果还有人在的话回一下这贴子吧……

怎么打不开啊

1.流量党慎入 2.这只是新手的经验交流，不是教程，随时欢迎神犇前来指导 3.本帖不讨论与OI有关的算法等 4.由于本人才(bo)疏(xue)学(duo)浅(shi)，难免会有许多错误，请不要太相信我说的话~ 5.这是之前的投票结果http://tieba.baidu.com/p/3157171295

Pascal是我在小学第一次接触，学过两年参加过比赛，可惜因为一些原因放弃了后面的学习。正是因为在那种每天只能学语数英的情况下，编程语言对我来说是特别新鲜有趣的。转眼快十年过去，编程的兴趣依然在我潜意识里活跃。我也了解过部分编程方面行业就业，可是一样很迷茫，在有对编程有强烈兴趣的情况下，我应该重新学习哪种语言，以及通过什么方式确定自己以后就业路线啊(抹泪

这群还有活着的人吗

楼下细说😢

999999999888888887777777666666555554444333221+99999999999999999999=？

看知乎了解到了lazarus，然后才想对pascal有进一步了解。不搞竞赛，纯粹出于对编程语言的爱好，谢谢吧主的辛勤付出，支持你！

如题。 如果想申请的话只要回帖写上申请职位和理由就行了。 周末会统一审核并上任。 就这么多，有人愿意申请的吗，先到先得【】

首先，我想向全体同学们表示我最深的歉意，由于高考的压力，高三的我没有能给留出充分的时间管理贴

我是一名江苏省初二的学生，今年第一次参加NOIP，是省二等奖。但是我觉得越往后学的东西都是算法，像啥二叉树、快速排序法、N皇后问题、01背包问题、

除了fp自带的rtl（英文看不下去）我还没找到过好的深入的教程呢 不会失传吧