欸，时代的变迁

我只是吐槽一下，请勿回复

大家好，我翻译了一本书《开始编程使用Pascal与Lazarus》

有一头母牛，从出生第四年起每年生一头小母牛，按此规律，第N年时能有几头母牛？（生了的母牛四年后还会生）该怎么编？

新人求助!!!

同样的代码在其他电脑上可以用，但是我的电脑出现错误了。求各位大神指教一下这要怎么解决呢

rt

freepascal for android现在支持android8么？

问题是:输入一个年数和一个月数,然后判断那个月有几天 我编了这个,然后显示")"expected但是","found. 到底是哪里出错了?求大神帮忙!!! var year,month:integer; beginreadln(year,month);if (year mod 400=0) or (year mod 4=0 ) and (year mod 100<>0 ) then begin if month =(1,3,5,7,8,10,12) then write('31'); if month =(4,6,9,11) then write('30'); if month =(2) then write('29'); else end. end.

哪位大神能给我一个free Pascal下载包。万分感谢

如题。

请移步至laz4android吧 https://tieba.baidu.com/p/5275460108 Lazarus是由FreePascal完全开发的，laz4android基于Lazarus构建，完全开源。 所以FreePascal也是可以开发安卓（Android）应用程序的，欢迎围观！

植物大战僵尸这款游戏中，有一种植物武器叫辣椒炸弹，在草坪中的任意一格摆放它可以把草坪中该行上的所有僵尸瞬间消灭，也就是说，如果在第i行中任意位置摆放一个炸弹，第i行中的所有僵尸就瞬间都被杀死了。现在我们假定草坪有r行c列，草坪中有n只僵尸，僵尸不移动，现在给你k个樱桃炸弹，要求只能使用这K个炸弹来消灭这些僵尸，请问最多可以杀死多少只僵尸。（快速排序）

请高手指教，这个程序错在哪里？先谢谢哈 program tom-01; var i,j,x:integer; begin writeln('x=',x); readln(x); for i:=1 to 30 then begin if x mod 2=0 then x:=x/4 else x:=x+5 i:=i+1 end; j:=x; writeln('j=',x); readln; end. 自己感觉x:=x/2有问题，编译过程中也确实出现了错误提示，但不知道错在哪里。盼各位高手指正。

rt

rt 正在编一个扫雷，结果突然错掉了

背景 经过若干年的努力，Matrix67终于追到了自己喜爱的MM。他计划带她去一次环城旅行。 描述 Matrix67要带他的女友进行一次环城旅行。他选择了一条总长度为L的封闭路线。他所选择的路线上有n个景点。他将从某个景点出发，顺时针开车绕城市一周，再回到出发点。出发前，油箱为空。每个景点内都有一个加油站，第i个景点的加油站提供的油可供车行驶Si的路程。所有加油站可提供的油的总和恰好够汽车行驶一周（即S1+S2+…+Sn=L）。汽车的油箱总能够

稍后我将放出代码，欢迎下载。

一楼喂狗

202是什么鬼 用高精度方法，求s=1+2+3+4+......+n的精确值（n以一般整数输入）

var t,s,f,m:array[1..3]of integer; i:integer; begin writeln('使用方法：输入天数【空格】小时数【空格】分钟数【空格】秒数，换行，接下来与刚才输入的格式一样'); for i:=1 to 2 do read(t[i],s[i],f[i],m[i]); m[3]:=m[2]+m[1];if m[3]>59 then begin f[1]:=f[1]+m[3]div 60;m[3]:=m[3]mod 60;end; f[3]:=f[2]+f[1];if f[3]>59 then begin s[1]:=s[1]+f[3]div 60;f[3]:=f[3]mod 60;end; s[3]:=s[2]+s[1];if s[3]>23 then begin t[1]:=t[1]+s[3]div 24;s[3]:=s[3]mod 24;end; t[3]:=t[2]+t[1]; writeln('共',t[3],'天',s[3],'小时',f[3],'

求大神给个free pascal2.04的软件，本人学生，正在学

本金存入银行，年利率为百分之三，每过一年，将本金和利息相加作为新的本金，输入本金，输入存的年数，输出存到该年后获得的金额，保留小数点后两位。 样例输入：10000 5 样例输出：11592.74

哈哈

var x:integer; begin read(x); case x of (x<10):writeln('A'); (x>=10)and(x<40):writeln('B'); (x>=40)and(x<50):writeln('C'); else writeln('D') end end.

谁有一个free pascal的小游戏？谢

1、请问在freePascal中“int（-3.71）的返回值为-3.0 ”这个说法是对的吗？为什么？ 2 、var a,b:integer c,d:real x,y:char 以下语句正确的是： A:read（a,b,c,d,x,y）B:readln(a,b,c,d,x,y) C:read(a,b,c,d) D:read(a+b) 请问这个题的正确选项应该是哪个？答案是C，可是觉得A/B/C都是对的

rt

新人报道

如题

如题 直接上图了 就是安装到这里不会了

求助会用fp读取指令行的大神，要求从cmd中调动程序（调动方式如图），程序名后面接着的是程序的输入数据。这是我们程序课的期末作业（就是期末考题），这周五就要验收了，目前就差这最后一步了，新人求救，能不能及格就看各路大神了TAT。

RT - - 为什么会是这个样子 小白求解 另外寻个师傅~~

地图填色Colour 有一张包含N（N≤10）块区域的地图，给出M（M≤50）个描述，每组描述A，B表示A，B相邻，相邻的区域不能染同一种颜色，一种有四种颜色

就是不用编译的自带快排函数

Label 1,8,9,10,11,12,13,14;            var a,b,c,d,e,f,score1,score2,g:integer; begin 9: w

rt，谢谢

我编译好以后 运行程序 但是运行界面总是闪退 怎么办 我按debug screen user 也是一样 总是闪退 一按就返回

type u=record map:array[1..3,1..3] of integer; step,hash,x,y:longint; end; var q,i,j,k,x,i1,j1:longint; tpk:string; fr:u; zhishu:array[1..3,

要求编写一个程序，可以求出1+2+3+……+100，用到if循环，然后还有一个程序是1到100中所有的偶数和，也是用循环（循环类型不限），求牛人来啊~~