- Презентации
- Презентация по теме урока Одномерные массивы в Pascal
Презентация по теме урока Одномерные массивы в Pascal
Автор публикации: Кириченко А.Г.
Дата публикации: 31.08.2016
Краткое описание:
1
Примеры объявления трех массивов: 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, Массив может быть составлен из элементов любого типа.
2
Второй способ: объявление массива в разделе TYPE. TYPE Имя_типа = ARRAY [MIN..MAX] OF Тип_элемента, Преимущество заключается в том, что стоит лишь однажды объявить нужный нам тип, и его можно применять где угодно.
0
Благодаря этой рекламе сайт может продолжать свое существование, спасибо за просмотр.
3
Примеры объявления типов массивов: 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,
4
Переменной-массивом можно управлять как единым целым, указывая имя массива (например, при копировании одного массива в другой). Но чаще приходится работать с отдельными его элементами. Для доступа к элементу массива необходимо указать его индекс, то есть порядковый номер в массиве. Пример 1. Трем элементам массива Names присваиваются фамилии хоккеистов. Names[1] :=’Петров‘, Names[2] :=’Михайлов‘, Names[3] :=’Харламов‘, Пример 2. Сравниваются третий и четвертый элемент массива Ratings. i:= 3, if Ratings[i] >, Ratings[i+1] then … else …,
5
При вводе массива необходимо организовать цикл. Алгоритм ввода массива с использованием цикла с предусловием Алгоритм ввода массива с использованием безусловного цикла Вывод массива организуется аналогично вводу.
6
7
Пример 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.
8
Даны массивы: 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,
9
Даны массивы: 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,
10
Дан массив натуральных чисел из пяти элементов. Найти наибольший элемент. Решение: 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. Переделать данную программу так, чтобы определить минимальный элемент массива.
11
Дан массив натуральных чисел из пяти элементов. Найти наибольший элемент. Решение: 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.