您所在位置：主题：这个程序错哪了？帮忙看看，有加分（30）
HRQ
[专家分：60] 发布于 2005-07-31 09:11:00
unit time;
interface;
uses dos;
var a,b:array[1..4]of integer;i:integer;
procedure start;
procedure over;
implementation;
procedure start;
begin
gettime(a[1],a[2],a[3],a[4]);
end;
procedure over;
begin
gettime(b[1],b[2],b[3],b[4]);
for i:=4 downto 1 do
if b[i]-a[i]<0 then begin b[i]:=b[i]+60;b[i-1]:=b[i-1]-1; end;
for i:=1 to 4 do
begin write(b[i]-a[i]);if i<>4 then write(':'); end;
end;
end.
[em1][em2][em3][em4][em5][em6][em7][em8][em9][em10][em11][em12][em13][em14][em15][em16][em17][em18][em19][em20]
interface;
uses dos;
var a,b:array[1..4]of integer;i:integer;
procedure start;
procedure over;
implementation;
procedure start;
begin
gettime(a[1],a[2],a[3],a[4]);
end;
procedure over;
begin
gettime(b[1],b[2],b[3],b[4]);
for i:=4 downto 1 do
if b[i]-a[i]<0 then begin b[i]:=b[i]+60;b[i-1]:=b[i-1]-1; end;
for i:=1 to 4 do
begin write(b[i]-a[i]);if i<>4 then write(':'); end;
end;
end.
[em1][em2][em3][em4][em5][em6][em7][em8][em9][em10][em11][em12][em13][em14][em15][em16][em17][em18][em19][em20]
