Решаем задачи Абрамян на Паскале. Array112

Array112. Дан массив $$A$$ размера $$N$$ ($$\leq 6$$). Упорядочить его по возрастанию методом сортировки простым обменом («пузырьковой» сортировкой): просматривать массив, сравнивая его соседние элементы ($$A_1$$ и $$A_2$$, $$A_2$$ и $$A_3$$ и т. д.) и меняя их местами, если левый элемент пары больше правого; повторить описанные действия $$N-1$$ раз. Для контроля за выполняемыми действиями выводить содержимое массива после каждого просмотра. Учесть, что при каждом просмотре количество анализируемых пар можно уменьшить на $$1$$.

Решение:

program Array112;
var
a : array [1..6] of real;
N,N2,i,i2,i3: integer;

begin
 Write('N: ');
 Readln(N);

 Writeln('A: ');
 for i:=1 to N do
  begin
   write(i,' :');
   readln(a[i]);
  end;

 N2:=N;
 for i:=1 to N-1 do
  begin
   i2:=1;
   N2:=N2-1;
   while (i2<=N2) do
    begin
     if a[i2]>a[i2+1] then
      begin
       a[i2]:=a[i2]+a[i2+1];
       a[i2+1]:=a[i2]-a[i2+1];
       a[i2]:=a[i2]-a[i2+1];
      end;
     inc(i2);
    end;
   for i3:=1 to N do writeln(a[i3]:7:0);
   readln;
  end;
end.

program Array112;

var

a : array [1..6] of real;

N,N2,i,i2,i3: integer;

begin

Write('N: ');

Readln(N);

Writeln('A: ');

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

N2:=N;

for i:=1 to N-1 do

begin

i2:=1;

N2:=N2-1;

while (i2<=N2) do

begin

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

begin

a[i2]:=a[i2]+a[i2+1];

a[i2+1]:=a[i2]-a[i2+1];

a[i2]:=a[i2]-a[i2+1];

end;

inc(i2);

end;

for i3:=1 to N do writeln(a[i3]:7:0);

readln;

end;

end.

Задачи из раздела Array можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Array112

Комментарии:

Комментарии 1

Добавить комментарий Отменить ответ