Лабораторные работы во вложении. Вот ссылка на справочные файлы по среде 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
}