Хелпикс

Главная

Контакты

Случайная статья





курс 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  

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

       

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

  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.

 



  

© helpiks.su При использовании или копировании материалов прямая ссылка на сайт обязательна.