Сортировка по убыванию из файла с выводом в другой файл

@RainbowF · Регистрация: 26.09.2018

Требуется написать программу, с использованием 2 мерного массива, без процедур. Исходные данные: Дан список владельцев телефонов (10 человек) в виде ФАМИЛИЯ(15симв) ТЕЛЕФОН(9симв)
Данные в одной строке отделяются друг от друга пробелами.
Отсортировать этот список в порядке убывания номеров телефонов , используя метод вставок.

@bormant · 26.09.2018, 15:29

Pascal

const nmax=10; KeyBeg=16; KeyEnd=24;
type TLine = array [0..25] of Char;
var
  a: array [1..nmax] of TLine;
  t: TLine;
  n, i, j, k, p: Integer;
begin
  Assign(input,'input.txt'); Reset(input);
  Assign(output,'output.txt'); Rewrite(output);
  {n:=0;}
  while (n<nmax) and not EoF do begin
    Inc(n); ReadLn(a[n]);
  end;
  for i:=2 to n do begin
    t:=a[i]; j:=i-1;
    while j>0 do begin
      for k:=KeyBeg to KeyEnd do begin
        p:=Ord(t[k])-Ord(a[j,k]);
        if p<>0 then Break;
      end;
      if p>0 then begin
        a[j+1]:=a[j]; Dec(j);
      end else Break;
    end;
    a[j+1]:=t;
  end;
  for i:=1 to n do WriteLn(a[i]);
  Close(input); Close(output);
end.

@RainbowF 0 / 0 / 0 Регистрация: 26.09.2018 Сообщений: 1
		1
	Сортировка по убыванию из файла с выводом в другой файл 26.09.2018, 11:18. Показов 1173. Ответов 1 Метки нет (Все метки) Требуется написать программу, с использованием 2 мерного массива, без процедур. Исходные данные: Дан список владельцев телефонов (10 человек) в виде ФАМИЛИЯ(15симв) ТЕЛЕФОН(9симв) Данные в одной строке отделяются друг от друга пробелами. Отсортировать этот список в порядке убывания номеров телефонов , используя метод вставок. 0

Опции темы