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

endif

n:=strlen[str]

if n=0

result :=-1

return

endif

ch:=substr[str,0,1]

if (ch>="0")&(ch<="9")

result :=-1

return

endif

for i:=0:n-1

ch:=substr[str,i,1]

if ~(((ch>="0")&(ch<="9"))|((ch>="A")&(ch<="Z"))|((ch>="a")&(ch<="z"))|(ch="_"))

result :=-1

return

endif

next

result :=1

5. Вычисление угла треугольника по трем сторонам.

angle [ a , b , c ]

#вычисляет угол треугольника со сторонами

# a , b и c между сторонами a и b (в градусах)

if ~isnum[a]|~isnum[b]|~isnum[c]

println "Invalid arguments"

error

endif

if (a<=0)|(b<=0)|(c<=0)

println "Not a triangle"

error