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

for i:=0:n-2

k:=i

for j:=i+1:n-1

k:=iff[a{j}<a{k}, j, k]

next

if i<>k

t:=a{i}

a{i}:=a{k}

a{k}:=t

endif

next

result :=a

2. Вычисление НОД по алгоритму Евклида

nod [ n , m ]

#вычисляет наименьший общий делитель

#натуральных чисел n и m

#по алгоритму Евклида

if ~isint[n]|~isint[m]

println "Invalid arguments"

error

endif

if (n<0)|(m<0)

println "Invalid arguments"

error

endif

if n=0

result :=m

return

endif

if m=0