Помощь нужна в решении задач! Срочно! По Пильщикову:
9.25. type имя = (Анна, ... ,Юрий);
Родство = (сын,дочь,отец,матъ,нет);
var TP: array [имя,имя] of родство;
И,ВД: имя; k: integer;
На основе (непротиворечивой) таблицы родства ТР (ТР[х,у]=нет, если у не является ни родителем, ни ребенком х'а, ТР[х,у]=сын, если у—сын х'а, и т. и.) присвоить переменной:
а)* В — имя одной (любой) из внучек человека с именем И, если такие есть; 10.16. Программа. Дана последовательность, содержащая от 1 до 30 слов, в каждом из. которых от 1 до 5 строчных латинских букв; между соседними словами — запятая, за последним словом — точка. Напечатать:в) эту же последовательность слов, но удалив из нее повторные вхождения слов;
11.27*. type неотриц = 0. .maxint;
Описать функцию F(m,n)=n!*m!/(n+m)! где п и т—неотрицательные целые числа. (Определить внутреннюю функцию, вычисляющую факториал.)
12.6. Решить предыдущую задачу в предположении, что имеются функция ЧислоДетей(х), указывающая число детей человека с именем х, и функция Pe6enoK(x,k) указывающая имя k-го ребенка человека с именем X; (k не должно превышать число детей человека х).
14.26. Программа. Дан текст, за которым следует точка. В алфавитном порядке напечатать (по разу) все строчные русские гласные буквы (а, е, и, о, у, ы, э, ю, я), входящие в этот текст.
15.26*. type FR=file of real;
Описать логическую функцию mid(f,m) которая определяет, имеет ли файл f типа FR нечетную длину, и, если имеет, присваивает параметру т средний элемент этого файла.
13.23. const n = 300;
type запись = rесоrd ключ:integer;
тело: аrrау [1..99] of 'a'.. 'z'
end;
таблица = array [l..n] оf запись;
Считая, что в таблице записи имеют различные ключи, описать:
а) процедуру упор(Т), упорядочивающую записи таблицы Т по возрастанию их ключей;
