Вот ссылка на справочные файлы по среде TCL (скоро добавлю и саму среду)

http://file.qip.ru/file/UiFsH6CM/TCLHelp.html

А вот и примеры решения первой лабы:

3. Написать программу, рассчитывающую периметр Р квадрата со сторонами а и b и вычисляющую экспоненту от полученного значения.

proc Fac {x y} {
set s [expr {exp(($a+$b)*2)}]
return $s
}

11. Написать программу, рассчитывающую экспоненту от заданного значения и усе-кающую полученное значение до целочисленного.

proc Fac {x} {
set pi [expr exp($x)]
set s [expr int($pi)]
return $s
}

12. Написать программу, рассчитывающую натуральный логарифм от заданного значе-ния и возводящую полученное значение в куб

proc Fac {x} {
set pi [expr log($x)]
set s [expr pow($pi,3)]
return $s
}