Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
метод_указ_программирование_вариант_2014.doc
Скачиваний:
26
Добавлен:
12.05.2015
Размер:
982.53 Кб
Скачать

7.7. Варианты заданий

Вариант № 1

const n=5;

type

rec=record

key: integer;

body: array [1..5] of 'a'..'z'

end;

table=array [1..n] of rec;

Считая, что в таблице записи имеют различные ключи, описать: процедуру sort(t), упорядочивающую записи таблицы T по возрастанию их ключей.

Вариант № 2

const n=5;

type

rec=record

key: integer;

body: array [1..5] of 'a'..'z'

end;

table=array [1..n] of rec;

Описать логическую функцию search(t, k, h), определяющую, есть ли в таблице T (все записи которой уже упорядочены по возрастанию их ключей) запись с ключом k, и, если есть, присваивающую ее номер параметру h.

Вариант № 3

type

field=record

vertical: (a, b, c, d, e, f, g, h);

horizontal: 1..8

end;

Описать логическую функцию ferz (n1, n2), проверяющую, может ли ферзь за один ход перейти с поля n1 шахматной доски на поле n2.

Вариант № 4

type

rational=record

chisl: integer;

znam: 1..maxint

end;

arr=аrrау [1..20] of rational;

Описать логическую функцию sravnenie (a, b), сравнивающую два рациональных числа a и b.

Вариант № 5

type

rational=record

chisl: integer;

znam: 1..maxint

end;

arr=аrrау [1..20] of rational;

Описать процедуру add(c, a, b), которая складывает рациональные числа a и b и присваивает их сумму рациональному параметру c.

Вариант № 6

type

rational=record

chisl: integer;

znam: 1..maxint

end;

arr=аrrау [1..20] of rational;

Описать процедуру sokr (r), приводящую рациональное число r к несократимому виду.

Вариант № 7

type

rational=record

chisl: integer;

znam: 1..maxint

end;

arr=аrrау [1..20] of rational;

Описать процедуру max (х, m), присваивающую параметру m наибольшее из рациональных чисел массива x.

Вариант № 8

type

domino=record

left, right: 0..6

end;

ryad=array [1..28] of domino;

Описать логическую функцию prav_ryad (r), которая проверяет, правильно ли выставлены кости домино в ряду r (равна ли правая цифра очередной кости левой цифре следующей кости).

Вариант № 9

Запись Сотрудники.Поля:

ФИО, должность, дата приема на работу, оклад

Описать процедуру, которая из списка сотрудников (список не меньше 10 элементов) выводит на монитор ФИО сотрудника с минимальным окладом

Вариант № 10

type

stroka=packed array [1..20] of char;

citizen=record

familia, gorod: stroka;

adres: record

street:stroka;

dom, kv: 1..100

end

end;

spisok=array [1..10] of citizen;

Описать процедуру ironia_sudby(S), которая печатает фамилии двух (любых) жителей из списка S, живущих в разных городах по одинаковому адресу.

Вариант № 11

Запись Владельцы сотовых телефонов. Поля:

ФИО владельца, модель телефона, идентификатор телефона (IMEI), дата приобретения.

Описать процедуру, которая из списка (список не меньше 10 элементов) выводит на монитор ФИО сотрудника с определенной моделью телефона

Вариант № 12

Запись Расписание назначенных встреч.Поля:

ФИО, место встречи, дата и время встречи

Описать процедуру, которая из списка (список не меньше 10 элементов) выводит на монитор по дате и места встречи ФИО.

Вариант № 13

Запись Участники интернет-форума. Поля:

ФИО участника, пол (True-мужской, False-женский), пароль, дата регистрации,

Описать процедуру, которая из списка (список не меньше 10 элементов) выводит на монитор ФИО участников по дате регистрации

Вариант № 14

Запись Улицы вашего города. Поля:

название улицы, количество домов, протяженность (км), год основания

Описать процедуру, которая из списка (список не меньше 5 элементов) выводит на монитор самую длинную улицу и количество домов на ней.

Вариант № 15

Запись Товарно-материальные ценности. Поля:

наименование ТМЦ, штрих-код, количество на складе, стоимость

Описать процедуру , которая из списка (список не меньше 10 элементов) выводит на монитор по штрих-коду количество товара на складе.

Вариант № 16

Запись Учебная нагрузка группы.Поля:

наименование предмета, количество часов, ФИО преподавателя, система оценки знаний (True-экзамен, False-зачет)

Описать процедуру, которая из списка (список не меньше 10 элементов) выводит на монитор ФИО преподавателя по наименованию предмета.

Вариант № 17

Запись Ассортимент конфет. Поля:

Наименование, стоимость, срок годности и номера магазинов

Описать процедуру, которая из списка (списокне меньше10 элементов) выбрать те конфеты, стоимость которых от 30 до 55 грн. за 1 кг. Указать срок их годности и номера магазинов, в которых они имеются в продаже.

Вариант № 18

Запись Библиотека.Поля:

Название, год выпуска (для книги), дату выпуска (для газет и журналов);

автора (для книги), редактора (для газеты), состав редколлегии (для журнала);

объем.

Описать процедуру, которая из списка (списокне меньше 10элементов)выводит информацию об изданиях, вышедших в заданном году.

Вариант № 19

Запись Аптека.Поля:

Наименование, количество, цена,срок хранения (в месяцах).

Описать процедуру, которая из списка (списокне меньше10 элементов) выяснит, сколько стоит самый дорогой и самый дешевый препарат

Вариант № 20

Запись Музыкальная школа.Поля:

Фамилия, инструмент, сколько лет занимается музыкой, конкурсы.

Описать процедуру, которая из списка (список не меньше 5 элементов) выводит на монитор фамилии учеников, которые играют на скрипке.