Пятница, 29.03.2024, 15:26
Сайт учителей информатики
ГБОУ СОШ № 11 г. Москвы
Приветствую Вас Гость | RSS
Главная Занятие 5. Массивы Регистрация Вход
Кабинет информатики

К уроку информатики

Планирование

Олимпиады и конкурсы

ЕГЭ и ГИА по информатике

Открытые мероприятия по информатике

Форма входа

Занятие 5. Массивы.

На уроке мы познакомились с

  • Объявлением массива
  • Заполнением массива
  • Выводом массива
  • Операциями с элементами массива

Программа №1: объявление, заполнение вывод массива

const

 

   MaxN=5// В константе размер массива

 

var

 

  a: array [1..MaxN] of integer;

 

  i: integer;begin

 

     cls;

 

     // Заполнение массива,значение и индекс элемента совпадают

 

     for i:=1 to MaxN do

 

         a[i]:=i;

 

// Вывод массива

 

     for i:=1 to MaxN do

 

          writeln('A[',i,']=',a[i]);

 

end.

Программа №2: поиск минимального элемента массива

const

  MaxN=5;

var

  a: array [1..MaxN] of integer;

  i: integer;

  Amin, Amax: integer;

 

begin

     cls;

     // Заполнение массива

     for i:=1 to MaxN do

     begin

         a[i]:=random(101);

         writeln('A[',i,']=',a[i]);

     end;

 

     Amin:=a[1];

     // Поиск минимального элемента

     for i:=1 to MaxN do

     begin

          if Amin>a[i] then

             Amin:=a[i];

     end;

     writeln('Amin=',Amin);

end.

Программа №3. Перемещение минимального элемента массива в начало

Обратите внимание на разницу понятия элемент массива и индекс элемента

// Задача: Минимальный элемент массива переместить в начало,элемент из начала на место минимального элемента

const

  MaxN=5;

var

  a: array [1..MaxN] of integer;

  i: integer;

  Amin: integer;      // Минимальное значение массива в текущей итерации цикла

  IndMin: integer;    // Индекс минимального элемента

  tmp: integer;       // Временная переменная для перестановки значений элементов массива

 

begin

     cls;

     // Заполнение массива

     for i:=1 to MaxN do

     begin

         a[i]:=random(101);

         writeln('A[',i,']=',a[i]);

     end;

 

     Amin:=a[1];

     // Поиск минимального элемента

     for i:=2 to MaxN do

     begin

          if Amin>a[i] then

          begin

             Amin:=a[i];           // Сохраняем значение минимального элемента

             IndMin:=i;            // Сохраняем индекс минимального элемента

          end;

     end;

     writeln('Amin=',Amin);

     tmp:=a[1];

 

     // Перестановка местами первого и минимального элементов массива

     a[1]:=Amin;

     a[IndMin]:=tmp;

 

     // Вывод массив

     writeln('Результат после перестановки');

     for i:=1 to MaxN do

         writeln('A[',i,']=',a[i]);

end.

ГБОУ СОШ № 11

Учителя информатики

Цитатник

Обратная связь

Поиск

Календарь
«  Март 2024  »
ПнВтСрЧтПтСбВс
    123
45678910
11121314151617
18192021222324
25262728293031

Архив записей

Informatika11 © 2024 Бесплатный хостинг uCoz