写出pascal语言中if语句的上下文无关文法的完整定义

如何定义上下文无关文法？~

　　程序设计语言的语法基本上都是上下文无关文法，应用十分广泛。
　　在计算机科学中，若一个形式文法G = (N, Σ, P, S) 的产生式规则都取如下的形式：V -> w，则称之为上下文无关的，其中 V∈N ，w∈(N∪Σ)* 。
　　上下文无关文法取名为“上下文无关”的原因就是因为字符 V 总可以被字串 w 自由替换，而无需考虑字符 V 出现的上下文。一个形式语言是上下文无关的，如果它是由上下文无关文法生成的﹙条目上下文无关语言﹚。
　
例子 1
　　一个简单的上下文无关文法的例子是：S -> aSb | ε上下文无关文法。这个文法产生了语言 {anbn : n ≥ 0} 。不难证明这个语言不是正规的。
例子 2
　　这个例子可以产生变量 x,y,z 的算术表达式：
　　　S -> T + S | T - S | T
　　　T -> T * T | T / T | ( S ) | x | y | z
　　例如字串 "( x + y ) * x - z * y / ( x + x )" 就可以用这个文法来产生。
例子 3
　　字母表 {a,b} 上 a 和 b 数目不相等的所有字串可以由下上下文无关文法述文法产生：
　　S -> U | V
　　U -> TaU | TaT
　　V -> TbV | TbT
　　T -> aTbT | bTaT | ε
　　这里 T 可以产生 a 和 b 数目相等的所有字串，U 可以产生 a 的数目多于 b 的数目的所有字串， V 可以产生 a 的数目少于 b 的数目的所有字串。

不严格地说：文法就是语法啦，用来说明语言的。上下文无关文法是文法规则的左部只能是一个文法符号的文法。

if (条件) then (语句1) [else (语句2)];
就是计算条件表达式,如果为真(True),那么执行语句1,方括号[]内的语句可以不要,如果存在else语句,那么执行语句2
举个例子:

var
a:longint;
begin
read(a);//读入一个数
if (a=1) then writeln('a=1')//如果输入的数是1,那么输出a=1
else writeln('a<>1');//否则输出a<>1
end.

未高精：
program gamesc;
var
f:array[0..100,0..100] of longint;
a,c:array[0..100] of longint;
m,n,i,j,k,total:longint;

function max(a,b:longint):longint;
begin
if a>b then max:=a else max:=b;
end;

begin
readln(n,m);
fillchar(c,sizeof(c),0);
c[0]:=1;
for i:=1 to m do c[i]:=c[i-1]*2;
total:=0;
for i:=1 to n do
begin
for j:=1 to m do read(a[j]);
readln;
fillchar(f,sizeof(f),0);
for j:=1 to m do f[j,j]:=a[j]*c[m];
for j:=1 to m-1 do
for k:=1 to m-j do
f[k,k+j]:=max(f[k+1,k+j]+a[k]*c[m-j],f[k,k+j-1]+a[k+j]*c[m-j]);
total:=total+f[1,m];
end;
writeln(total);
end.

高精（在未高精的基础上修改的）：
program gamesc;
type
asd=array[0..100] of longint;

var
f:array[0..100,0..100] of asd;
c:array[0..100] of asd;
a:array[0..100] of longint;
m,n,i,j,k:longint;
total:asd;

function max(a,b:asd):asd;
var
q1,q2,i:longint;
begin
q1:=a[0];q2:=b[0];
if q1>q2 then exit(a)
else if q2>q1 then exit(b)
else
for i:=q1 downto 1 do
begin
if a[i]>b[i] then exit(a)
else if a[i]<b[i] then exit(b);
end;
exit(a);
end;

function cheng(s1:longint;s2:asd):asd;
var
i,j:longint;
begin
for i:=1 to s2[0] do
s2[i]:=s2[i]*s1;
for i:=1 to s2[0]+3 do
begin
s2[i+3]:=s2[i+3]+s2[i] div 1000;
s2[i+2]:=s2[i+2]+(s2[i] mod 1000) div 100;
s2[i+1]:=s2[i+1]+(s2[i] mod 100) div 10;
s2[i]:=s2[i] mod 10;
end;
j:=i+6;
while s2[j]=0 do j:=j-1;
s2[0]:=j;
cheng:=s2;
end;

function jia(s1,s2:asd):asd;
var
q1,q2,q,i:longint;
begin
q1:=s1[0];q2:=s2[0];
if q1>q2 then q:=q1 else q:=q2;
for i:=1 to q do
begin
s1[i]:=s1[i]+s2[i];
if s1[i]>9 then
begin
s1[i]:=s1[i]-10;
s1[i+1]:=s1[i+1]+1;
end;
end;
s1[0]:=q;
if s1[q+1]<>0 then s1[0]:=q+1;
jia:=s1;
end;

begin
assign(input,'game.in');
reset(input);
readln(n,m);
fillchar(c,sizeof(c),0);
c[0,0]:=1;c[0,1]:=1;
for i:=1 to m do
begin
for j:=1 to c[i-1,0] do
c[i,j]:=c[i-1,j]*2;
for j:=1 to c[i-1,0] do
if c[i,j]>9 then begin
c[i,j]:=c[i,j]-10;
c[i,j+1]:=c[i,j+1]+1;
end;
c[i,0]:=c[i-1,0];
if c[i,c[i-1,0]+1]<>0 then c[i,0]:=c[i,0]+1;
end;
fillchar(total,sizeof(total),0);
total[0]:=1;
for i:=1 to n do
begin
for j:=1 to m do read(a[j]);
readln;
fillchar(f,sizeof(f),0);
for j:=1 to m do f[j,j]:=cheng(a[j],c[m]);
for j:=1 to m-1 do
for k:=1 to m-j do
f[k,k+j]:=max(jia(f[k+1,k+j],cheng(a[k],c[m-j])),jia(f[k,k+j-1],cheng(a[k+j],c[m-j])));
total:=jia(total,f[1,m]);
end;
close(input);
assign(output,'game.out');
rewrite(output);
for i:=total[0] downto 1 do
write(total[i]);
writeln;
close(output);
end.

---

桐梓县18525132756： 写出pascal语言中if语句的上下文无关文法的完整定义 - ？
旗欧马来： if (条件) then (语句1) [else (语句2)];就是计算条件表达式,如果为真(True),那么执行语句1,方括号[]内的语句可以不要,如果存在else语句,那么执行语句2举个例子:va...

桐梓县18525132756： 输入三个数,输出中间大小的一个数(Pascal语言 If语句) - ？
旗欧马来： var a,b,c,max:longint; begin readln(a,b,c); if a>max then max:=a; if b>max then max:=b; if c>max then max:=c; writeln(max); end.

桐梓县18525132756： Pascal if语句? - ？
旗欧马来： 你的语句:if(m>0) then w[i]:=b[m-1] else w[i]:=b[0];a[m-1] := a[m-1]-1;实际上是下面的两个语句:if(m>0) then w[i]:=b[m-1] else w[i]:=b[0];a[m-1] := a[m-1]-1;第一个语句是IF语句,根据m的值选择执行一个操作:给w[i]赋不同的值.第二个语句是赋值语句,无论第一个语句的条件和结果如果都要执行.如果需要在if语句的then或者else里面执行多条语句,应该使用begin ..... end这样的语法,否则then和else都只执行语句.此外,你的语句里面的分号、冒号好像是中文的,电脑只允许使用英文.

桐梓县18525132756： pascal 语言if语句 在线等 20 只要看看我哪里错了 输出不了 - ？
旗欧马来： 改成:var a,b,c:longint; begin read(a,b,c); if (a<b) then a:=b; if (a<c) then a:=c; if (b<c) then c:=b; writeln(a,' ',b,' ',c); end.

桐梓县18525132756： pascal三项IF语句如何用? - ？
旗欧马来： if (条件) then (语句1) [else (语句2)]; 就是计算条件表达式,如果为真(True),那么执行语句1,方括号[]内的语句可以不要,如果存在else语句,那么执行语句2 举个例子:var a:longint; begin read(a);//读入一个数 if (a=1) then writeln('a=1')//如果输入的数是1,那么输出a=1 else writeln('a1');//否则输出a1 end.

桐梓县18525132756： pascal语言中的if语句在then之后有多个变量要怎样写 - ？
旗欧马来： pascal的if有2种基本格式1、如果是单行的指令句:if 条件 then 一行语句;2、如果是多行的指令句 if 条件 then begin语句1; 语句2; ... 语句n; end;

桐梓县18525132756： pascal if 语句？
旗欧马来： var x,y:longint; beginreadln(x);if x>0 then y:=x*x-x+1else y:=x*x+1;writeln(y); end.

桐梓县18525132756： PascalScript中的if怎么用？
旗欧马来： if 条件 Then 代码(条件为真执行) Else 代码(条件为假执行)

桐梓县18525132756： 我要编写一个Pascal程序,if语句:和电脑猜拳.那位大侠帮我一下?跪求 - ----------- - ？
旗欧马来： 用随机吧 program ddd; var computer,player; begin randomize; repeat computer:=trunc(random(3)+0.5); read(player); until playercomputer; if (computer-player) mod 3=1 then writeln('Computer win') else writeln('Player win'); end.1->拳头,2->布,3->剪刀

桐梓县18525132756： Pascal谁能教一下if语句,谢谢. - ？
旗欧马来： if 条件 then 要做的事 望采纳