Кабинет Информатики

Понедельник, 21.01.2019, 10:32
Меню сайта
Наш опрос
Есть ли в Вашем кабинете интерактивная доска?
Всего ответов: 223
Новости...
Конкурсы
Позитивный контент-2017

Победитель Общероссийского рейтинга школьных сайтов
Знак качества Просвещения

Фонд 21 века
Рейтинг образовательных сайтов mega-talant.com
Эволюция - бесплатные конкурсы для педагогов и школьников
Фонд 21 века
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Besucherzahler
счетчик посещений
Среднее и дошкольное образование Центр профессионального роста Содружество

Проголосуй за наш сайт
Каталог webplus.info
Форма входа

Обработка массивов

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

Алгоритмы сортировки числового массива

Задача 1. Отсортировать числовой массив. Первый способ. 
USES Crt;
 CONST   N=30;
 VAR
   A:ARRAY[0..N] OF INTEGER;
   I,J: BYTE;   PP:INTEGER;
 BEGIN
   ClrScr;   Randomize;
   WriteLn(' Значения элементов массива ');
   FOR I:=1 TO N DO Begin
     A[I]:=Random(50);    Write(A[I]:4);
   End;   WriteLn;
   { Сортировка массива }
   FOR I:=2 TO N DO
     FOR J:=N DOWNTO I DO
       IF A[J-1]>A[J]  THEN Begin PP:=A[J]; A[J]:=A[J-1]; A[J-1]:=PP;  End;
   WriteLn(' Отсортированный массив ');
   FOR I:=1 TO N DO
     Write(A[I]:4);
 END.

Задача 2. Отсортировать числовой массив. Второй способ. 
USES Crt;
 CONST   N=30;
 VAR
   A:ARRAY[0..N] OF INTEGER;
   I,J: BYTE;   PP:INTEGER;
 BEGIN
   ClrScr;   Randomize;
   WriteLn(' Значения элементов массива ');
   FOR I:=1 TO N DO Begin
     A[I]:=Random(50);    Write(A[I]:4);
   End;   WriteLn;
   { Сортировка массива }
   FOR I:=1 TO N-1 DO
     FOR J:=I+1 TO N DO
       IF A[I]>A[J]  THEN Begin  PP:=A[I];  A[I]:=A[J];  A[J]:=PP;   End;
   WriteLn(' Отсортированный массив ');
   FOR I:=1 TO N DO
     Write(A[I]:4);
 END.
.....................................................................................................................................
Практические задания
.....................................................................................................................................
Даны два упорядоченных массива целых чисел М1 и М2. Слить их в упорядоченный массив. Рассмотреть случаи, когда массивы М1 и М2 упорядочены одинаково и когда по-разному. 

Поиск
Календарь
«  Январь 2019  »
ПнВтСрЧтПтСбВс
 123456
78910111213
14151617181920
21222324252627
28293031


Социальные сети
Портфолио

Полезные ссылки
  • Учительский портал
  • Педсовет.ORG
  • Дневник.ру
  • ProШколу.ru
  • Pedsovet.su
  • Завуч.инфо
  • Методисты.ру
  • Методсовет
  • УчМет
  • ИнформатикУрок
  • Менеджер образования
  • Сеть творческих учителей
  • Сообщество учителей ИКТ


  • Узнай свой IP адрес
    Перечень олимпиад на 2017-2018 учебный год







    Портал о суевериях, поверьях и приметах народов России