Сложно.Трудно.Помогите., Множества и записи... Опции

[Archie]

13.22 type слово=packed array[1..9] of char;
номер телефона=100000...999999;
знакомый=record фамилия:слово;
номер:номертелефона;
end;
страница=array[1..20] of знакомый;
запясная книжка=array['A'..'Z'] of страница;
Считая, что на каждой странице записной книжки указаны фамилии, начинающиеся с одной и той же буквы - индекса этой страницы, описать логическую функцию:
а) номера (ЗК,НТ,Ф), определяющую, есть ли в записной книжке ЗК сведения о знакомом с фамилией Ф, и, если есть, присваивающую параметру Ф фамилию этого знакомого.
14.33 Описать логическю функцию Path (G,N,K,D), которая определяет, есть ли в ориентированном графе G путь из вершины N в вершину K, и, если есть, присваивает параметру D длину (число дуг) кратчайшего пути из N в K.
Использовать следующее представление графа:
type вершина = (b1,b2,b3,b4,b5,b6,b7,b8);
соседи = set of вершина;
граф = array[вершина] of соседи;
(G[x] - множество вершин, которые ведут дуги из вершины x)

Помогите пожалуйста...в субботу сдавать эту лабораторную, а сделать не получсется...жду ответов.

Сообщение отредактировано: Archie - 13.12.2007 23:24

[Lapp]

сделать не получсется...жду ответов.

Покажи, что сделал.

Желательно, по одной задаче на тему.