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

• 1 слайд

  Одномерные массивы
  в Паскале
  

• 2 слайд

  
  Линейная таблица в программировании называется одномерным массивом.
  Массив – это пронумерованная конечная последовательность однотипных величин.
  Индекс – порядковый номер элемента массива
  
  
  Каждый элемент массива обозначается индексированным именем в следующей форме:
  Имя массива [индекс].
  Например: Т [2], Т [10].
  

• 3 слайд

  Обычную книгу можно
  считать массивом.
  
  Книга состоит из множества однотипных элементов – страниц,
  У каждой страницы есть номер (индекс).
  Все страницы объединены под одним названием (название книги)
  
  

• 4 слайд

  Дом также можно
  считать массивом.
  
  Дому соответствует один почтовый адрес (город, улица, номер).
  
  Элементами дома можно считать квартиры, у каждой из которых есть номер (индекс).
  
  
  

• 5 слайд

  Футбольную команду можно считать «массивом».
  
  команда состоит из нескольких людей, у каждого из них есть номер (индекс).
  

• 6 слайд

  Описание массива
  Массивы описываются в разделе описания переменных. Общий вид описания:
  Имя: array [нижний индекс .. верхний индекс] of тип
  Имя - имя переменной-массива;
  array - ключевое слово, обозначающее, что переменная является массивом;
  нижний_индекс и верхний_индекс - целые числа, определяющие диапазон изменения индексов элементов.
  тип - тип элементов массива.
  
  Пример: Т : array [1..12] of integer;
  Создается массив Т из целых чисел, с нумерацией от 1 до 12 (всего 12 элементов).
  
  

• 7 слайд

  Заполнение массива
  данными, вводимыми с клавиатуры
  Цикл по счету: For i:=1 to 12 do
  begin
  Writeln (‘Введите ‘,I, ‘элемент массива’);
  Readln (T [i]);
  End;
  Цикл «ПОКА»:
  i:=1;
  While i<=12 do
  Begin
  Writeln (‘Введите ‘,I, ‘элемент массива’);
  Read (T [i]);
  i:=i+1;
  End;
  
  

• 8 слайд

  Вывод массива на экран
  Цикл по счету: For i:=1 to 12 do
  writeln (‘T [‘ ,I, ‘] = ‘, T[i] );
  
  Цикл «ПОКА»:
  i:=1;
  While i<=12 do
  Begin
  Writeln (‘T [‘ ,I, ‘] = ‘, T[i] );
  i:=i+1;
  End;
  
  

• 9 слайд

  Задача 1. Сформировать массив из 5 элементов. Вывести на экран максимальный элемент массива.
  
  Program maximum;
  var T: array [1..5] of integer;
  var i,max:integer;
  begin
  for i:=1 to 5 do
  begin
  write ('Введите ',i, ' число:'); формирование массива
  read (T [i]);
  end;
  max:= T[1];
  for i:=1 to 5 do
  begin обработка массива
  if T[i]>max then max:=T[i]
  end;
  write ('максимальное число: ',max);
  end.
  
  

• 10 слайд

  Задача 2. Сформировать массив из 8 элементов. Найти сумму положительных элементов массива.
  Program summa;
  var T: array [1..8] of integer;
  var i,s:integer;
  begin
  for i:=1 to 8 do
  begin
  write ('Введите ',i, ' число:'); формирование массива
  readln (T [i]);
  end;
  for i:=1 to 8 do
  Begin обработка массива
  if T[i]>0 then s:=s+ T[i]
  end;
  write ('Сумма положительных элементов массива равна ',s);
  end.
  

• 11 слайд

  Задача 3. Сформировать массив из 6 элементов. Найти сумму отрицательных элементов массива.
  
  Program summa_masiva;
  var T: array [1..6] of integer;
  var i,s:integer;
  begin
  for i:=1 to 6 do
  begin
  write ('Введите ',i, ' число:');
  read (T [i]);
  end;
  for i:=1 to 6 do if T[i]<0 then s:=s+ 1;
  write ('Количество отрицательных элементов массива:',s);
  end.
  

• 12 слайд

  Заполнение массива
  случайными числами
  Установка датчика случайных чисел:
  Randomize
  При выполнении функции Random (X)
  ее результатом становится целое число в диапазоне от 0 до x.
  При выполнении функции Random (50) – 25
  ее результатом становится целое число в диапазоне от -25 до 25.
  
  
  

• 13 слайд

  Заполнение массива
  случайными числами от 0 до 100
  Program Example;
  Var Rand: array [1..20] of integer;
  Var i: integer;
  Begin
  {Установка датчика случайных чисел}
  Randomize;
  {Заполнение массива случайными числами и вывод их на экран}
  Writeln (‘Массив случайных чисел:’);
  For i:=1 to 20 do
  Begin
  Rand [i]:= random (100); Write (Rand [i]:4);
  End;
  End.
  
  
  
  

• 14 слайд

  Формирование массива случайными числами
  

• 15 слайд

  Задача 4: Заполнить массив случайными числами. Найти количество вхождений числа X в массив.
  Program Example;
  Var Rand: array [1..20] of integer; i, x, s: integer;
  Begin
  Randomize;
  Writeln (‘Массив случайных чисел:’);
  For i:=1 to 20 do
  Begin
  Rand [i]:= random (100); Write (Rand [i]:4);
  End;
  Writeln (‘Введи число x:’); Readln (x);
  For i:=1 to 20 do if Rand [i]:=x then s:=s+1;
  If s:=0 then write (‘В массиве нет числа ’,x)
  else write (‘Число ’,x, ‘ в массиве присутствует ’ ,s, ‘раз’);
  End.