Pascal News

1122
1123
112~
1125
1126
1127
1128
1129
1130
1131
1132
1133
113~
1135
1136
1137
1139
11~0
11~1
11~2
1143
1144
1145
1146
11~7
1148
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163
1164
1165
1166
1167
1168
1169
1170
1171
1172
1173
1174
1175
1176
procedure inident~
label 1;
val' i,k :integer ;
beCill k:=O; id:=spaees;
repeat
if ehsy=upper thea ch: =eM (ord(ch)-ord ( 'A' )+ord( , a' » ;
if k(idmax then bes1n k:=k+l; id[k]:=ch end;
nextch
UJltil ehsy>dlgit;
{lower,,0,upper=1,dig1t=2. ugly but tast}
for i:·=1'rw[k-l J to frw[kJ - 1 do
if rw[1J=id then
begin sy:·=rsy[iJ; goto 1 end;
sy:=ident;
1 :
end;
procedure innllDber;
label 1;
const imax = 10:
vsr i : intell er :
is:packed srray[l .. imaxJ of char:
begin Ix: =0: sy: =lntcst: val: =0:
repeat putdig until chsydigit:
if (oh='.') or (ch=-'e') or (ch= 'E ') then
begill
if ch='.' then
begin putdig:
if "h"'.' then
begin seconddot:=true; ix:=ix-l: goto 1 end:
if chsydigit then error(+05) else
repeat putdig until chsy,jigit:
endiif
(ch"'e') or (ch='E') then
begin putd ig:
if (ch='+') or (ch='-') then putdig:
if ohsydigit then error(+06) else
repeat putdig until ohsydigit:
end.; _
if ix>rmax then hesin error(+07); ix:=rmax end:
sy:=realcst; fltused :=true; dlbn6:=dlbno+1; val :=dlbno;
gendlb(dlbno); genO(ps rom): write(eml.sp rcon,ix):
for i:=l to ix do wr1te(eml,ord(strbuf[il»: genend:
end;
1 :1f (chsy=lower) or (chsy=upper) then teststandard:
if sy=intcst then
if Ix> imax then error (+08) else
begIn is:='OOOOOOOOOO': i:=1max+1:
while 1x>0 do
begin i:=1-1: is[iJ:=strbuf[txJ: ix:=1x-l end:
if ls