代码大全

Pascal
...
AllowableTemperature:=MaxAllowableTemperature(Environment);

/* get most recent temperature from top of stack */

Temperature := StackTemperature[Stack.Top]
StackTemperature[Stack.Top] := INITAL_TEMPERATURE;
if(Stack.Top>0) then
begin
Stack.Top := Stack.Top-1
end;

if(Temperature>AllowableTemperature) then
begin
ShutdownReactor(Enviromentm,Temperature)
end,
...