 |
|
Перечисляемые и ограниченные типы
6.1 type месяц=(янв,фев,мар,апр,май, июн,июл,авг,сен, окт,ноя,дек); день=1..31;
var dl,d2:день; ml, m2:месяц; t:boolean;
Переменой t присвоить значение true, если дата d1, m1 предшествует (в рамках года) дате d2, m2, и значение false – иначе.
6.2. type месяц=(янв,фэв,мар,апр,май,июн,июл,авг,сен, окт,ноя,дек);
var m, m1:месяц; k..maxint; n:1..12;
Присвоить переменной m1 название месяца, следующего за месяцем m.
6.3. type страна=(Австралия, Болгария, Греция, Италия, Норвегия, Франция, ФРГ);
столица=(Вена, София, Афины, Рим, Осло, Париж, Бонн);
var st:страна; cap:столица;
По значению переменной st (названию страны) присвоить переменной cap название столицы этой страны.
6.4. var Р:(ада, бейсик, модула2, лисп, паскаль, пл1, фортран);
A:(ada, basic, modula2, lisp,pascal, pl1, fortran);
По русскому названию языка программирования присвоить переменной А английское название этого языка.
6.5. type название=(ноль, один, два, три, четыре, пять);
var: d: '0'..'5'; n:название;
По литере – цифре d присвоить переменной n название этой цифры.
6.6. type сезон=(зима, весна, лето, осень);
месяц=(янв, фев, мар, апр, май, июн, июл, авг, сен, окт, ноя, дек);
var m:месяц; s:сезон;
Определить s - сезон, на который приходится месяц m.
6.7. type страна=(ФРГ, Куба, Лаос, Монако, Непал, Польша);
континент=(Азия,Америка,Европа);
var s:страна; с:континент;
По s - названию страны определить с - название континента.
6.8. type единица=(километр, метр, дециметр, миллиметр, сантиметр); длина=real; var x:длина; р:единица;
Значение переменой х, означающее некоторую длину в единицах р, заменить на величину этой же длины в метрах.
6.9. Для целого числа k от 1 до 99 напечатать фразу "мне k лет", учитывая при этом, что при некоторых значениях k слово "лет" надо заменить на слово "год" или "года".
6.10. type месяц=(янв, фев, мар, апр, май, июн, июл, авг, сен, окт, ноя, дек); var k:1..366; d:1..31; m:месяц;
Определить d, m – дату k-ro по счету дня високосного года.
6.11. type число=1..31; type месяц=(янв, фев, мар, апр, май, июн, июл, авг, сен, окт, ноя, дек);
день_недели=(вс, пн, вт, ср, чт, пт, сб);
var d:число; m:месяц; wd1, wd:день_недели; k:0..12;
Считая, что год не високосный, и его 1 января приходится на день недели wd1, определить wd – день недели, на который приходится день с датой d,m.
6.12. Для натурального числа k напечатать фразу "мы нашли k грибов в лесу", согласовав окончание слова "гриб" с числом k.
6.13. type падеж=(им, род, дат, вин, твор, предл);
слово=(степь,боль,тетрадь,дверь);
var w:слово; р:падеж;
Напечатать слово w в падеже р и единственном числе.
6.14. type имя=(Валя, Гена, Женя, Коля, Маша, Нина);
var Пол=array [имя] of (муж, жен);
Рост:array[имя] of 140..200
J:имя; Cp:real;
По массивам Пол и рост определить Ср – средний рост женщин.
6.15. type курс=(С,В,Ю,3);
приказ=(вперед, вправо, назад, влево);
var К1,К2:курс; Рr:приказ;
Корабль сначала шел по курсу К1, а затем его курс был изменен согласно приказу. Определить К2 – новый курс корабля.
6.16.type месяц=(янв, фев, мар, апр, май, июн, июл, авг, сен, окт, ноя, дек); var d:28..31; m:месяц;
Переменной d присвоить количество дней в месяце m (год считать невисокосным).
6.17. type государство=(Грузия, Россия, Украина);
город=(Киев, Москва, Одесса, Сочи, Тбилиси, Томск);
var х:array [1..20] of город;
Напечатать названия государства, города которого меньше всего встречаются в массиве х.
6.18. type месяц=(янв, фев, мар, апр, май, июн, июл, авг, сен, окт, ноя, дек); var у:1901..2000; m:месяц
Переменной t присвоить значение true, если тройка у, m, d образует правильную дату, и значение false иначе.
6.19. type месяц=(янв, фев, мар, апр, май, июн, июл, авг, сен, окт, ноя, дек); var d, d1:1..31; m, m1:месяц; у, yl:1901..2000;
По дате d, m, y определить d1, ml, yl – дату следующего дня.
6.20. type месяц=(янв, фев, мар, апр, май, июн, июл, авг, сен, окт, ноя, дек); var k:1..366; d:1..31; m: месяц;
Определить k – порядковый номер того дня високосного года, который имеет дату d, m.
6.21. type число=1..31; type месяц=(янв, фев, мар, апр, май, июн, июл, авг, сен, окт, ноя, дек);
деньнедели=(вс, пн, вт, ср, чт, пт, сб); var d:число; m:месяц;
wd1, wd:деньнедели; k:0..12;
Считая, что год не високосный, и его 1 января приходится на день недели wd1, определить k – количество понедельников в году, приходящихся на 13-е число.
6.22. type имя=(Валя, Гена, Женя, Коля, Маша, Нина);
var Пол: array [имя] of (муж, жен);
Рост: array [имя] of 140..200;
J:имя; Cp:real;
По массивам Пол и рост определить J - имя самого рослого мужчины.
6.23. type государство=(Грузия,Россия,Украина);
город=(Киев, Москва, Одесса, Сочи, Тбилиси, Томск);
var x: array [1..20] of город;
Напечатать название государства, города которого наиболее часто встречаются в массиве х (считать, что такая страна одна).
6.24. type остров=(Барбадос, Гаити, Гренада, Куба, Мартиника, Ямайка);
месяц=(янв, фев, март, апр, май, июн, июл, авг, сен, окт, ноя, дек);
var t:array [остров, месяц] of real; i;остров; m:месяц;
Элемент t[x,y] означает среднемесячную температуру на острове х в месяце у. Определить, какой месяц (m) и на каком острове (i) самый жаркий.
6.25. type нота=(до, ре, ми, фа, соль, ля, си);
интервал=(секунда, терция, кварта, квинта, секста, септима);
var nl,n2: нота; i:интервал;
Определить i – интервал, образованный нотами nl и n2: секунда - это интервал из двух соседних (по кругу) нот (например ре и ми, си и до), терция – интервал через ноту (например фа и ля, си и ре) и т.д.
6.26. Имеются описания
type сезон=(зима, весна, лето, осень);
var x, y: сезон;
t:(тепло, холодно);
Вычислить значения выражений: весна<лето; зима<= лето; осень< зима; весна <> тепло; succ(весна); pred(весна).
6.27. Имеются описания
type сезон=(зима, весна, лето, осень);
var x, y: сезон;
t:(тепло, холодно);
Вычислить значения выражений: ord(весна); ord(осень) +ord(холодно).
6.28. В старояпонском календаре был принят 60-летний цикл, состоящий из пяти 12-летних подциклов. Подциклы обозначались названиями цвета: зелёный, красный, желтый, белый и черный. Внутри каждого подцикла года носили названия животных: крысы, коровы, тигра, зайца, дракона, змеи, лошади, овцы, обезьяны, курицы, собаки и свиньи. (1984 год – год зелёной крысы – был началом очередного цикла). Написать программу, которая вводит номер некоторого года нашей эры и печатает его название по старояпонскому калкндарю.
6.29. Программа. Пусть значения некоторой функции равно количеству букв в записи числа n русскими словами: f(1)=4 (один), f(3)=3 (три), f(42)=8 (сорок два) и т. д. Напечатать все натуральные числа n, меньше 100, для которых f(n)=n.
6.30. type цвет=(черный, серый, белый);
var с: цвет;
Напечатать значение переменной с.
6.31. var k: 1..9;
Напечатать значения переменной k римскими цифрами.
6.32. type letter=(a, b, c, d);
var x: letter;
Ввести заданное во входном файле значение типа letter (т. е. a, b. c, или d) и присвоить его переменной x.
6.33. type падеж=(им, род, дат, вин, твор, предл);
слово=(пламя, знамя, темя, семя, время);
var w:слово; р:падеж;
Напечатать слово w в падеже р и единственном числе.
6.34. type падеж=(им, род, дат, вин, твор, предл);
слово=(кот, рот, пот, мот, оборот);
var w:слово; р:падеж;
Напечатать слово w в падеже р и единственном числе.
6.35. type падеж=(им, род, дат, вин, твор, предл);
слово=(зверь, сирень, время);
var w:слово; р:падеж;
Напечатать слово w в падеже р и единственном числе.
Записи
7.1. Дан файл f, содержащий сведения о сотрудниках учреждения, записанные по следующему образцу: фамилия, имя, отчество, год рождения. Найти сотрудников старше 55 лет.
7.2. Дан файл f, содержащий сведения о книгах. Сведения окаждой из книг – это фамилия автора, название и год издания. Найти названия книг данного автора, изданных с 1980 года.
7.3. Дан файл f, содержащий различные даты. Каждая из дат – это число, месяц и год. Найти год с наименьшим номером и самую позднюю дату.
7.4. Дан файл f, содержащий сведения об автомобилях. Сведения – это марка автомобиля, номер и фамилия владельца. Найти фамилии владельцев и номера автомобилей данной марки.
7.5. Багаж пассажира характеризуется количеством вещей и общим весом вещей. Дан файл f, содержащий информацию о багаже нескольких пассажиров, информация о багаже каждого отдельного пассажира представляет собой соответствующую пару чисел. Найти багаж, средний вес одной вещи в котором отличается не более чем на 0,5 кг от общего среднего веса всего багажа пассажиров.
7.6. Сведения об ученике состоят из его имени, фамилии и названия класса (год обучения и буква), в котором он учится. Дан файл f,содержащий сведения об учениках школы. Выяснить, имеются ли в школе однофамильцы.
7.7. Дан файл g, который содержит номера телефонов сотрудников учреждения: указывается фамилия сотрудника, его инициалы, номер телефона. Найти телефон сотрудника по его фамилии и инициалам.
7.8. Дан файл h, содержащий сведения о кубиках: размер каждого кубика (длина ребра в сантиметрах), его цвет (красный, желтый, синий) и материал (деревянный, стеклянный, медный). Найти количество кубиков каждого из перечисленный цветов и их объем.
7.9. Дан файл g, содержащий сведения о веществах: название вещества, его удельный вес и проводимость (проводник, полупроводник, изолятор). Найти удельные веса и название всех полупроводников.
7.10. Дан файл f, содержащий сведения об экспортируемых товарах: указывается наименование товара, страна, импортирующая товар, и объем поставляемой партии в штуках. Найти страны, в которые экспортируется данный товар, и общий объем его экспорта.
7.11. Дан файл f, содержащий сведения об игрушках: наименование игрушки (мяч, кукла, кубики, конструктор и т.д.), ее стоимость и возрастные границы детей, для которых эта игрушка предназначалась. Найти названия трех наиболее дорогих игрушек для детей младше 5 лет.
7.12. Дан файл f, содержащий сведения о книгах. Сведения о каждой из книг – это фамилия автора, название и год издания. Найти автора и год издания по названию книги.
7.13. Дан файл f, содержащий сведения об автомобилях. Сведения – это марка автомобиля, номер и фамилия владельца. Найти количество автомобилей каждой марки.
7.14. Дан файл f, содержащий сведения о складе электрических машин. Сведения включают тип машины (синхронная, асинхронная, постоянного тока), мощность, скорость вращения. Найти, сколько синхронных машин мощностью ниже 15 кВт хранится на складе.
7.15. Дан файл f, содержащий различные даты. Каждая из дат – это число, месяц и год. Найти все зимние даты.
7.16. Багаж пассажира характеризуется количеством вещей и общим весом вещей. Дай файл f, содержащий информацию о багаже нескольких пассажиров, информация о багаже каждого отдельного пассажира представляет собой соответствующую пару чисел. Выяснить, имеется ли пассажир, багаж которого состоит из одной веши весом не менее 20кг.
7.17. Сведения об ученике состоят из его имени, фамилии и названия класса (год обучения и буква), в котором он учится. Дан файл f, содержащий сведения об учениках школы. Выяснить, на сколько человек в восьмых классах больше, чем в десятых.
7.18. Дан файл f, содержащий сведения о книгах. Сведения о каждой из книг – это фамилия автора, название и год издания. Определить, имеется ли книга с названием "Программирование". Если да, то сообщить фамилию автора и год издания.
7.19. Дан файл h, содержащий сведения о кубиках: размер каждого кубика (длина ребра в сантиметрах), его цвет (красный, желтый, синий) и материал (деревянный, металлический, пластмассовый). Найти количество деревянных кубиков с ребром 3 см и количество пластмассовых с ребром, большим 5 см.
7.20. Сведения об ученике состоят из его имени, фамилии, названия класса (год обучения и буква), в котором он учится, и отметок, полученных учеником в последней четверти. Дан файл f, содержащий сведения об учениках школы. Выяснить, сколько учеников восьмых классов имеют оценки ниже четверки.
7.21. Дан файл g, содержащий, сведения о веществах: название вещества, его удельный вес и проводимость (проводник, полупроводник, изолятор). Выбрать данные о проводниках и упорядочить их по убывание удельных весов.
7.22. Дан файл f, содержащий сведения об игрушках: наименование игрушки (мяч, кукла, кубики, конструктор и т.д.), ее стоимость и возрастные границы детей, для которых эта игрушка предназначалась. Найти названия игрушек для детей старше 5 лет и младше 8 лет.
7.23. Багаж пассажира характеризуется количеством вещей и общим весом вещей. Дан файл f, содержащий информацию о багаже нескольких пассажиров. Информация о багаже каждого отдельного пассажира представляет собой соответствующую пару чисел. Выяснить, имеется ли два пассажира, багажи которых совпадают по числу вещей и различаются по весу не более чем на 0,5 кг.
7.24. Сведения об ученике состоят из его имени, фамилии, названия класса (год обучения и буква), в котором он учится, и отметок, полученных учеником в последней четверти. Дан файл f, содержащий сведения об учениках школы. Выяснить, сколько учеников школы не имеют отметок ниже четырех.
7.25. Дан файл f, содержащий сведения о складе электрических машин. Сведения включают тип машины (синхронная, асинхронная, постоянного тока), мощность, скорость вращения. Найти, сколько асинхронных двигателей со скоростью вращения 1500 об/мин хранится на складе.
7.26. Багаж пассажиров характеризуется количеством вещей и общим весом вещей. Дан файл багаж, содержащий сведения о багаже нескольких пассажиров. Сведения о багаже каждого пассажира представляют собой запись с двумя полями: одно поле целого типа (количество вещей) и одно – действительное (вес в килограммах). Найти багаж, средний вес одной вещи в котором отличается не более, чем на 0,3 кг от общего среднего веса одной вещи.
7.27. Багаж пассажиров характеризуется количеством вещей и общим весом вещей. Дан файл багаж, содержащий сведения о багаже нескольких пассажиров. Сведения о багаже каждого пассажира представляют собой запись с двумя полями: одно поле целого типа (количество вещей) и одно – действительное (вес в килограммах). Выяснить, имеется ли пассажир, багаж которого состоит из одной вещи весом менее 30 кг.
7.28. Багаж пассажиров характеризуется количеством вещей и общим весом вещей. Дан файл багаж, содержащий сведения о багаже нескольких пассажиров. Сведения о багаже каждого пассажира представляют собой запись с двумя полями: одно поле целого типа (количество вещей) и одно – действительное (вес в килограммах). Упорядочить сведения о багаже по убыванию веса багажа. Предполагается, что число пассажиров, зарегистрировавших багаж, известно заранее и равно n (некоторая константа), при этом n – не слишком велико.
7.29. Багаж пассажиров характеризуется количеством вещей и общим весом вещей. Дан файл багаж, содержащий сведения о багаже нескольких пассажиров. Сведения о багаже каждого пассажира представляют собой запись с двумя полями: одно поле целого типа (количество вещей) и одно – действительное (вес в килограммах). Требуется удалить из данного файла багаж сведения о багаже, общий вес вещей в котором меньше, чем 10 кг. Использовать вспомогательный файл.
7.30. Дан файл библ, содержащий сведения о каждой из книг – это фамилия автора, название и год издания. Найти названия книг данного автора, изданных с 1960 года.
7.31. Дан файл библ, содержащий сведения о каждой из книг – это фамилия автора, название и год издания. Определить, имеется ли книга с названием «Информатика». Если да, то сообщить фамилию автора и год издания. Если таких книг несколько, то сообщить имеющиеся сведения обо всех этих книгах.
7.32. Дан файл, который содержит номера телефонов сотрудников учреждения: указывается фамилия сотрудника, его инициалы и номер телефона. Найти номер телефона сотрудника по его фамилии и инициалам.
7.33. Дан файл, содержащий различные даты. Каждая дата – это число, месяц и год. Найти год с наименьшим номером.
7.34. Дан файл, содержащий различные даты. Каждая дата – это число, месяц и год. Найти все весенние даты.
7.35. Дан файл, содержащий различные даты. Каждая дата – это число, месяц и год. Найти самую позднюю дату.