新手入门free pascal 有些简单的问题。。。
第一问:不对的,记住,表达式在计算时是有优先级的,顺序是not,and,or(括号的优先级最高),not先算,这时编译器发现not后面是or,不是一个直接的值,因此编译错误!第二问:if a表示a是否为真(true),if not b表示b是否为假(false)因此d应当为20,x没有被赋值。
有关Free Pascal的、菜鸟级问题
会有compiler masseges,根据里面的所提供的错误位置,进行更改。像你这样的是编译错误
请用Free Pascal解答以下3道题。请答案简单一点,我是一个小菜鸟。
先打一下第二题:var a,b,c,m:longint;begin a:=36 div 3;b:=(48+a) div 3;c:=(64+a+b) div 3;writeln(a:4,48+a:4,64+a:4);writeln(a+b:4,b:4,64+a+b:4);writeln(a+b+c:4,b+c:4,c:4);end.
free pascal 顺序文本文件是咋整的,我是菜鸟,编程我会,但创建文本文件...
输入和程序放在一个文件夹啊少年。。。还有reset(input,'lfl.text');比较好 可以直接读不用加那个d 实在不行加qq我教你...
free pascal问题
在按Alt+F5之后?在程序结束前加入一行 readln;这样让程序等待一个任意的输入再结束,对程序运行没有实际影响,只是方便你编译。
一道很简单的free pascal问题,大师赶快过来看一下。。。
var a:array[1..100]of integer;n,i,t:integer;begin write('N='); readln(n);for i:=1 to n do read(a[i]);for i:=n div 2 do begin t:=a[i]; a[i]:=a[n+1-i]; a[n+1-i]:=t;end;writeln('After:');for i:=1 to n do write(a[i],' ');writeln;end.
关于pascal的极端菜鸟问题...
冒泡就是排序的一种方法。。。你的程序有错误的地方,改了:Var N,sum,s,I,J:integer;Begin Read(n);Sum:=0;For I:=0 to n do Begin S:=1;For J:=1 to I do s:=s*2;sum:=sum+s;end;Write(sum);End.要返回编辑界面是按: ALT + Enter 有问题的话加我Q:416179394 ...
free pascal问题求大师解答,thanks!
type realarray=array[1..1000] of real;procedure convert(var a:realarray; n:integer);var i,j:integer;t:real;begin j:=n div 2;for i:=1 to j do begin t:=a[i]; a[i]:=a[n-i+1]; a[n-1+1]:=t;end;end;
free Pascal
你的那个.txt(或者说应当被写作.pas )的是源代码 .bak是备份文件,一半来说和.pas一样;程序自动生成的,可以在设置中取消其生成,不过建议允许自动生成。.o是编译的中间代码,.exe是可执行程序,就是编译出的程序。.o文件在编译后就没什么用了。而且你是使用ide,不是命令行方式的手动编译,所以...
Free Pascal鸡兔同笼
integer是整型,而b:=jiao\/2-tou;则使b变成了实型,\/是实型运算符,就是说,jiao\/2 得到的是一个实数,而不是整数。要得到一个整数,可以是jiao div 2 ,意思是,取jiao除以2后的整数部分,或者用函数trunc(){只取整数部分}round(){四舍五入取整数部分} 修改如下 var a,b,jiao,tou:...