Лабораторная работа №6 Решение задачи с применением оператора цикл с параметром и перечисляемый тип.

Цель работы: Ознакомление с перечисляемым и ограниченным типами

Теория:

Перечисляемый тип – это тип, составленный из множества упорядоченных элементов. При определении перечисляемого типа перечисляются все значении, которые может принимать переменная этого типа.

Создаваемый перечисляемый тип определяется в разделе типов TYPE:

< имя типа> =(значение1, значение2, значениеn);

< имя типа> -имя типа, определяемого программистом;

(значение1, значение2, ... значениеn) являются константами определенного.

Ограниченные типы данных могут принимать значения в заданном диапазоне значений. Ограничение диапазона задается указанием минимального и максимального диапазона

< мин. значение>...< макс. значение>;

Ограниченные типы определяются в разделе TYPE или VAR.

Задание:

1. Если среди чисел sin xⁿ (п=1, 2..., 30) есть хотя бы одно отрицательное число, то логической переменной t присвоить значение true, а иначе -значение false.

2. Дано 100 вещественных чисел. Определить, образуют ли они возрастающую последовательность.

3. Дана последовательность из 70 целых чисел. Определить, со скольких отрицательных чисел она начинается.

4. Дано 100 целых чисел. Определить, сколько из них принимает наибольшее значение.

5. Даны целые числа x₁, x₂,..., x₅₅ вычислить величину

x₁(x₂+x₃)(x₄+x₅+x₆)(x₇+x₈+x₉+x₁₀)...(x_4б+x₄₇+...+x₅₅).

6. Дана последовательность из 100 целых чисел. Определить количество чисел в наиболее длинной подпоследовательности из подряд идущих нулей.

7. Дано 200 вещественных чисел. Определить, сколько из них больше своих " соседей", т.е. предыдущего и последующего чисел.

8. Найти сумму десяти произвольных чисел. Результат отправить в переменную S.

9. Найти минимальное из п отрицательных чисел.

10. Найти максимальное из л отрицательных чисел.

11. Ввести п чисел. определить, сколько среди них положительных. Результат отправить в переменную к.

13. Имеются следующие описания:

type месяц=(янв, фев, март, апр, май, июн, июл, авг, сен, окт, ноя, дек);

var m, ml: месяц;

k: l..maxint; n: 1..12;

Присвоить переменной ml:

а)название месяца, следующего за месяцем т (с учетом того, что за декабрем идет январь);

б) название k-гoмесяца после месяца m;

14. Имеются следующие описания:

type страна=(Австрия, Болгария, Греция, Италия, Норвегия, Франция, ФРГ);

столица=(Вена, София, Афины, Рим, Осло, Париж, Бон);

var st: страна; cap: столица;

По значению переменной st (названию страны ) присвоить переменной cap название столицы этой страны.

15. Имеются следующие описания:

var Р: (ада, бейсик, модула2, лисп, паскаль, пл1, фортран);

A: (ada, basic, modula2, lisp, paskal, pll, fortran);

По Р - русскому названию языка программирования присвоить переменной А английское название.

4. Имеются следующие описания:

type название = (ноль, один, два, три, четыре, пять);

var: d: '0'..'5';

n: название;

По литере -цифре d присвоить переменной п название этой цифры.

16. Имеются следующие описания:
type нота = (до, ре, ми, фа, соль, ля, си);

интервал=(секунда, терция, кварта, квинта, секста, септима); var nl, n2: нота; i: интервал;

Определить i-интервал, образованный нотами n1 и n2(n1 n2): секунда-это интервал из двух соседних (по кругу) нот (например, ре и ми, си и до), терция-интервал через ноту (например, фа и ля, си и ре) и т.д. 17 Имеются следующие описания: type сезон = (зима, весна, лето, осень);

месяц = (янв, фев, мар, апр, май, июн, июл, авг, сен, окт, ноя, дек);

var m: месяц; s: сезон; Определить s- сезон, на который приходится месяц т.

18. Имеются следующие описания:

type страна = (ГДР, Куба, Лаос, Монако, Непал, Польша);

континент = (Азия, Америка, Европа);

var s: страна; с: континент;

По s- названию страны определить с- название ее континента.

19. Имеются следующие описания:

type единица = (дециметр, километр, метр, миллиметр, сантиметр);

длина = real;

var s: страна;

р: единица;

Значение переменной х, означающее некоторую длину в единицах p, заменить на величину этой же длины в метрах.

20. Имеются следующие описания:
type цвет = (черный, серый, белый);
var с: цвет;

Напечатать значение переменной с.

21. Имеются следующие описания:
type letter = (a, b, с, d);

var x: letter;

Ввести заданное во входном файле значение типа letter (т. е. а, b, с или d) и присвоить его переменной х.

22. Имеются следующие описания:

type падеж = (им, род, дат, вин, твор, предл);

слово = (степь, боль, тетрадь, дверь);

var w. слово; p: падеж;

Напечатать слово w в падеже р и единственном числе (например, при w=степь и р = твор надо напечатать слово степью).

23. Имеются следующие описания:

type курс = (С, В, Ю, 3, ); { север, восток, юг, запад }

приказ = (вперед, вправо, назад, влево );

varKl, K2: курс; ПР: приказ;

Корабль сначала шел по курсу К1, а затем его курс был изменен согласно приказу ПР. Определить К2 - новый курс корабля.

24. Имеются следующие описания:
var d: 28..31;

m: месяц;

Переменной d присвоить количество дней в месяце т ( год считать невисокосным).

25. Имеются следующие описания:
var у: 1901..2000;

m: месяц; d: 1..31;

t: boolean;

Переменной t присвоить значение true, если тройка у, т, d образует правильную дату, и значение false - иначе ( при 31 июня и т.п.).

26. Имеются следующие описания:
var d, dl: 1..31; m, ml: месяц;

у: 1901..2000;

yl: 1901..2001;

По дате d, т, у определить d1, m1, y1 - дату следующего дня.

27. Имеются следующее описание:

var k: 1..366; d: 1..31; m: месяц;

а) Определить k - порядковый номер того дня високосного года, который имеет дату d, т;

б) Определить d, т - дату k-гoпо счету дня високосного года.

Контрольные вопросы:

Дайте определение перечисляемому и ограниченному типу?
Где описываются эти типы?
Какие операции определены над перечисляемым типом?

Предыдущая 123 4 5 6 7 8 Следующая