Курсовая работа: Интерактивный интерпретатор

return

endif

while m>0

t:=n

n:=m

m:=imod[t,m]

loop

result :=n

3. Рекурсивное вычисление факториала.

factor [ n ]

#рекурсивное вычисление факториала числа n

if ~isint[n]

println "Invalid argument"

error

elseif n<0

println "Invalid argument"

error

elseif (n=0)|(n=1)

result :=1

else

result:=n*factor[n-1]

endif

4. Проверка, является ли строка корректным идентификатором.

test _ d [ str ]

#возвращает 1, если строка является корректным

#идентификатором, то есть состоит только из

#букв, цифр, знаков подчеркивания и начинается

# c цифры, при этом имеет ненулевую длину,

#и -1 в противном случае

if ~isstring[str]

println "Invalid argument"