0 / 0 / 0
Регистрация: 26.09.2018
Сообщений: 1
1

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

26.09.2018, 11:18. Показов 1173. Ответов 1
Метки нет (Все метки)

Требуется написать программу, с использованием 2 мерного массива, без процедур. Исходные данные: Дан список владельцев телефонов (10 человек) в виде ФАМИЛИЯ(15симв) ТЕЛЕФОН(9симв)
Данные в одной строке отделяются друг от друга пробелами.
Отсортировать этот список в порядке убывания номеров телефонов , используя метод вставок.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.09.2018, 11:18
Ответы с готовыми решениями:

Не работает сортировка односвязного списка с считыванием из файла и выводом в файл
Написать программу, которая считывает из файла разделенные пробелом числа, игнорируя другие...

Сортировка элементов файла с записью в другой файл.
Есть файл с целыми числами. Нужно отсортировать значения (не используя массив) в порядке убывания и...

Записать в файл массив действительных чисел по убыванию, а в другой файл - по возрастанию
Составить программу записи в файл F1 массива 40 действительных чисел по убыванию, а в файл F2 -...

Сортировка по убыванию. Чтение из файла
Помогите, пожалуйста, отсортировать содержимое файла.. Т.е. Имеется файл в 10 строк...

1
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7516 / 4381 / 2780
Регистрация: 22.11.2013
Сообщений: 12,541
Записей в блоге: 1
26.09.2018, 15:29 2
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
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.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.09.2018, 15:29
Помогаю со студенческими работами здесь

Сортировка файла по убыванию методам пузырька
Может кто-нибудь помочь написать программу для сортировки файла по убыванию методам пузырька

Сортировка строк файла по убыванию популярности
Доброго времени суток. Дан файл, где в каждой строке пароль и его популярность (пример: 12321 ...

Отсортировать по убыванию числа, содержащиеся в файле, и записать их в другой файл
В Файле А есть 10 чисел, отсортировать их по убыванию и записать в файл Б

Массив с выводом колличества четных и нечетных чисел их сумм а также записью в один текстовый файл и перезаписью в другой
Массив с выводом колличества четных и нечетных чисел их сумм а также записью в один текстовый файл...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru