Question

pascal为什么会告诉我会编译报错

const
d:array[1..13]of integer=(-50,-2,-3,-4,-5,-6,-7,-8,-9,-10,-20,-30,-40);
type
ETYPE=ARRAY[1..15]OF BOOLEAN;
btypE=array[1..4,1..16]of string[4];
atype=array[1..4]of integer;
var
E:ETYPE;
b:btype;
a,c:atype;
ch:char;
q,P:boolean;
i,j,k,l,m,n:integer;
begin
assign(input,'heart.in');
assign(output,'heart.out');
reset(input);
rewrite(output);
while eof do
begin
fillchar(a,sizeof(a),0);
c:=a;
fiLlchar(b,sizeof(b),' ');
for i:=1 to 4 do
begin
k:=0;
read(a[i]);
while eoln do
if ch=' ' then k:=k+1
else
begin
if ch>='A'then b[i,k]:=ch else b[i,k]:=b[i,k]+ch;end;
end;
for i:=1 to 4 do
begin
if a[i]=0 then c[i]:=0;
if(a[i]=1)and(b[I,1]='C10')then c[i]:=50;
FILLCHAR(E,SIZEOF(E),FALSE);
for k:=1 to a[i] do
begin
Q:=TRUE;
case b[i,k]of
'H1':BEGIN E[1]:=TRUE;c[i]:=c[i]+d[1];END;
'H2':BEGIN E[2]:=TRUE;c[i]:=c[i]+d[2];END;
'H3':BEGIN E[3]:=TRUE;c[i]:=c[i]+d[3];END;
'H4':BEGIN E[4]:=TRUE;c[i]:=c[i]+d[4];END;
'H5':BEGIN E[5]:=TRUE;c[i]:=c[i]+d[5];END;
'H6':BEGIN E[6]:=TRUE;c[i]:=c[i]+d[6];END;
'H7':BEGIN E[7]:=TRUE;c[i]:=c[i]+d[7];END;
'H8':BEGIN E[8]:=TRUE;c[i]:=c[i]+d[8];END;
'H9':BEGIN E[9]:=TRUE;c[i]:=c[i]+d[9];END;
'H10':BEGIN E[10]:=TRUE;c[i]:=c[i]+d[10];END;
'H11':BEGIN E[11]:=TRUE;c[i]:=c[i]+d[11];END;
'H12':BEGIN E[12]:=TRUE;c[i]:=c[i]+d[12];END;
'H13':BEGIN E[13]:=TRUE;c[i]:=c[i]+d[13];END;
'C10':Q:=FALSE;
'S12':BEGIN E[14]:=TRUE;C[I]:=C[I]-100;END;
'D11':BEGIN E[15]:=TRUE;C[I]:=C[I]+100;END;
END;
END;
P:=TRUE;
FOR J:=1 TO 13 DO
IF E[J]<>TRUE THEN BEGIN P:=FALSE;HALT;END;
IF P=TRUE THEN BEGIN
C[I]:=200;
IF (E[14])AND(E[15])THEN C[I]:=500;
END;
IF (Q=FALSE)AND(A[I]<>1)THEN C[I]:=c[i]*2;
END;
IF (C[1]<>0)OR(C[2]<>0)OR(C[3]<>0)OR(C[4]<>0) THEN BEGIN
FOR J:=1 TO 3 DO
BEGIN
IF C[I]>0 THEN WRITE('+',C[I],' ') ELSE WRITE(C[I],' ');
END;
IF C[4]>0 THEN WRITELN('+',C[I]) ELSE WRITELN(C[I]);
END;
END;
END;
全国青少年信息学奥林匹克联赛培训习题与解答（中学高级本）光盘，光盘模拟试题，普及组第二套拱猪计分

Answer 1

啊，不要听楼上人说的，他说的是错的，它少加了一个begin-end

小朋友，初学吧，给你慢慢讲吧
if a>b then b:=d; a:=c;
if a<=b then a:=d; b:=c;
首先，你似乎是想把这两个语句都写在if语句的后面是吧，if语句要执行多个语句应当用begin-end括起来，即
if a>b then begin b:=d; a:=c; end;
if a<=b then begin a:=d; b:=c; end;
其次，你这句话写的狗屁不通、不知所云、无所事事
原因在于，一开始d和c都没有值，把d,c赋给a,b是没有丝毫意义的。

给你讲讲为什么会exit code 200，
200号错误为divided by zero ，即被零除，这是怎么回事呢？
1\ e:=d;
2\ while (c mod e<>0)and(d mod e<>0) do
3\ e:=e-1;
先前d,e值均为0
在1\中，e被赋值为0,
在2\中，在判断c mod e<>0时 将要用c除以0，然而一个数除以0是没有意义的，所以会报错

给你写一个正确的，求最大公约数的非递归算法（我想你可能看不懂递归的程序）
var a,b,r:longint;
begin
readln(a,b);
while b<>0 do
begin
r:=a mod b;
a:=b;
b:=r;
end;
writeln(a);
end.