Форум программистов  
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

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

Создайте массив в котором n элементов. Сортировать вторую четверть по убыванию, последнюю - по возрастанию, элементы, большие заданного числа p удвоить.
Korban вне форума   Ответить с цитированием
Старый 14.03.2017, 06:10   #2
newerow1989
Я самый любопытный
Профессионал
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Адрес: RU, Алтайский край, Красногорский р-н, с. Балыкса, ул. Центральная Сообщений: 7,541 Репутация: 37104
Сообщений: 1,534
Репутация: 1425

skype: newerow1989
По умолчанию

Код:

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.narod.ru
[Паскаль] [Delphi]
newerow1989 вне форума   Ответить с цитированием
Старый 14.03.2017, 23:46   #3
Korban
Пользователь
 
Регистрация: 02.11.2016
Сообщений: 20
Репутация: 10
По умолчанию

Да, огромное спасибо вам.
Korban вне форума   Ответить с цитированием
Старый 15.03.2017, 05:21   #4
newerow1989
Я самый любопытный
Профессионал
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Адрес: RU, Алтайский край, Красногорский р-н, с. Балыкса, ул. Центральная Сообщений: 7,541 Репутация: 37104
Сообщений: 1,534
Репутация: 1425

skype: newerow1989
По умолчанию

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



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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




22:10.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru