UC知道一些关于Free Pascal的问题！急！好的加分！越快越好。
来源：百度知道 编辑：UC知道 时间：2024/06/08 11:35:02
请帮忙解答下。麻烦说下WHY，好的肯定追加！越快越好。
1、设有B1=True，B2=True，B3=False，一下表达式值为False的是（ ）。
A、B1 OR B2 AND B3 B、（NOT B1 OR B2) AND (B2 OR B3)
C、False OR NOT B1 AND B2 OR NOT B3 D、NOT B1 AND NOT B2
2、Faibonacci数列前几项为：0，1，1，2，3，5，8，……，其规律是从第三项起，每项均等于前两项之和。求前30项，并以每行5个数的格式输出。（帮忙看下我这样对不对，不对的请给个正确的）
program ex1;
var n,p,l,t,f:integer;
begin
writeln('please input the 30')
read(30);
p:=0;l:=1;t:=3;
write(0,1);
while t<=n do
begin
f:=p+l;
write(f:6);
p:=l;
l:=f;
t:=t+l;
end;
end.
1、设有B1=True，B2=True，B3=False，一下表达式值为False的是（ ）。
A、B1 OR B2 AND B3 B、（NOT B1 OR B2) AND (B2 OR B3)
C、False OR NOT B1 AND B2 OR NOT B3 D、NOT B1 AND NOT B2
2、Faibonacci数列前几项为：0，1，1，2，3，5，8，……，其规律是从第三项起，每项均等于前两项之和。求前30项，并以每行5个数的格式输出。（帮忙看下我这样对不对，不对的请给个正确的）
program ex1;
var n,p,l,t,f:integer;
begin
writeln('please input the 30')
read(30);
p:=0;l:=1;t:=3;
write(0,1);
while t<=n do
begin
f:=p+l;
write(f:6);
p:=l;
l:=f;
t:=t+l;
end;
end.
1:A
2 read(30)是什么呀，把他改为n:=30;其他正确
1 a
布尔计算原则：
1 从左到右开始算
2 括号里面的先算，
3 and的时候相当于负负得正， or的时候 以右边的为准
2 read是等待用户输入，这里没必要 直接n:=30