Презентация по теме урока Одномерные массивы в Pascal

Примеры объявления трех массивов: Names (фамилии), Ratings (оценки) и ChampShip (чемпионат) в разделе VAR . VAR{30 строковых переменных с фамилиями учеников класса}Names : ARRAY [1..30] OF string;{30 байтовых переменных с оценками учеников этого класса}Ratings : ARRAY [1..30] OF byte;{16 целых переменных с очками, набранными командами в чемпионате} ChampShip : ARRAY [1..16] OF integer; Массив может быть составлен из элементов любого типа. Второй способ:объявление массива в разделе TYPE.TYPE Имя_типа = ARRAY [MIN..MAX] OF Тип_элемента; Преимущество заключается в том, что стоит лишь однажды объявить нужный нам тип, и его можно применять где угодно. Примеры объявления типов массивов: TNames (фамилии), TRatings (оценки) и TChampShip (чемпионат) в разделе TYPE. TYPE{ тип для 30 строковых переменных с фамилиями учеников класса}TNames = ARRAY [1..30] OF string;{тип для 30 байтовых переменных с оценками учеников }TRatings = ARRAY [1..30] OF byte;{ тип для 16 целых переменных с очками, набранными командами в чемпионате}TChampionShip = ARRAY [1..16] OF integer; Переменной-массивом можно управлять как единым целым, указывая имя массива (например, при копировании одного массива в другой). Но чаще приходится работать с отдельными его элементами. Для доступа к элементу массива необходимо указать его индекс, то есть порядковый номер в массиве. Пример 1. Трем элементам массива Names присваиваются фамилии хоккеистов.Names[1] :=’Петров‘;Names[2] :=’Михайлов‘;Names[3] :=’Харламов‘; Пример 2. Сравниваются третий и четвертый элемент массива Ratings. i:= 3;if Ratings[i] > Ratings[i+1] then … else …; При вводе массива необходимо организовать цикл. Алгоритм ввода массива с использованием цикла с предусловием Алгоритм ввода массива с использованием безусловного цикла Вывод массива организуется аналогично вводу. Пример 1. Вычисление суммы элементов массиваДан массив среднемесячных температур Т, состоящий из 12 элементов . Вычислить среднегодовую температуру Tsred. Program Temperature;{Ввод массива среднемесячных температур. Вычисление среднегодовой температуры}Var T: array[1..12] of real; {Описание одномерного массива} I: integer; Tsred: real; Begin for I:=1 to 12 step 1 do begin {Цикл ввода} Write('T[',I:2,']='); Readln(T[I]); End; Tsred:=0; {Цикл суммирования} for I:=1 to 12 do Tsred:=Tsred+T[I];Tsred:=Tsred/12; {Вычисление средней температуры} Writeln('Среднегодовая температура', Tsred:6:2,' гр-в')End. Даны массивы: a: array [1..5] of integer, b: array [1..5] of integer, c: array [1..5] of integer. Какое значение будет иметь элемент массива c [4] после выполнения следующих операций: 1) c [4]:=10 2) c[2]:=3; c[4]:=c[2]*2; 3) a[1]:= -10; b[2]:=10; c[4]:=a[1]+b[2]; 4) c[4]:=3; c[4]:=c[4]+1; 5) a[4]:=100; b[4]:=0; c[4]:=a[4]/b[4] 6) for i:=1 to 5 do c[i]:=50; 7) for i:=1 to 5 do c[i]:=50; for i:=1 to 5 do c[i]:=c[i]-10; Даны массивы: a: array [1..5] of integer, b: array [1..5] of integer, c: array [1..5] of integer. Какое значение будет иметь элемент массива c [4] после выполнения следующих операций: 1) c [4]:=10 10 2) c[2]:=3; c[4]:=c[2]*2; 6 3) a[1]:= -10; b[2]:=10; c[4]:=a[1]+b[2]; 0 4) c[4]:=3; c[4]:=c[4]+1; 4 5) a[4]:=100; b[4]:=0; c[4]:=a[4]/b[4] ошибка 6) for i:=1 to 5 do c[i]:=50; 50 7) for i:=1 to 5 do c[i]:=50; for i:=1 to 5 do c[i]:=c[i]-10; 40 Дан массив натуральных чисел из пяти элементов. Найти наибольший элемент. Решение: program pr1;var a: array [1..5] of integer; max,i: integer; begin for i:=1 to 5 do readln(a[i]); max:=a[1]; for i:=2 to 5 do if a[i]>max then max:=a[i]; writeln('максимальный элемент: ', max); readln;end. Переделать данную программу так, чтобы определить минимальный элемент массива. Дан массив натуральных чисел из пяти элементов. Найти наибольший элемент. Решение: program pr1;var a: array [1..5] of integer; min, I: integer; begin for i:=1 to 5 do readln(a[i]); min:=a[1]; for i:=2 to 5 do if a[i] < min then min:=a[i]; writeln(‘минимальный элемент: ', min); readln;end.