«аочное дистанционное образование с получением государственного диплома через Internet










ѕолучить информацию о поступлении
 
√лавна€ Ќовости  арта сайта ‘отоальбом √остева€ книга  онтакты

багетна€ мастерска€ москва

 

”пражнение 3 (ќдномерные массивы)

ƒан массив чисел. –асставить их по убыванию.

—уществует много алгоритмов дл€ сортировки массивов. –ассмотрим один из них, который называетс€ сортировкой с помощью пр€мого выбора (выделени€). —уть его очень проста и может быть описана так.

1. ¬ыбираетс€ наибольший элемент.

2. ћен€ем его местами с первым элементом.

3. ѕовтор€ем процесс с оставшимис€ N - 1 элементами, N - 2 элементами и т. д., до тех пор, пока не останетс€ один, самый маленький элемент.

 ак видно из описани€ алгоритма, сама сортировка осуществл€етс€ с помощью двух вложенных циклов:

FOR J := 1 “ќ N-1 DO

BEGIN

NEW := MAS[N];

K:=N;

FOR I := N DOWNTO J DO

IF MAS[I]>NEW THEN

BEGIN   := I;

NEW := MAS[I]

END;

MAS[K] := MAS[J];

MAS[J] := NEW;

END;

÷икл FOR J := 1 TO N-1 DO

определ€ет место J, на которое будет поставлен наибольший элемент, найденный в цикле: FOR I := N DOWNTO J DO.

PROGRAM PRG4_3;

CONST M = 100;

VAR MAS : ARRAY[1..M] OF INTEGER;

I, J, K, NEW, N : INTEGER;

BEGIN

WRITE('BBEƒ»TE –ј«ћ≈– ћј——»¬ј N = ');

READLN(N);

WRITELN('BBEƒ»TE ', N, ' ЁЋ≈ћ≈Ќ“ќ¬ ћј——»¬ј');

FOR I := 1 TO N DO

READ(MAS[I]);

WRITELN;

FOR J := 1 TO N-1 DO

BEGIN

NEW := MAS[N];

  :=N;

FOR I := N DOWNTO J DO

IF MAS[I]>NEW THEN

BEGIN

  := I;

NEW := MAS[I]

END;

MAS[K] := MAS[J];

MAS[J] := NEW;

END;

FOR I := 1 TO N DO

WRITE(MAS[I] : 4);

WRITELN

END.

ƒл€ решени€ задачи:

- формируем тело программы и описываем переменные;

- вводим длину массива N, значение элементов массива;

- последовательно, справа налево, просматриваем элементы и находим наибольший элемент NEW := MAS[I], запомина€ его пор€дковый номер   := I;

- мен€ем местами первый элемент и найденный;

- выводим результат.

ѕеременные:

MAS - массив чисел;

N - размер массива;

I, J - переменные циклов;

  - пор€дковый номер наибольшего элемента;

NEW - значение наибольшего элемента.


”знать как сэкономить в кризис моно на сайте ekonom-it.ru

”пражнение 3 (—имвольные переменные и строки) ”пражнение 4 (—имвольные переменные и строки) «адачи на тему "ќдномерные массивы" ”пражнение 1 (ќдномерные массивы) ”пражнение 2 (ќдномерные массивы) «адачи на тему "ƒвумерные массивы" ”пражнение 1 (ƒвумерные массивы) ”пражнение 2 (ƒвумерные массивы) ”пражнение 1, второй способ решени€ (ƒвумерные массивы) ≈√Ё по информатике 


 
     
   
 


ѕриглашаем прин€ть участие в круглом столе!
подробнее   >>>
 

»нститут ћенеджмента, Ёкономики и »нноваций начинает набор на курсы повышени€ квалификации!
подробнее   >>>
 

”важемые студенты јЌќ ¬ѕќ »ћЁи»!
подробнее   >>>
 

Ќачинаетс€ набор на курсы повышени€ квалификации!
подробнее   >>>
 

ѕриглашаем прин€ть участие в конференци€х!
подробнее   >>>
 


все новости...

 


–ассылки Subscribe.Ru
—овременное образование
ѕодписатьс€ письмом