С целью
прерывания процедуры и вывода соответствующей
ошибки, например, при неправильном вводе типа
параметра, в процедуре используется команда
ERROR(`строка сообщения`).
> SUM:=proc(n)
local i,total;
if not type(n,integer) then
ERROR(`Вводить можно только целое число`);
fi;
total:=0;
for i from 1 to n do
total:=total+i;
od;
total;
end;
> SUM(a);
Error, (in SUM) Вводить можно
только целое число
|