курс 10 группа (ПИ). Прикладная информатика. Задания. Рекурсия стр.112-115. Тип string задачник стр. 118-120. Перечислимый тип см. ниже. Множества задачник стр.139-142. Тип запись задачник стр.127-134. Текстовые файлы задачник стр. 151-153. Типизированные

1 курс 10 группа (ПИ)

Прикладная информатика

Батурин Александр Александрович

25a+

19g

Бахтин Александр Юрьевич

25c+

19e

82+

16+

22+

Глотов Данил Витальевич

25d

19g

Денщиков Дмитрий Александрович

19a+

66+

27+

23а+

Зябухин Марк Александрович

Иванников Василий Андреевич

19b

72+

22+

21+

Ильин Михаил Александрович

26i+

19c

Кальниченко Дмитрий Митиславич

Капшуков Кирилл Юрьевич

Новичихин Андрей Евгеньевич

19d

Попов Константин Денисович

6о

Попов Николай Александрович

26e

Приходько Виктор Владимирович

10+

26f

Рязанов Андрей Дмитриевич

26g

Саенко Евгений Дмитриевич

Тишанинов Александр Александрович

26h+

19f

Задания

1 Рекурсия стр.112-115

2 Тип string задачник стр. 118-120

3 Перечислимый тип см. ниже

4 Множества задачник стр.139-142

5 Тип запись задачник стр.127-134

6 Текстовые файлы задачник стр. 151-153

7 Типизированные файлы задачник стр. 154-157

8 Списки задачник 160-163

Задание 3 2 семестр 1 курс. Перечислимый тип

Даны перечислимые типы:

type

// цвет

TColor=(white,black,red,blue,green, undefined);

// месяц

TMonths=(Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec);

//деньнедели

Tday_of_week=(Mon, Tue, Wed, Thu, Fri, Sat, Sun);

// временагода

Tseason=(winter, spring, summer, autumn);

// имя

TName=(Anya,Valya, Zhenya, Petya, Sasha, Tanya, Shura, Yura);

// фигура

TFigure=( circle, triangle, square, rhombus, hexagon);

// сторона света

Tside_of_world_8=(North, Northeast, East, Southeast, South, Southwest,West,Northwest);

Tside_of_world_4=(North, East, South,West);

// направление

TDirection=(left, right, forward, backward);

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

Ввод и вывод значений должны сопровождаться подсказками.

1. Данмассивточек

Points: array[1..n] of TColor.

Определить, два наиболее часто встречающихся цвета.

2. Данмассивфигур

figures: array[TFigure] of TColor.

Перечислить по одному разу встречающиеся цвета.

3. Информация о количестве осадков по месяцам содержится в массиве

condensation:array [2010..2015,TMonths] of real.

Заполнить массив, содержащий информацию об осадках по сезонам

condens_of_season: array[2010..2015,Tseason] of real инайтинаиболеезасушливыйгод

4. Информация о количестве осадков по месяцам содержится в массиве

condensation: array [2010..2015,TMonths] of real.

Найти средние значения по каждому месяцу average: array[TMonths]ofreal.

5. Данмассивфигур

figures: array[1..n] of TFigure.

Определить, две наиболее часто встречающиеся фигуры.

6. Заданы месяцы рождения группы Group:array[TName] ofTMonths.

Определить месяц, в котором больше всего дней рождения.

7. ЗаданагруппаGroup:array[1..n] of TName. Для каждого имени вывести количество повторений.

8. Задано расписание schedule:array[Tday_of_week] ofarray[1..n]ofstring. Найти дни недели, в которые есть заданный предмет.

9. Заданорасписаниеschedule:array[Tday_of_week] of array[1..n]of string. Найти предметы, которые стоят в расписании один раз в неделю.

10. Машина движется в сторону sw:Tside_of_world_8, найти новое направление движения после выполнения команды d: TDirection.

11. Маршрут задан массивом route: array[1..n] of array[Tside_of_world_4]of real. Найти расстояние от исходной точки.

12. Роза ветров за некоторый период времени задана массивом

wind_rose: array[1..n] of Tside_of_world_8. Найти частоту каждого направления periodicity:array[Tside_of_world_8] of integer.

13. Задано расписание schedule:array[Tday_of_week] of array[1..n]of string. Найти предметы, которые повторяются в течение одного дня.

14. Маршрутзаданмассивом route: array[1..n] of array[Tside_of_world_4]of real. Найтинаиболее удаленную точку в заданном направлении.

15. Задана информация об увлечениях Group:array[TName] ofstring. Для заданного имени найти в группе людей с таким же хобби.

16. Дана информация о солнечных днях за несколько лет

sunny_days: array [2010..2015,TMonths] ofinteger. Найтиколичествосолнечныхднейпосезонамsunny_days_season: array[2010..2015,Tseason] of integer.

17. Заданорасписаниекинотеатрананеделю

schedule:array[Tday_of_week] of array[1..n]of string.Найти фильм, который демонстрируется каждый день.

18. Дан массив, содержащий типы фигур figures: array[1..n] ofTFigure и массив, содержащий их площади sq: array[1..n] of real. Найти суммарные площади фигур каждого типа sq_f: array[TFigure] ofreal.

19. Маршрутзаданмассивом route: array[1..n] of array[Tside_of_world_4]of real. Найтирасстояние по каждому направлению array[Tside_of_world_4]ofreal.