Методы сортировки

[aHristovsky]

Помогите, пожалуйста, с написанием программ.

[ZX Spectrum-128]

А с чем помочь-то?

[aHristovsky]

Нужно написать программы на Паскале.

[type_Oleg]

aHristovsky, помочь или написать за вас ?
Если помочь - начинайте, поможем.
Если за вас - в раздел фриланс.
Вы даже не сформулировали точно, что и как именно сделать. Похоже, здесь надо использовать записи (record). Слышали о таких ?

[aHristovsky]

Вот есть код с простым включением:

program sort;
var
  x: array [1..12] of integer;
  l, i, j: integer;
begin
  { Вывод на экран исходного массива X }
  for i := l to 12 do 
  begin
    Write('Введите элемент ' + IntToStr(i) + ': ');
    ReadLn(x[i]);
  end;
  { Вывод на экран исходного массива х }
  for i := 1 to 12 do Write(x[i]:5); 
  WriteLn;
  for i := 2 to 12 do
  begin
    j := i - 1;
    l := x[i];
    while (j > 0) and (l < x[j]) do 
    begin
      {Перестановка x[j] и x[j+l]}
      x[j + 1] := x[j]; 
      j := j - 1; 
    end; 
    x[j + 1] := l
  end;
  { Вывод на экран отсортированного массива}
  for i := 1 to 12 do Write(x[i]:5);
  WriteLn
end.

Есть код выбором по-возрастанию:

uses crt;
const n=15;
type Tmas=array [1..n]of integer;
procedure Sort(var v:Tmas);
var i,j,nmin,buf:integer;
begin
for i:=1 to n-1 do
 begin
  nmin:=i;
  for j:=i+1 to n do
  if abs(v[j])<abs(v[nmin]) then nmin:=j;
  buf:=v[i];
  v[i]:=v[nmin];
  v[nmin]:=buf;
 end;
end;
var a:Tmas;
    i:integer;
Begin
clrscr;
randomize;
writeln('Исходный масив:');
for i:=1 to n do
 begin
  a[i]:=random(50)-25;
  write(a[i]:4);
 end;
writeln;
writeln;
Sort(a);
writeln('Упорядоченный массив: ');
for i:=1 to n do
write(a[i]:4);
readln
end.

Но всё это нужно изменить под мою задачу..не могу понять как...

[ZX Spectrum-128]

Как вам уже советовали, опишите структуру данных под вашу задачу. Создайте массив записей, а потом видоизменяйте найденное под ваши нужды.

[aHristovsky]

Я не понял... А пример можно?

[type_Oleg]

Этот пример для простого случая - если б у вас была таблица с одним столбцом, а в нем - целые числа.
Собственно сами алгоритмы сортировки можно взять за основу.
Но вам надо использовать record с 5-ю полями ( элементами).
Только надо определиться с типами полей " дата вызова", " дата посещения ". Это зависит от того, какой Паскаль.
И " сложность ремонта " - это перечислимый тип или тип строка ( string)?

PS Посмотрите примеры на форуме. В поиске - записи Паскаль

[ZX Spectrum-128]

Const
  N=20;
Type 
  Record=zakaz
    N_zakaza:integer;
    Data_vyzova:string[10];
    Fio:string[128];
    Data_pos:string[10];
    Slozhnost:integer;
  End;
Var
   A:array [1..n] of zakaz;

Что-то типа такого.

[type_Oleg]

ZX Spectrum-128, очепятка, надо наоборот

Type  zakaz=Record

И даты - string же надо как-то дешифровывать. Может быть, у ТС можно что-то вроде TDateTime ?