Масивы "начало"

@Wassago · Регистрация: 02.09.2009

Author24 — интернет-сервис помощи студентам

Программа которая сортирует элементы в порядку возрастания:

Pascal

uses crt;
const n=4;
 a:array[1..n] of integer=(7,3,5,8);
var
 i,j,c:integer;
 
begin
ClrScr;
 
 for j:=1 to n-1 do
 for i:=1 to n-j do
  if a[i] > a[i+1] then
  begin
   c:=a[i];  a[i]:=a[i+1];  a[i+1]:=c;
    end;
 for i:=1 to n do
  WriteLn(a[i]);
 end.

Этот фрагмент :

Pascal

1	if a[i] > a[i+1] then

a[i] = 735737
a[i+1] = 358353

Почему?Как выполняется такое действие: i+1 ?
Объясните пожалуйста!

@Puporev · 22.10.2009, 23:20

Что у Вас за мешанина из сортировок, понять нельзя. Напишите так

Pascal

for i:=1 to n-1 do
for j:=i+1 to n do
  if a[i] > a[j] then
  begin
   c:=a[i];  a[i]:=a[j];  a[j]:=c;
    end;

@Wassago · 22.10.2009, 23:23 **[ТС]**

Преподаватель так написал,вот и стараюсь понять

@Puporev · 22.10.2009, 23:34

У меня все нормально выдает 3 5 7 8

Добавлено через 1 минуту

a[i] = 735737
a[i+1] = 358353

А это что за числа? Ведь a[i],a[i+1] могут принимать значения 3 5 7 8

@Wassago · 22.10.2009, 23:39 **[ТС]**

Да,ваш вариант много лучше,но я стараюсь понять как оно работает.Если вам не трудно объясните пожалуйста:

Pascal

1 2	for i:=1 to n-1 do for j:=i+1 to n do

почему именно так.

Добавлено через 2 минуты

Сообщение от Puporev

a[i] = 735737
a[i+1] = 358353

Это если:

Pascal

for j:=1 to n-1 do
 for i:=1 to n-j do
 
   WriteLn(a[i],' ',a[i+1]);

@Puporev · 22.10.2009, 23:46

Сравниваем поочередно элементы с первого до предпоследнего
for i:=1 to n-1 do
с элементами которые впереди и ищем первый меньше данного
for j:=i+1 to n do
, находим, меняем местами, переходим к следующему.
for j:=i+1 to n do
потому что сзади уже отсортированные элементы
Ваш массив
7,3,5,8
1.сравниваем первый элемент, меняем 7 и 3 3, 7, 5, 8
2. второй меняем 7 и 5 3, 5, 7, 8
больше обменов нет.

@Wassago · 22.10.2009, 23:53 **[ТС]**

ОоО!!Спасибо большое,я уже понял!Туплю просто...

@Wassago localhost 58 / 58 / 9 Регистрация: 02.09.2009 Сообщений: 170
	22.10.2009, 23:23 [ТС]	3
	Преподаватель так написал,вот и стараюсь понять 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	22.10.2009, 23:34	4
	У меня все нормально выдает 3 5 7 8 Добавлено через 1 минуту a[i] = 735737 a[i+1] = 358353 А это что за числа? Ведь a[i],a[i+1] могут принимать значения 3 5 7 8 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	22.10.2009, 23:46	6
	Сравниваем поочередно элементы с первого до предпоследнего for i:=1 to n-1 do с элементами которые впереди и ищем первый меньше данного for j:=i+1 to n do , находим, меняем местами, переходим к следующему. for j:=i+1 to n do потому что сзади уже отсортированные элементы Ваш массив 7,3,5,8 1.сравниваем первый элемент, меняем 7 и 3 3, 7, 5, 8 2. второй меняем 7 и 5 3, 5, 7, 8 больше обменов нет. 1

@Wassago localhost 58 / 58 / 9 Регистрация: 02.09.2009 Сообщений: 170
	22.10.2009, 23:53 [ТС]	7
	ОоО!!Спасибо большое,я уже понял!Туплю просто... 0