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

• 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 Тип_элемента;
  Преимущество заключается в том, что стоит лишь однажды объявить нужный нам тип, и его можно применять где угодно.
  

• 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 слайд

  Задание 1
  Даны массивы: 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 слайд

  Задание 1
  Даны массивы: 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
  

• 10 слайд

  Задание 2
  Дан массив натуральных чисел из пяти элементов. Найти наибольший элемент.
  Решение:
  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 слайд

  Задание 2
  Дан массив натуральных чисел из пяти элементов. Найти наибольший элемент.
  Решение:
  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.