Turbo Pascal

[Maliish]

Буду очень признательна если решите задачки!

17. Используя стек - представленный в виде линейного списка - решить
следующую задачу (решение описать в виде процедуры).
В текстовом файле записан текст, сбалансированный по круглым скобкам.
Требуется для каждой парв соответствующих открывающей и закрывающей
скобок напечатать номера их позиций в тексте, упорядочив пары номеров
в порядке возрастания номеров позиций закрывающих скобок.
Например, для текста a + (45 - f(x) * (b - c)) надо напечатать
8 10; 12 16; 3 17;

18. Используйте линейный двунаправленный список для представления
многочлена относительно переменной x. Многочлены Чебышева (относительно x)
n-го порядка определяются следующим образом:
T[0](x) = 1, T[1](x) = x
T[n](x) = 2*x*T[n-1](x) - T[n-2](x) (n=2,3,...)
Напишите программу для получения n-го многочлена Чебышева.

19.9. Составить программу для произвольного рисования на экране.
Рисунок - это след курсора, перемещаемого с помощью клавиш управления
курсором. Положение курсора должно изображаться на экране.
Необходимо обеспечить режим, в котором курсор не оставляет след.

20. type fr = file of real;
Описать логическую функцию mid(f,m), которая определяет, имеет ли файл f
типа fr нечетную длину, и, если имеет, присваивает переметру m средний элемент
этого файла.
Программа: введите файл f (последний элемент = 0). Если функция
mid(f,m) - истина, то напечатайте значение m.

21. type text = file of char;
Описать процедуру digits(s,t), которая записывает в текст t все цифры
из строки s.
Программа: введите строку s. Выполните процедуру digits(s,t) и распечатайте
элементы файла t.