Сортировка одномерного массива

@mashka-promokashka · Регистрация: 18.03.2009

Студворк — интернет-сервис помощи студентам

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
program pr;
 
uses crt;
 
var i,f,k,p:integer;
Number:array[1..100] of integer;
Fam:array[1..15] of string;
DayIn:array[1..30] of integer;
DayOut:array[1..30] of integer;
Summ:array[1..10000] of integer;
ch:char;
 
begin
clrscr;
 
writeln('Vvedite kol-vo etagey gostinici');
readln(f);
writeln('Vvedite kol-vo nomerov na etage');
readln(k);
writeln('Vvedite stoimost progivaniya v sutki');
readln(p);
 
writeln('Vvedite dannie o prozhivayuschih, VIHOD - ESC:');
i:=0;
repeat
inc(i);
writeln('Vvedite nomer');
readln(Number[i]);
writeln('Vvedite familiyu');
readln(Fam[i]);
writeln('Vvedite den vezda');
readln(DayIn[i]);
writeln('Vvedite den diezda');
readln(DayOut[i]);
 
ch:=readkey;
until (ch=#27) or (i=f*k);
 
writeln('|Nomer|       Familiya|Vezd|Viezd|     Summa|');
writeln('_____________________________________________');
for i:=1 to f*k do
begin
Summ[i]:=(DayOut[i]+1-DayIn[i])*p;
 
if Number[i]<>0 then
begin
write('|',Number[i]:5,'|',Fam[i]:15,'|', DayIn[i]:4,'|');
write(DayOut[i]:5,'|', Summ[i]:10,'|');
writeln;
 
end;
end;
writeln('_____________________________________________');
 
repeat until Keypressed;
end.

Помогите пожалуйста упорядочить записи в таблице по убыванию суммы (Summ). Все пробовала,но не выходит ((((((((((

@Puporev · 13.05.2009, 13:45

А Вы не пробовали использовать массив записей? Зачем так много массивов, если все можно в одном, и сортировать легче. Или задание такое, чтоб без записей?

Добавлено через 58 секунд
Если согласны на записи, приведите полное условие задачи, помогу.

@mashka-promokashka · 13.05.2009, 13:47 **[ТС]**

Сообщение от Puporev

А Вы не пробовали использовать массив записей? Зачем так много массивов, если все можно в одном, и сортировать легче. Или задание такое, чтоб без записей?

Добавлено через 58 секунд
Если согласны на записи, приведите полное условие задачи, помогу.

Можно и с записями. Вот условие задачи:

Известна стоимость суточного проживания в каждом номере гостиницы из F этажей по K номеров на этаже. О проживающих известны следующие данные: гостиничный номер, фамилия, день въезда и день выезда.
Необходимо напечатать для клиентов счета в порядке возрастания дней их выезда с указанием фамилии, номера этажа, дней въезда и выезда и суммы денег за время проживания. (F и К заданы, нумерация гостиничных номеров сплошная, номер может быть занят или свободен, днями въезда и выезда считать числа месяца от 1 до 30.

Помогите пожалуйста

@mamedovvms · 13.05.2009, 14:14

если я не ошибаюсь то это делается так

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
for i:=1 to f*k-1 do
 begin
  sum1:=Sum[i];
  for j:=i+1 to f*k do
     if sum1<sum[j] then
   begin
     ii:=j;
     sum1:=sum[j];    
   end;
  per1:=sum[i];
  sum[i]:=sum[ii]1;
  sum[ii]:=per1;
 
  per1:=Number[i];
  Number[i]:=Number[ii];
  number[ii]:=per1;
 
  per1:=DayIn[i];
  DayIn[i]:=DayIn[ii];
  DayIn[ii]:=per1;
 
  per1:=DayOut[i];
  DayOut[i]:=DayOut[ii];
  DayOut[ii]:=per1;
 
 ch:=Fam[i];
 Fam[i]:=Fam[ii];
 Fam[ii]:=ch;
 end;

ch:char;
ii,per1,sum1,j:integer;

Добавлено через 1 минуту 4 секунды
если этот код подставить в ваши задачу то все должно работать, если что не так то пишите , может я где то что то пропустил или не досмотрел

@mashka-promokashka · 13.05.2009, 14:33 **[ТС]**

Подставляю этот код к своей программе, но выдает ошибку Error 26: Type mismatch

@mamedovvms · 13.05.2009, 14:38

в моем коде напиши вместо ch ch1 и тип напиши ch1:string;
это я не доглядел
просто ошибка несовпадения типов

@mashka-promokashka · 13.05.2009, 14:57 **[ТС]**

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
86
87
88
89
program pr;
 
uses crt;
 
var
i,f,k,p:integer;
Number:array[1..100] of integer;
Fam:array[1..15] of string;
DayIn:array[1..30] of integer;
DayOut:array[1..30] of integer;
Summ:array[1..10000] of integer;
ch:char;
ch1:string;
ii,per1,sum1,j:integer;
 
 
begin
clrscr;
 
 
 
writeln('Vvedite kol-vo etagey gostinici');
readln(f);
writeln('Vvedite kol-vo nomerov na etage');
readln(k);
writeln('Vvedite stoimost progivaniya v sutki');
readln(p);
 
writeln('Vvedite dannie o prozhivayuschih, VIHOD - ESC:');
i:=0;
repeat
inc(i);
writeln('Vvedite nomer');
readln(Number[i]);
writeln('Vvedite familiyu');
readln(Fam[i]);
writeln('Vvedite den vezda');
readln(DayIn[i]);
writeln('Vvedite den diezda');
readln(DayOut[i]);
 
ch:=readkey;
until (ch=#27) or (i=f*k);
 
writeln('|Nomer|       Familiya|Vezd|Viezd|     Summa|');
writeln('_____________________________________________');
 
for i:=1 to f*k do
begin
Summ[i]:=(DayOut[i]+1-DayIn[i])*p;
end;
 
for i:=1 to f*k-1 do
 begin
  sum1:=Summ[i];
  for j:=i+1 to f*k do
     if sum1<summ[j] then
   begin
     ii:=j;
     sum1:=summ[j];    
   end;
  per1:=summ[i];
  summ[i]:=summ[ii];
  summ[ii]:=per1;
 
  per1:=Number[i];
  Number[i]:=Number[ii];
  number[ii]:=per1;
 
  per1:=DayIn[i];
  DayIn[i]:=DayIn[ii];
  DayIn[ii]:=per1;
 
  per1:=DayOut[i];
  DayOut[i]:=DayOut[ii];
  DayOut[ii]:=per1;
 
 ch1:=Fam[i];
 Fam[i]:=Fam[ii];
 Fam[ii]:=ch1;
 
write('|',Number[i]:5,'|',Fam[i]:15,'|', DayIn[i]:4,'|');
write(DayOut[i]:5,'|', Summ[i]:10,'|');
 end;
 writeln('_____________________________________________');
 
 
repeat until Keypressed;
end.

Посмотрите пожалуйста правильно ли...все считается, но таблицей не выводится почему то ((((((((

@mamedovvms · 13.05.2009, 15:01

85 строку где написано

Pascal
1
writeln('_____________________________________________');

надо поставить перед

Pascal
1
end

который написан в 84 строке

@mashka-promokashka · 13.05.2009, 15:13 **[ТС]**

Спасибо, все работает))))

@Puporev · 13.05.2009, 15:32

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
uses crt;
type
Nomer=record{тип запись номер}
      num:word;{номер-число}
      stm:word;{стоимость в день}
      end;
Proz=record{тип запись проживающий}
     rom:Nomer;{номер с его данными}
     fam:string[20];{фамилия}
     d1,d2:1..30;{дни въезда и выезда}
     etz:byte;{этаж}
     sum:word;{сумма}
     end;
var
pr:array[1..1000] of Proz;{массив проживающих}
x:Proz;{переменная для сортировки записей}
zn:array[1..1000] of byte;{массив занят или нет номер}
f,k:byte;{количество этажей и номеров на этаже}
n,i,j,p:word;{счетчики и размеры массивов}
begin
clrscr;
randomize;
write('Введите количество этажей f=');
readln(f);
write('Введите количество номеров на этаже k=');
readln(k);
n:=f*k;{общее количество номеров}
for i:=1 to n do
zn[i]:=random(2);{случайно определяем занят номер или свободен}
p:=0;
for i:=1 to n do
if zn[i]=1 then{если 1, то свободен}
  begin
   p:=p+1;{считаем количество свободных номеров, куда поселим проживающих}
   pr[p].rom.num:=i;{запоминаем это число в запись-номер где жил проживающий}
  end;
writeln('Введите данные о ',p,' проживающих:');
for i:=1 to p do
 begin
  write('Фамилия: ');readln(pr[i].fam);
  write('День въезда: ');
  repeat
  readln(pr[i].d1);
  until pr[i].d1 in [1..30];
  write('День выезда: ');
  repeat
  readln(pr[i].d2);
  until (pr[i].d2>=pr[i].d1)and(pr[i].d2<=30);
  write('Стоимость проживания в день: ');
  readln(pr[i].rom.stm);
  pr[i].etz:=(pr[i].rom.num-1) div k+1;{вычисляем этаж, наприме номер=20, номеров на этаже 20, (20-1):20=1+1=2}
  pr[i].sum:=(pr[i].d2-pr[i].d1+1)*pr[i].rom.stm;{вычисляем сумму=кол. дней+1(день прибытия и убытия=2 дня)}
 end;
for i:=1 to k-1 do
for j:=i+1 to k do
if pr[i].d2>pr[j].d2 then{сортировка записей по возрастанию дня выезда}
 begin
  x:=pr[i];
  pr[i]:=pr[j];
  pr[j]:=x;
 end;
clrscr;
writeln('Счета клиентов в порядке возрастания дней отъезда:');
writeln('--------------------------------------------');
writeln('|  Фамилия  | Этаж | Въезд | Выезд | Сумма |');
writeln('--------------------------------------------');
for i:=1 to k do
   begin
    gotoXY(1,whereY);write('| ',pr[i].fam);
    gotoXY(13,whereY);write('| ',pr[i].etz);
    gotoXY(20,whereY);write('|  ',pr[i].d1);
    gotoXY(28,whereY);write('|  ',pr[i].d2);
    gotoXY(36,whereY);write('| ',pr[i].sum);
    gotoXY(44,whereY);write('|');
    writeln;
  end;
writeln('--------------------------------------------');
readln
end.

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	13.05.2009, 13:45
	А Вы не пробовали использовать массив записей? Зачем так много массивов, если все можно в одном, и сортировать легче. Или задание такое, чтоб без записей? Добавлено через 58 секунд Если согласны на записи, приведите полное условие задачи, помогу. 1

@mashka-promokashka 0 / 0 / 0 Регистрация: 18.03.2009 Сообщений: 8
	13.05.2009, 14:33 [ТС]
	Подставляю этот код к своей программе, но выдает ошибку Error 26: Type mismatch 0

@mamedovvms 2923 / 844 / 324 Регистрация: 30.04.2009 Сообщений: 2,633
	13.05.2009, 14:38
	в моем коде напиши вместо ch ch1 и тип напиши ch1:string; это я не доглядел просто ошибка несовпадения типов 0

@mashka-promokashka 0 / 0 / 0 Регистрация: 18.03.2009 Сообщений: 8
	13.05.2009, 15:13 [ТС]
	Спасибо, все работает)))) 0