Работа с масивом записей

@ALEX-17 · Регистрация: 19.06.2020

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

Создать массив записей, который имеет следующую структуру:

Вид транспорту
Район мiсце-востi	Протя- жнiсть	Пропускна спроможнiсть	Залiзниця		Автомобiльна дорога		Авiатранспорт
			Тип потягу	Тип колiï	Вид транспорту	Тип покриття	Тип лiтакiв	Тип аеро-дрому

Определить суммарную протяженность железной дороги и автодороги в заданной местности. Вывести список дорог с пропускной способностью более заданной. Определить, могут использоваться самолеты заданного типа в заданной местности.

@ALEX-17 · 17.11.2021, 11:33 **[ТС]**

Вот что сам смог сделать подскажите что дальше

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
program lab4;
type Info_zaliznicya = record
  Tip_potyag:string;
  Tip_Koliya:string;
end;
type Info_Avto_doroga = record
  Vid_transport:string;
  Tip_pokrittya:string;
end;
type Info_Aviatransport = record
  Tip_litak:string;
  Tip_aerodrom:string;
end;
type Info_transport = record
  Rayon:string;
  Protyaznist:integer;
  Propusk_spomoznist:double;
  Zaliznicya:Info_zaliznicya;
  Avto_doroga:Info_Avto_doroga;
  Aviatransport:Info_Aviatransport;
end;
 
var transport:array [1..3] of Info_transport; i,k:integer; r:double; t:string;
begin
  writeln('Заповніть таблицю');
  for i:=1 to 2 do
   begin
     writeln('Введіть район місцевості');
     readln(transport[i].Rayon);
     writeln('Введіть протяжність');
     readln(transport[i].Protyaznist);
     writeln('Введіть пропускну спроможність');
     readln(transport[i].Propusk_spomoznist);
     writeln('Введіть тип потягу');
     readln(transport[i].Zaliznicya.Tip_potyag);
     writeln('Введіть тип колії');
     readln(transport[i].Zaliznicya.Tip_Koliya);
     writeln('Введіть вид транспорту');
     readln(transport[i].Avto_doroga.Vid_transport);
     writeln('Введіть тип покриття');
     readln(transport[i].Avto_doroga.Tip_pokrittya);
     writeln('Введіть тип літаків');
     readln(transport[i].Aviatransport.Tip_litak);
     writeln('Введіть тип аеродрому');
     readln(transport[i].Aviatransport.Tip_aerodrom);
   end;
   writeln('Отримали таблицю:');
   writeln('Вид транспорту');
   writeln('|Район місцевості|Протяжність|Пропускна спроможність|Залізниця|Автомобільна дорога|Авіатранспорт|');
   writeln('| | | |Тип потягу|Тип колії|Вид транспорту|Тип покриття|Тип літаків|Тип аеродрому|');
   for i:=1 to 2 do
   begin
   writeln('|',transport[i].Rayon,'|',transport[i].Protyaznist,'|',transport[i].Propusk_spomoznist,'|',transport[i].Zaliznicya.Tip_potyag,'|',
   transport[i].Zaliznicya.Tip_Koliya,'|',transport[i].Avto_doroga.Vid_transport,'|',transport[i].Avto_doroga.Tip_pokrittya,'|',transport[i].Aviatransport.Tip_litak,'|',transport[i].Aviatransport.Tip_aerodrom,'|');
   end;
   writeln('Введіть район місцевості');
   readln(k);
   for i:=1 to 2 do
   begin
   if k=transport[i].Rayon then writeln('Сумарна протяжність доріг в заданій місцевості: ',transport[i].Protyaznist);
   end;
   writeln('Введіть пропускну спроможність');
   readln(r);
   writeln('Список доріг з пропускною спроможністю більше задоної: ');
   for i:=1 to 2 do
   begin
      if r<transport[i].Propusk_spomoznist then
        writeln('|',transport[i].Rayon,'|',transport[i].Protyaznist,'|',transport[i].Propusk_spomoznist,'|',transport[i].Zaliznicya.Tip_potyag,'|',
        transport[i].Zaliznicya.Tip_Koliya,'|',transport[i].Avto_doroga.Vid_transport,'|',transport[i].Avto_doroga.Tip_pokrittya,'|',
        transport[i].Aviatransport.Tip_litak,'|',transport[i].Aviatransport.Tip_aerodrom,'|');
   end;
   writeln('Введіть тип літаків');
   readln(t);
   writeln('Введіть район місцевості');
   readln(k);
   
end.

Новые блоги и статьи Все статьи Все блоги /
1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .