Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
0 / 0 / 1
Регистрация: 06.02.2018
Сообщений: 307

Как сортировать параметр, но с ним сдвигать и остальные строки?

20.04.2018, 16:53. Показов 589. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
uses crt;
 
const
  m = 255;
 
type
  ma4ina = record
    model: string[15];
    pacxod: real;
    obem: real;
  
  end;
  
  peremen1 = array[1..m] of ma4ina;
 
var
  a: peremen1;
  f1: text;
  n: integer;
 
procedure fail(var na: integer; var b: peremen1);
 
begin
  reset(f1);// чтение
  na := 0;
  while not eof(f1) do
  begin
    inc(na);//колво
    with b[na] do
    begin
      readln(f1, model);
      readln(f1, obem);
      readln(f1, pacxod);
      
    end;
  end;
  close(f1);
end;
 
procedure vvd(na: integer; b: peremen1);
var
  i: integer;
begin
  writeln('|Группа|':8, 'Специальность|':14, 'Курс|':5, 'Кол-во учащихся|':16);
  for i := 1 to na do
    with b[i] do
      writeln(model:8, obem:14, pacxod:5);
end;
 
procedure coPTuPoBka_no_MogeJLu(na: integer; var b: peremen1);
var
  c, x: string;j, incr: integer;i: integer;
begin
  incr := n div 2; //берет эл и делит на 2
  while  incr > 0 do 
  begin//если эл стремится к нуля то 
    for  i := incr + 1 to n do  
    begin//поиск мин
      j := i - incr; //и с другой стороны максимальный
      while  j > 0 do //если стримится дж к 0
        if b[j].model > b[j + incr].model then  begin
          c := b[j].model;
          b[j].model := b[j + incr].model;
          b[j + incr].model := c; //если над переставим
          j := j - incr
        end 
        else   j := 0{ останов проверки} 
    end; 
    incr := incr div 2
  end;
  
end;
 
 
 
begin
  assign(f1, 'laba1.2.txt');
  fail(n, a);
  vvd(n, a);
  writeln;
  writeln('Отсортированный список!');
  coPTuPoBka_no_MogeJLu(n, a);
  vvd(n, a);
  
end.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
20.04.2018, 16:53
Ответы с готовыми решениями:

Как через цикл сдвигать указатель на начало строки?
Как через цикл сдвигать указатель на начало строки? Нужен автоскроллинг для длинного текста на маленький экран

Как сортировать строки на js?
Всем привет! Как сортировать строки на js? Вот код: <!DOCTYPE html> <html> <body> <form name="fff"> <input...

Как сортировать строки?
Помогите пожалуйста, есть структура с полем символьного типа, также объявлен массив структурного типа. struct words { char...

3
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
20.04.2018, 17:24
Pascal
1
2
3
4
5
var c:ma4ina;
.........................
c := b[j];
b[j] := b[j + incr];
b[j + incr]:= c; //если над переставим
1
0 / 0 / 1
Регистрация: 06.02.2018
Сообщений: 307
20.04.2018, 18:05  [ТС]
что значит incr>0 ? ПРОСТЫМИ СЛОВАМИ?
0
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
20.04.2018, 18:06
А я знаю? Это же типа Ваш код.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
20.04.2018, 18:06
Помогаю со студенческими работами здесь

Как сортировать строки в файлах
Подскажите как сортировать строки в файлах.

Как автоматически сортировать строки в Excel?
Есть таблица Необходимо сделать автоматическую сортировку строк по столбцу "Общее" в порядке убывания и делаю я это так: ...

Объясните как удалять, добавлять и сортировать строки
подскажите, пожалуйста,как удалять, добавлять и сортировать строки? мне казалось,что через оператор delete, а оказывается как то по...

Как сдвигать?
call DISPLAY_OFF mov A, #00011111b mov DPTR, #0A004h movx @DPTR, A call delay mov A, #00101111b ...

Заменить полные квадраты в матрице их квадратными корнями, остальные элементы - ближайшими к ним простыми числами
Помогите с задачей на С++ "Заменить полные квадраты в матрице их квадратными корнями, остальные элементы - ближайшими к ним простыми...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Программный отбор значения справочника
Maks 21.03.2026
Процедура ВодителиНачалоВыбора(Элемент, ДанныеВыбора, ВыборДобавлением, СтандартнаяОбработка) / / Отключаем стандартную обработку (стандартное открытие формы выбора без фильтров) . . .
Переходник USB-CAN-GPIO
Eddy_Em 20.03.2026
Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию
anaschu 13.03.2026
прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru