Предприятие имеет местную телефонную станцию на 20 номеров

  • ID: 51441 
  • 9 страниц
200 рубСкачать

гарантия низкой цены

1.PAS

2.PAS

3.PAS

44479.docx

4.PAS

4.txt

5.PAS

CATALOG.DAT

Фрагмент работы:

Записи

Предприятие имеет местную телефонную станцию на 20 номеров. Телефонный справочник данного предприятия для каждого номера телефона содержит номер помещения и список служащих, сидящих в данном помещении.

Составить программу, которая:

• По номеру телефона выдает номер помещения и список сидящих в нем людей;

• По номеру помещения выдает номер телефона;

• По фамилии выдает номер телефона и номер помещения.

Номер телефона – двузначный. В одном помещении может находиться от одного до четырех служащих.

Листинг программы в TPascal

Результат выполнения

Одномерные массивы

В одномерном массиве, состоящем из n вещественных элементов, вычислить:

1.Минимальный элемент массива.

2. Сумму элементов массива, расположенных между первым и последним положительными элементами.

3. Преобразовать массив таким образом, чтобы сначала располагались все элементы, равные нулю, а потом - все остальные.

формула: Ak=cos(2k/) kО[1,50]

Листинг программы в TPascal

Результат выполнения

Подпрограммы

1. Вычисление суммы элементов, расположенных ниже побочной диагонали матрицы.

2. Вычитание из элементов матрицы скаляра, равного числу нулевых элементов этой матрицы.

Листинг программы в TPascal

Результат выполнения

Строки

Дана последовательность, содержащая от 2 до 30 слов, в каждом из которых от 2 до 10 строчных латинских букв; между соседними словами – пробел, за последним словом – точка. Вывести все слова последовательности, отличные от последнего слова, предварительно преобразовав каждое из них по следующему правилу: удалить из слова все предыдущие вхождения последней буквы.

Листинг программы в TPascal

Результат выполнения

Файлы

1. Файл содержит систематический каталог, каждая запись которого содержит поля: раздел и шифр.

2. Выдать информацию о всех разделах систематического каталога.

Листинг программы в TPascal

Результат выполнения