Тема 7. Записи Пример выполнения задания

Задание. Заполнить и вывести на экран массив из трех записей с полями: сотрудник, должность, стаж работы.

Решение.

program zapisi;

const n = 3;

type zapis = record sot : string[25]; dol : string[15]; stag : byte end;

var i : byte;

m : array [1..n] of zapis;

begin

for i := 1 to n do

with m[i] do begin

writeln(‘Введите Ф.И.О. ’, i, ‘-го сотрудника’); readln(sot);

writeln(‘Введите должность ’, i, ‘-го сотрудника’); readln(dol);

writeln(‘Введите стаж ’, i, ‘-го сотрудника’); readln(stag); end;

writeln(‘Список сотрудников отдела’);

for i :=1 to n do with m[i] do

writeln(sot, ‘ ’:25-length(sot), dol, ‘ ’:15-length(dol), stag) end.

Варианты задания

1. Вычислить z=z1+z2z3, если z1, z2, z3 - векторы из трех комплексных чисел.

2. Отсортировать по результатам список из 8 участников забега на 100 м.

3. Отсортировать по фамилиям список группы студентов с 4 оценками.

4. Вывести оглавление двух книг, содержащих по два раздела из 4 глав.

5. Вывести ассортименты двух овощных магазинов с указанием цены единицы продукта.

6. Заполнить таблицу анкетных данных на 2 человек с полями: Ф.И.О., пол, год рождения, место рождения, национальность.

7. Вывести состав аппаратных средств двух компьютеров: процессор: тип и тактовая частота; память: оперативная и внешняя, ее объем.

8. Представить фильмотеку из 10 кассет с полями: жанр, режиссер, год выпуска, продолжительность просмотра.

9. Составить и вывести на экран список сотрудников отдела с указанием Ф.И.О., должности, стажа работы, оклада.

10. Описать 5 студентов академии и вывести их список на экран по убыванию № группы.

11. Вывести в алфавитном порядке записи о предметах с указанием лектора, аудитории и количестве часов занятий в семестре.

12. Вывести список 5 абонентов в алфавитном порядке с полями: абонент - Ф.И.О. и № телефона.

13. Вывести информацию о 3 учебниках по информатике с указанием авторов, названия, издательства, года издания и количества страниц.

14. Вывести список 5 крупнейших озер планеты с их характеристиками.

15. Вывести список 4 стран мира с информацией о народонаселении, столице, государственном устройстве и денежной единице.

16. Вывести список всех групп факультета в порядке убывания среднего балла за текущую сессию. Группа описывается курсом, № и баллом.

17. Вывести ассортимент двух мебельных магазинов.

18. Вывести планы земель двух хозяйств.

19. Вывести данные о 3 адресатах с двумя записями КОМУ и КУДА.

20. Вывести содержимое двух складов стеклотары.

21. Подсчитать общее количество книг в 2 библиотеках.

22. Ввести количество студентов, преподавателей в 4 вузах и установить среднее число студентов, приходящихся на одного преподавателя в них.

23. Охарактеризовать климат в двух местностях. Найти разницу между температурой самого холодного и самого теплого месяца для них.

24. Создать массив записей о 3 членах спортивной секции с полями:

Ф.И.О., возраст, адрес, личный рекорд.

25. Вывести календарь декабря текущего года.