КАТЕГОРИИ: Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748) |
В этом методе сравниваются два соседних элемента массива
BEGIN Вывод в файл. Вывод на экран; Значения отдельных элементов массива можно задать оператором присваивания. Ввод из файла; Ввод с клавиатуры; Типизированной константой; Значения элементов одномерного массива Var При определении переменных или типизированных констант. Тип-массив можно вводить непосредственно Если размерность массива меньше указанной в Type, свободные позиции заполняются нулями. Const Type Размерность реальных массивов не должна превышать верхней границы, указанной в описании типа. Var Type mass = Array[1..5] of integer; m1= array[1..10] of real; m2 = array[1..3] of char; m3 = array[1..5] of byte; a1, b1,c1: mass; a2: m1; b2: m2; c2: m3; 2. Типизированная константа использует тип-массив, объявленный ранее. mass = array[1..5] of integer; Y: mass = (2, 4, 6, 8,0); {Y(4)} X: mass = (1, 5, 7, 0,0); {X(3)} 3. Тип-массив задается непосредственно в разделе описания констант и переменных. Const n=4; m: integer=10; a1: array[1..4] of integer = (1, 4, 3, 7); a2: array[1..3] of real = (1., 4., -5); a3: array[1..3] of char = (‘n’, ‘o’, ‘t’); a6, b6: array[1..5] of integer; a5, c1: array[1..5] of integer; a4: array[1..m] of real; 3. Ввод – вывод одномерных массивов. (вектора) можно ввести в программу следующими способами: Вывод элементов массива и результатов вычислений: Program Vvod; Type mass = array[1..5] of integer; Const A: mass = (2, -4, 3, -6, 8); Var B: mass; {или B,C: mass;} C: array[1..4] of integer; i: byte; { ввод массива B с клавиатуры } writeln(‘ введите массив B‘); For i:= 1 to 5 do read(b[i]); { ввод массива C с клавиатуры } writeln(‘ введите массив С‘); For i:= 1 to 4 do read(c[i]); { вывод массива A на экран } writeln(‘ массив A:’); For i:= 1 to 5 do write(A[i]:5,’ ‘); writeln; {выводится вектор-строка} { вывод массива B на экран } writeln(‘ массив B:’); For i:= 1 to 5 do writeln(B[i]); {выводится вектор-столбец} СОРТИРОВКА МАССИВОВ 1. Сортировка с помощью прямого Если первый из них больше второго, то эти элементы меняют местами (перестановка) и т.д., т.е. Max элемент выдавливается в конец массива (при сортировке по возрастанию). i= 1 2 3 4 5 4 1 1 4 1 3 2 1 3 2 3 3 2 4 4 2 5 5 5
Дата добавления: 2014-01-20; Просмотров: 452; Нарушение авторских прав?; Мы поможем в написании вашей работы! Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет |