Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 01.03.2020
Сообщений: 20

Сделать сортировку таблицы по возрастанию

01.03.2020, 21:04. Показов 857. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Есть таблица по типу Excel,нужно сделать сортировку таблицы по возростанию,но нужно чтобы сортировалась вся строка,а не один столбец. Вот часть программы для понимания

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
uses
crt;
label
metka,konec;
type
baza = record
        kod:string;
        nmn:string;
        cze:real;
        kvo:integer;
        end;
var
  a:array[1..100] of baza;
  i,n,u,o,k,su:integer;
  s:string;
  sum,p:real;
begin
  writeln('Введите количество людей');
  readln(n);
    for i := 1 to n do 
      with a[i] do
        begin 
        writeln('Введите код товара');
        readln(kod);
        writeln('Введите название');
        readln(nmn);
        writeln('Введите цену за ед.');
        readln(cze);
        writeln('Введите количество');
        readln(kvo);
        end;
    metka:
    clrscr;
    writeln('------------------------------------------------------');
    writeln('|  Код |   Наименование   |Цена за ед.|Кол-во| Cумма |');
    writeln('------------------------------------------------------');
     for i := 1 to n do
      with a[i] do
      begin
       sum := kvo * cze;
       writeln('| ',kod:4,' |  ',nmn:15,' |  ',cze:8,' | ',kvo:4,' | ',sum:5,' |'); 
       writeln('------------------------------------------------------');
       end;
      end.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
01.03.2020, 21:04
Ответы с готовыми решениями:

Подскажите пожалуйста как сделать сортировку по возрастанию с четными номерами,а не с элементами
Подскажите пожалуйста как сделать сортировку по возрастанию с четными номерами,а не с элементами.. readln(n); until n in ; ...

Сделать сортировку списка по возрастанию
сделать сортировку списка по возрастанию.

Как сделать сортировку изображений по возрастанию?
Вот рабочий код вывода изображений постранично вроде как работает но одна проблема когда загрузил изображения их подписал 1.jpg, 2.jpg,...

3
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
02.03.2020, 11:42
Цитата Сообщение от Maximumminimum Посмотреть сообщение
сделать сортировку таблицы по возростанию
А по какому полю?

Добавлено через 7 минут
Например по названию товара, так же по любому другому.
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
uses crt;
type baza = record
            kod:string;
            nmn:string;
            cze:real;
            kvo:integer;
            sum:real;
            end;
var a:array[1..100] of baza;
    n,i,j:integer;
    x:baza;
begin
repeat
writeln('Введите количество людей n=');
readln(n);
until n in [1..100];
for i := 1 to n do
with a[i] do
 begin
  writeln('Введите код товара');
  readln(kod);
  writeln('Введите название');
  readln(nmn);
  writeln('Введите цену за ед.');
  readln(cze);
  writeln('Введите количество');
  readln(kvo);
  sum:=kvo*cze;
 end;
 clrscr;
 writeln('---------------------------------------------------------');
 writeln('|  Код |   Наименование   |Цена за ед.|Кол-во|   Cумма  |');
 writeln('---------------------------------------------------------');
 for i := 1 to n do
 with a[i] do
  begin
   writeln('| ',kod:4,' |  ',nmn:15,' |  ',cze:8:2,' | ',kvo:4,' | ',sum:8:2,' |');
   writeln('---------------------------------------------------------');
  end;
 write('Нажмите Enter');
 readln;
 clrscr;
 for i:=1 to n-1 do
 for j:=i+1 to n do
 if a[i].nmn>a[j].nmn then
  begin
   x:=a[i];
   a[i]:=a[j];
   a[j]:=x;
  end;
 writeln('---------------------------------------------------------');
 writeln('|  Код |   Наименование   |Цена за ед.|Кол-во|   Cумма  |');
 writeln('---------------------------------------------------------');
 for i := 1 to n do
 with a[i] do
  begin
   writeln('| ',kod:4,' |  ',nmn:15,' |  ',cze:8:2,' | ',kvo:4,' | ',sum:8:2,' |');
   writeln('---------------------------------------------------------');
  end;
end.
0
0 / 0 / 0
Регистрация: 01.03.2020
Сообщений: 20
02.03.2020, 22:51  [ТС]
выдает такой ответ
f
a
b
У меня эта проблема со всеми сортировками в этой программе,2/3 столбцов сортирует правильно, 3-й нет
0
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
03.03.2020, 06:46
Все нормально сортирует, первая картинка ввод данных, вторая-сортировка.
Миниатюры
Сделать сортировку таблицы по возрастанию   Сделать сортировку таблицы по возрастанию  
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
03.03.2020, 06:46
Помогаю со студенческими работами здесь

Сделать сортировку строк по сумме элементов по возрастанию
void ryd(int**a,int n1,int m1) { cout<<"Сумма парних елементiв"<<endl; int sum=0; int i,j; for(i=0;i<n1;i++) { ...

Сделать сортировку главной диагонали по возрастанию по данной задаче
Сделать сортировку главной диагонали по возростанию по данной задаче procedure TForm1.Button1Click(Sender: TObject); var a:array of...

Как сделать сортировку по убыванию/возрастанию массива объектов?
Как сделать сортировку по убыванию/возрастанию массива объектов? Так? или не так? //убывание public int CompareTo(Object...

Макрос. Как сделать сортировку по возрастанию всех столбцов на листе согласно критериям
Здравствуйте!!! Кому не сложно и есть время, помогите!!!! Есть в книге 1 на листе 1 заполненные столбцы, как сделать сортировку всех...

Как сделать сортировку таблицы при клике на заголовок
<?php include("db_connect.php"); header('Content-type: text/html; charset=utf-8'); if (isset($_POST)) { $sql =...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это дополнительная запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая. . .
[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 Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages
DevAlt 07.03.2026
Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F#
DevAlt 06.03.2026
В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru