Вопросы от Ромарио! Опции

[Romario]

Начинаю серьёзно учить Паскаль и вот решил создать и пихать сюда все неясности, если вы конечно не против
Первые вопросы:

• Как в Паскале менять цвета?
  
• Как  --//-- создать таблицу и что-нить в ней написать.
  
• И может кто-нить меня раздуплит в массивах? ;D

[Romario]

Clane
Только об этом подумал =))

Задачи:
На тип Record

1. Сформировать файл, имеющий следующую структуру
type имя=(Аня,Валя,Женя,Петя,Саша,Таня,Шура,Юра);
данные=record пол:(м,ж);рост:140..200 end;
и определить:
o средний рост женщин;
o имя самого высокого мужчины;
o есть ли в группе хотя бы два человека одного роста.

2. Сформировать файл, имеющий следующую структуру
type дата=record число:1..31;
месяц:1..12;
год:1900..1996;
end;
анкета=record фамилия:string;
пол:(м,ж);
день рождения:дата;
end;
и определить:
o фамилию самого старшего мужчины;
o все фамилии, начинающиеся с заданной буквы;
o список людей, родившихся в заданном месяце.

3. Сформировать файл, имеющий следующую структуру
type знакомый=record фамилия:string;
номертел:10000..99999;
адрес:string;
end;
и определить:
o есть ли в книжке телефон данного человека;
o кому принадлежит данный телефон;
o список людей, живущих на данной улице.

4. Сформировать файл, имеющий следующую структуру
type студент= record фамилия: string;
номергр: string;
оценка1: integer;
оценка2: integer;
оценка3: integer;
end;
и определить:
o фамилию того, кто лучше всех сдал экзамены;
o средний балл по данному предмету;
o список задолжников.

5. Сформировать файл, имеющий следующую структуру
type студент= record фамилия:string;
имя:string;
пол:(м,ж);
возраст:16..35;
курс:1..5;
end;
и определить:
o курс, на котором наибольший процент мужчин;
o самые распространенные женские и мужские имена;
o список студентов данного пола, данного курса.

6. Сформировать файл, имеющий следующую структуру
type пассажир=record фамилия:string;
имя:string;
номер рейса:string;
количество вещей:integer;
общий вес:integer;
end;
и определить:
o рейс с максимальным весом багажа;
o пассажира с наибольшим количеством вещей;
o вывести список пассажиров и информацию об их багаже, улетающих данным рейсом.

7. Сформировать файл, имеющий следующую структуру
type владелец=record фамилия:string;
адрес:string;
марка автомобиля:string;
рег. номер:string;
год выпуска:1900..2000;
end;
и определить:
o количество автомобилей каждой марки;
o владельца самого старого автомобиля;
o фамилии владельцев и номера автомобилей данной марки.

8. Сформировать файл, имеющий следующую структуру
type ребенок=record фамилия:string;
адрес:string;
пол:(муж,жен);
количество дней посещения:integer;
end;
и определить:
o самого болеющего ребенка;
o кто больше болеет мальчики или девочки;
o список детей проживающих на данной улице.

9. Сформировать файл, имеющий следующую структуру
type книга=record автор:string;
название:string;
год издание:integer;
издательство:string;
количество страниц:integer;
end;
и определить:
o есть ли в библиотеке книги данного автора;
o найти книгу с наибольшим количеством страниц;
o найти названия книг данного автора, изданных с указанного года, в данном издательстве.

10. Сформировать файл, имеющий следующую структуру
type товар=record наименование:string;
страна:string;
объем партии:integer;
цена:integer;
end;
и определить:
o страну, в которую экспортируется товар на максимальную сумму;
o список стран, в которые экспортируется данный товар;
o найти товары, который имеет минимальный объем партии.

...