Сортировка во множествах

@frostbite101 · Регистрация: 29.02.2020

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

type город = (a, b, c, d, e, f, h); Города = set of город; Рейсы = array[ город ] of города;
Составить программу, которая определяет множество городов, в которые можно попасть автобусом за один рейс или через другие города из города h.
Сделал заполнение дорог, а вот с процедурой и выводом беда...

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
type
  town=(a,b,c,d,e,f,g,h);
  towns=set of town;
  trips=array [town] of towns;
  town2 = array [1..8] of town;
  
 
procedure CanReach(r: trips; n: town; var k: towns);
var i, j: town;
begin
  k:=r[n];
  for i:=succ(a) to pred(h) do
    for j:=a to h do
      if j in k then k:=k+r[j];
end;
 
var
town1:town;
globaltowns:towns;
trips1:trips;
i,j:town;
ran:integer;
town22:town2;
 
begin
  
 randomize;
   
 
 
 
 for i:=a to h do begin
   for j:=a to b do begin 
    
    
    ran := random(10);
    
    case ran of 
    1:Include(trips1[i],j);
    2:Include(trips1[i],j) ;
    3: Include(trips1[i],j);
    4:  Include(trips1[i],j);
    5:  Include(trips1[i],j);
    6:  Include(trips1[i],j);
    7:  Include(trips1[i],j);
    8: Include(trips1[i],j);
    
    
    
    end;
    end;
    end;
     
   
   
   CanReach(trips1,h,globaltowns);
   writeln();
   
  
end.

@JuriiMW · 29.06.2020, 08:42

Pascal
38
39
40
41
42
43
44
45
46
47
48
49
50
    case ran of 
    1:Include(trips1[i],j);
    2:Include(trips1[i],j) ;
    3: Include(trips1[i],j);
    4:  Include(trips1[i],j);
    5:  Include(trips1[i],j);
    6:  Include(trips1[i],j);
    7:  Include(trips1[i],j);
    8: Include(trips1[i],j);
    
    
    
    end;

Что это? И зачем столько раз повторять один и тот-же код?
А вывести ваш массив множеств можно одной командой: trips1.Print;

@canadamoscow · 29.06.2020, 16:50

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
type
  town = (a,b,c,d,e,f,g,h);
  towns = set of town;
  trips = array [town] of towns;
  town2 = array [0..8] of towns; //пересадки
 
function TownSucc(t: town; i: integer): town :=
  if i = 0 then t else TownSucc(succ(t), i-1);
 
begin
 var trips1: trips; 
 loop 25 do trips1[TownSucc(a, Random(8))] += [TownSucc(a, Random(8))]; //генерируем рейсы для каждого города
 for var z := 0 to 7 do trips1[TownSucc(a, z)] -= [TownSucc(a, z)]; //удаляем рейсы сам в себя (из а -> а и т.д.)
 'Существующие рейсы:'.Println;
 trips1.Numerate.Select(t -> $'{t[0]}. {TownSucc(a, t[0]-1)} -> {t[1]}').PrintLines; // вывод всех рейсов
 var per: town2; // per[0] -  рейсы без пересадок, per[1] - с одной пересадкой ...
 var x := 0; // количество пересадок
 per[x]:= trips1[h]; //в per[0] (0 пересадок) записать рейсы из города h
 repeat
   x += 1;  
   per[x] += per[x-1];
   forEach var z in per[x-1] do per[x] += trips1[z];   
   per[x] -= [h];
 until per[x] = per[x-1];
 for var z := x downto 1 do per[z] -= per[z-1]; //удалить рейсы ранее имеющиеся
 'Из города h можно доехать до '.Println;
 for var z := 0 to x-1 do $'кол-во рейсов {z+1} (пересадок {z}): {per[z]}'.PrintLn;
end.

@canadamoscow · 29.06.2020, 23: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
type
  town = (a,b,c,d,e,f,g,h);
  towns = set of town;
  trips = array [town] of towns;  
begin
 var trips1: trips; 
 loop 25 do trips1[town(Random(8))] += [town(Random(8))]; //генерируем рейсы для каждого города
 for var z := 0 to 7 do trips1[town(z)] -= [Town(z)]; //удаляем рейсы сам в себя (из а -> а и т.д.)
 'Существующие рейсы:'.Println;
 trips1.Numerate.Select(t -> $'{t[0]}. {Town(t[0]-1)} -> {t[1]}').PrintLines; // вывод всех рейсов
 var per := new List<towns>; // per[0] -  рейсы без пересадок, per[1] - с одной пересадкой ...
 per.Add(trips1[h]); //в per[0] (0 пересадок) записать рейсы из города h
 var x := 0; // количество пересадок
 repeat
   x += 1;
   per.Add(per[x-1]); //добавить в список множество при x пересадок
   forEach var z in per[x-1] do per[x] += trips1[z];
   per[x] -= [h];
 until per[x] = per[x-1];
 for var z := x downto 1 do per[z] -= per[z-1]; //удалить рейсы ранее имеющиеся
 'Из города h можно доехать до '.Println;
 for var z := 0 to x-1 do $'кол-во рейсов {z+1} (пересадок {z}): {per[z]}'.PrintLn;
end.

Новые блоги и статьи Все статьи Все блоги /
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .
Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .