Пример 4. Применение диапазонного типа для массива

var a:array [1..10, 'a'..'z'] of integer;

i,j:integer;

begin

a[1,'b']:=Random(100);

writeln(a[1,'b']);

end.

var

i:'a'..'z';

j:integer;

begin

var a:array [1..4, 'a'..'d'] of integer;

for j:=1 to 4 do

for i:='a' to 'd' do

begin

a[j,i]:=random(10);

write(i,' = ',a[j,i]:2,' ');

end

end.

Пример 5.Словесное наименование сезона по номеру месяца

var Month: integer;

Season: string;

begin

write('Введите номер месяца: ');

readln(Month);

case Month of

1,2,12: Season := 'Зима';

3..5: Season := 'Весна';

6..8: Season := 'Лето';

9..11: Season := 'Осень';

else Season := 'Вы ввели неверный номер месяца';

end;

writeln('Это ',Season)

end.

Варианты заданий

Вариант 1

Определить два перечислимых типа: месяцы и сезоны. Нужно составить программу, определяющую на какой сезон приходится данный месяц.

Вариант 2

Определить два перечислимых типа: страны и столицы. Нужно составить программу, определяющую какой стране относится указанная столица.

Вариант 3

Задать два перечислимых типа: первый фамилии целиком, второй - первые буквы фамилий. Вводится первая буква фамилии нужно вывести фамилию целиком.

Вариант 4

Задать два перечислимых типа: первый коды цветов, второй - названия цветов. Вводится имя цвета, выводится его код.

Вариант 5

Объявить два диапазонных типа: один буквы русского алфавита, второй буквы английского алфавита. Вводится буква с клавиатуры - выводится к какому алфавиту она принадлежит и ее номер в алфавите.

Вариант 6

Объявить одномерный массив из 20 элементов целого типа, в котором в качестве индекса массива выступает диапазонный тип английских букв. Необходимо заполнить элементы массива, вывести на экран как индекс, так и значение. Найти максимальный элемент массива и указать какому индексу он соответствует.

Вариант 7

Символ вводится с клавиатуры. Используя диапазонные типы определить и вывести на экран - это цифра, малая буква анг. алфавита, большая буква анг. алфавита, малая буква русского алфавита, большая буква русского алфавита, не буква.

Вариант 8

Задать два перечислимых типа: первый коды регионов, второй - названия регионов. Вводится код региона, выводится его название.

Вариант 9

Объявить два диапазонных типа: один буквы русского алфавита, второй буквы английского алфавита. Вводится буква с клавиатуры - выводится к какому алфавиту она принадлежит и ее номер в алфавите.

Вариант 10

Объявить одномерный массив из 20 элементов целого типа, в котором в качестве индекса массива выступает диапазонный тип английских букв. Необходимо заполнить элементы массива, вывести на экран как индекс, так и значение. Найти максимальный элемент массива и указать какому индексу он соответствует.

Вариант 11

Символ вводится с клавиатуры. Используя диапазонные типы определить и вывести на экран - это цифра, малая буква анг. алфавита, большая буква анг. алфавита, малая буква русского алфавита, большая буква русского алфавита, не буква.

Вариант 12

Определить два перечислимых типа: месяцы и сезоны. Нужно составить программу, определяющую на какой сезон приходится данный месяц.

Вариант 13

Определить два перечислимых типа: страны и столицы. Нужно составить программу, определяющую какой стране относится указанная столица.

Вариант 14

Задать два перечислимых типа: первый фамилии целиком, второй - первые буквы фамилий. Вводится первая буква фамилии нужно вывести фамилию целиком.

Вариант 15

Задать два перечислимых типа: первый коды цветов, второй - названия цветов. Вводится имя цвета, выводится его код.

Вариант 16

Объявить два диапазонных типа: один буквы русского алфавита, второй буквы английского алфавита. Вводится буква с клавиатуры - выводится к какому алфавиту она принадлежит и ее номер в алфавите.

Вариант 17

Объявить одномерный массив из 20 элементов целого типа, в котором в качестве индекса массива выступает диапазонный тип английских букв. Необходимо заполнить элементы массива, вывести на экран как индекс, так и значение. Найти максимальный элемент массива и указать какому индексу он соответствует.

Вариант 18

Определить два перечислимых типа: месяцы и сезоны. Нужно составить программу, определяющую на какой сезон приходится данный месяц.

Дата добавления: 2015-07-26; просмотров: 310; Нарушение авторских прав

Мы поможем в написании ваших работ!