Перечислимый тип

1. Дано

type

имя = (Аня, Валя, Женя, Петя,

Саша, Таня, Шура, Юра);

данные = record

пол: (муж, жен);

рост: 140..200

end;

группа = array [имя] of данные;

Описать функцию СредРост (ГР), определяющую средний рост женщин из группы ГР.

2. Дано

type

рац = record

числ: integer;

знам: 1..maxint

end;

массив = array[1..20] of рац;

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

3. Даны комплексное число z (пара вещественных чисел) и вещественное число e > 0. Вычислить с точностью e значение следующей комплексной функции:

3.1 sh z = z + z ³ / 3! + z ⁵ / 5! + … + z ²ⁿ⁺¹ / (2 n + 1)! + …;

3.2 ch z = z + z ² / 2! + z ⁴ / 4! + … + z ²ⁿ / (2 n)! + …;

3.3 sin z = z – z ³ / 3! + z ⁵ / 5! – …+ (–1)ⁿ z ²ⁿ⁺¹ / (2 n + 1)! + …;

3.4 cos z = z – z ² / 2! + z ⁴ / 4! – … + (–1)ⁿz²ⁿ / (2 n)! + …;

3.5 ln (1 + z) = z – z ² / 2 + z ³ / 3 – … + (–1)^n-1zⁿ / n + … (| z | < 1);

3.6 arctg z = z – z ³ /3 + z ⁵ /5 –…+ (–1)ⁿ z ²ⁿ⁺¹ /(2 n + 1) +… (| z | < 1).

4. Дано

const

MaxN = 30;

type

ВещТип = record

знак: boolean;

мантисса, порядок: real;

end;

список = array[1..MaxN] of ВещТип;

Описать:

4.1 функцию MaxNeg(C) для нахождения минимального отрицательного числа из списка чисел С;

4.2 функцию MaxDi(C) для нахождения максимального порядка числа из списка вещественных чисел С;

5. Дано

type

декарт = record

x, y: real

end;

поляр = record

r, fi: real { r ³ 0, -p < fi £ p }

end;

Описать процедуру ДП(d, p), преобразующую координаты точки на плоскости из декартовых d в полярные p, и ПД(p,d), выполняющую обратное преобразование.

6. Дано

type

число = 1..31;

месяц = 1..12;

год = 1..2000;

дата = record

ч: число;

м: месяц;

г: год

end;

ДеньНедели = (пн, вт, ср, чт, пт, сб, вс);

Считая, что все даты даются по григорианскому календарю (по «новому стилю»), описать:

6.1 функцию ПослЧисло(d), вычисляющую количество дней в том месяце, которому принадлежит дата d;

6.2 логическую функцию ВернаяДата(d), проверяющую правильность даты d;

6.3 функцию ЧислоДней(d), подсчитывающую, сколько дней прошло от 1 января 1-го года нашей эры до даты d;

6.4 функцию ДН(d) для определения дня недели, на который приходится дата d (учесть, что 1 января 1‑го года нашей эры было понедельником);

6.5 функцию Пятница13(d), которая определяет количество дней до даты d, которые были пятницами 13-ого числа.

Файлы

Дата добавления: 2015-08-02