Язык программирования Pascal. Регулярные типы данных. Васильев В.В - 6 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

6
readkey
end.{Vector}
Процедура randomize организует случайный отбор чисел из псевдослучай-
ной последовательности, возвращаемой в виде значений функции random.
Проверьте работу программы на ПК !
С помощью процедур ввода- вывода нельзя ввести- вывести весь массив
целиком. Вводить и выводить массив можно поэлементно, при условии, что
операции ввода- вывода определены для типа элементов массива.
Над массивами не определены операции отношения, поэтому сравнивать
можно только элементы массивов.
Турбо Паскаль позволяет одним оператором присваивания передать зна-
чения всех элементов одного массива другому массиву того же типа.
Например,
Type Mas = array [1..100] of Integer;
Var A, B: Mas;
Begin .....
A := B;
End.
Разберем несколько задач, для решения которых используются одномер-
ные массивы .
2. Векторы . Ввод-вывод, сортировка , поиск,
преобразование, сдвиг
Решая первую задачу, мы напишем программу, заполняющую массив, ин -
дексами которого являются данные перечислимого типа.
Задача 1. С помощью следующего фрагмента программы присвойте ка-
ждому элементу массива КД значение , равное количеству дней в соответст-
вующем месяце високосного года.
type
месяц = (янв, фев, мар, апр, май, июн, июл,
авг, сен, окт, ноя, дек);
var КД: array [месяц] of 29..31;
♣ Значения элементам массива КД можно присваивать в цикле, тело кото-
рого содержит оператор выбора. Параметром цикла будет служить переменная
i: месяц. Переменная k используется при выводе элементов массива на экран
для обозначения номера месяца. ♣
Program Number_days;
Uses Crt;
Type month = (Jan, Feb, Mar, Apr, May, Jun,
Jul, Aug, Sep, Oct, Nov, Dec);
Var kd:array [month] of 29..31;
i:month; k:integer;
Begin Textbackground(7); Textcolor(blue); Clrscr;
{Заполнение массива kd}

Страницы