Презентация "Массивы в языке программирования Pascal"

Структурированные Структурированные типы данных в языке типы данных в языке программирования программирования Pascal. МАССИВЫ . МАССИВЫ Pascal

МАССИВ - ЭТО - ЭТО МАССИВ УПОРЯДОЧЕННАЯ ПО УПОРЯДОЧЕННАЯ ПО НОМЕРАМ СОВОКУПНОСТЬ НОМЕРАМ СОВОКУПНОСТЬ ЭЛЕМЕНТОВ, ЭЛЕМЕНТОВ, ОБЪЕДИНЕННЫХ ОБЩИМ ОБЪЕДИНЕННЫХ ОБЩИМ ИМЕНЕМ И ТИПОМ . ИМЕНЕМ И ТИПОМ .

ОПИСАНИЕ МАССИВОВ ОПИСАНИЕ МАССИВОВ  Имя массива: array[размерность]тип элементов     Например: Х:array[1..25] of  real; Y:array[1..10, 1..15] of char;

ВВОД С КЛАВИАТУРЫ ВВОД С КЛАВИАТУРЫ Для одномерного массива: for  i:=1 to N do read ( X[i] ); Для двумерного массива: for  i:=1 to M do for  j:=1 to N do read ( X[i,j] );

ВЫВОД В СТРОКУ ВЫВОД В СТРОКУ Для одномерного массива: for  i:=1 to N do write ( X[i] ); Для двумерного массива: for  i:=1 to M do for  j:=1 to N do write ( X[i,j] );

ВЫВОД В СТОЛБИК ВЫВОД В СТОЛБИК Для одномерного массива: for  i:=1 to N do writeln ( X[i] ); Для двумерного массива: for  i:=1 to M do for  j:=1 to N do writeln ( X[i,j] );

ПОИСК ПОИСК МИНИМАЛЬНОГО ЭЛЕМЕНТА МИНИМАЛЬНОГО ЭЛЕМЕНТА в одномерном массиве в одномерном массиве Min:=x[i]; Min:=x[i]; for i:=1 to n do for i:=1 to n do if x[i] < Min then Min := if x[i] < Min then Min := x[i]; x[i]; write (min); write (min);

ПОИСК МАКСИМАЛЬНОГО МАКСИМАЛЬНОГО ЭЛЕМЕНТА ЭЛЕМЕНТА в одномерном массиве в одномерном массиве if x[i] > Max then Max:= if x[i] > Max then Max:= Max:=x[1]; Max:=x[1]; for i:=2 to n do for i:=2 to n do x[i]; x[i]; write (Max); write (Max);

из из kk-ой позиции -ой позиции Удаление элемента Удаление элемента в одномерном массиве в одномерном массиве For i:=k to N do For i:=k to N do x[i] :=x[i+1]; x[i] :=x[i+1]; N:=N-1; N:=N-1;

Добавление элемента Добавление элемента в в kk-ую позицию -ую позицию For i:=N downto k do For i:=N downto k do x[i +1 ] :=x[i]; x[i +1 ] :=x[i]; x[k]:=A; x[k]:=A; N:=N+1; N:=N+1;

СОРТИРОВКА МАССИВОВ СОРТИРОВКА МАССИВОВ Метод прямого обмена (по возрастанию) For i := 1 to n 1 do For k := 1 to n 1 do if x[k]>x[k+1] then Begin Buf := x[k]; x[k] := x[k+1]; x[k+1] := Buf; end;

Метод прямого обмена (метод «пузырька»)                                             111 222 333 444 555 666 777 Каждый  элемент  массива,  начиная  с  первого  сравнивается  со  следующим.  И  если  он  больше  следующего,  то  элементы  меняются местами. Таким образом элементы с меньшим значением  продвигаются  к  началу  массива  («всплывают»),  а  элементы  с  большим      значением  («тонут»).    Обмен  происходит  с  помощью  дополнительной ячейки памяти («буфера обмена»).

X[i] . . X[i+1] . . Buf . .

Метод прямого выбора (по возрастанию) Сначала  выбирается  наименьший  элемент  массива  и  меняется  местами  с  первым  элементом  массива,  затем  просматриваются  все  элементы  начиная  со  второго,  и  наименьший  из  них  меняется  местами  со  вторым элементом, и так далее n­1 раз. For  i : = 1 to n­1 do begin nmin := i; for k :=i+1 to n do if  x [ k ] < x[nmin] then nmin:=k; Buf := x[i]; x[i] := x[nmin]; x[nmin] := Buf; end;