Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.03.2017, 23:50   #1
Korban
Пользователь
 
Регистрация: 02.11.2016
Сообщений: 26
По умолчанию Сортировка массива методом вставки - Pascal ABC

Создайте массив в котором n элементов. Сортировать вторую четверть по убыванию, последнюю - по возрастанию, элементы, большие заданного числа p удвоить.
Korban вне форума Ответить с цитированием
Старый 14.03.2017, 05:10   #2
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
const n=20;
var i,j,k,z,a:integer;
    p:array[0..n-1] of integer;
begin
   Write('a = '); Readln(a);
   Randomize;
   For i:=0 to n-1 do
   begin
      p[i]:=Random(21);
      Write(p[i]:2,' ');
      If i mod (n div 4)=n div 4-1 then
         Write('. ');
   end;
   Writeln;
   Writeln;
   For i:=n div 4+1 to n div 2-1 do
   begin
      z:=p[i];
      j:=n div 4;
      While p[j]>z do
         j:=j+1;
      For k:=i downto j+1 do
         p[k]:=p[k-1];
      p[j]:=z;
   end;
   For i:=3*n div 4+1 to n do
   begin
      z:=p[i];
      j:=3*n div 4;
      While p[j]<z do
         j:=j+1;
      For k:=i downto j+1 do
         p[k]:=p[k-1];
      p[j]:=z;
   end;
   For i:=0 to n-1 do
      If p[i]>a then
         p[i]:=2*p[i];
   For i:=0 to n-1 do
   begin
      Write(p[i]:2,' ');
      If i mod (n div 4)=n div 4-1 then
         Write('. ');
   end;
   Writeln;
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 14.03.2017, 22:46   #3
Korban
Пользователь
 
Регистрация: 02.11.2016
Сообщений: 26
По умолчанию

Да, огромное спасибо вам.
Korban вне форума Ответить с цитированием
Старый 15.03.2017, 04:21   #4
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сортировка двумерного массива любым методом сортировки - Pascal ABC Mashunka Помощь студентам 2 18.02.2017 09:02
[C++]: сортировка методом вставки erfo Помощь студентам 3 23.05.2012 16:13
Сортировка двумерного массива методом вставки. Pascal xXxalexXx Помощь студентам 0 25.11.2010 20:03
Сортировка массива методом линейной вставки☺ m-o-r-t-r-o-m Фриланс 6 04.11.2009 14:59
Сортировка массива методом вставок Pascal bpystep Помощь студентам 5 22.04.2009 01:13