Выполнить сортировку элементов записи по одному из полей, используя один из изученных алгоритмов сортировки

@maksssutka · Регистрация: 22.09.2022

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

Описать структуру с именем AEROFLOT, содержащую следующие поля:
∙ название пункта назначения;
∙ номер рейса;
∙ тип самолета;
сортировка по номеру рейса

@JuriiMW · 23.11.2022, 12:11

Pascal

type aeroflot=class пункт,типСамолёта:string;рейс:integer;public constructor(
пункт:string;рейс:integer;типСамолёта:string);begin self.пункт:=пункт;self.
типСамолёта:=типСамолёта;self.рейс:=рейс end;function ToString: string;
override;begin result:=$'{пункт,-20} - {рейс,5} - {типСамолёта}' end;end;
 
begin
  var a:array of aeroflot;
  setlength(a,5);
  for var n:=1 to 5 do a[pred(n)]:=new aeroflot(readlnstring(
  $'название {n} пункта назначения:'),readlninteger($'номер {n} рейса:'),
  readlnstring($'тип {n} самолёта:'));
  
  'список:'.Println;a.PrintLines;
  'отсортированный список:'.println;a.OrderBy(v->v.рейс).PrintLines;
end.

@maksssutka 0 / 0 / 0 Регистрация: 22.09.2022 Сообщений: 57
		1
	Выполнить сортировку элементов записи по одному из полей, используя один из изученных алгоритмов сортировки 23.11.2022, 11:25. Показов 306. Ответов 1 Метки нет (Все метки) Описать структуру с именем AEROFLOT, содержащую следующие поля: ∙ название пункта назначения; ∙ номер рейса; ∙ тип самолета; сортировка по номеру рейса 0

	23.11.2022, 12:11