Как можно реализовать функцию trunc() в Турбо Паскале, написать её код вручную т. е. без применения других функций?

а в турбо есть приведение типов???

Команда, реализующая функцию trunc(), имеется в наборе команд процессора; для ее применения в программе на языке Паскаль можно использовать язык ассемблера. Функция, написанная "вручную", будет выполнять лишние операции (то есть будет менее эффективна).