Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.90/20: Рейтинг темы: голосов - 20, средняя оценка - 4.90
onangel
0 / 0 / 0
Регистрация: 21.11.2009
Сообщений: 7
1

сортировка текстового файла

28.11.2009, 15:40. Просмотров 3698. Ответов 6
Метки нет (Все метки)

Ребят, помогите составить процедуру сортировки строк текстового файла по последнему слову строки и в алфавитном порядке. Заранее большое спасибо.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.11.2009, 15:40
Ответы с готовыми решениями:

Сортировка и разделение текстового файла на страницы
Текст задачи: Используя готовую процедуру sort_file, составить программу...

Сортировка текстового файла внешней сортировкой
В текстовом файле задана целочисленная матрица размера n´n. Отсортировать файл...

Внешняя сортировка бинарного файла (чтение после конца файла невозможно)
Помогите отладить программу, не вижу, что здесь можно сделать. Похоже, курсор...

Печать текстового файла
Задача разработать программу печать текстового файла с размещением текста по...

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

6
кот Бегемот
Платежеспособный зверь
8465 / 3911 / 1523
Регистрация: 28.10.2009
Сообщений: 10,141
28.11.2009, 16:05 2
Я такой тупой, что мне надо всё подробно объяснять:
надо 2 сортировки?
а) по алфавиту б)по последнему слову
а что такое "по последнему слову строки"?
Или это одна сортировка по алфавиту последнего слова строки?
0
Puporev
Модератор
54719 / 42124 / 29087
Регистрация: 18.05.2008
Сообщений: 99,437
28.11.2009, 16:38 3
Я бы вот так по простому решил, если не заморачиваться что такое слово. Все что между пробелами, слово.
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
uses crt;
type zap=record//создаем тип запись с полями
         st:string;//строка
         ps:string;//ее последнее слово
         end;
var f,g:text;
    s,s1:string;
    m:array[1..100] of zap;//массив строк
    x:zap;
    name:string;
    n,i,j:integer;
begin
clrscr;
write('Имя файла для сортировки: ');
readln(name);
name:=name+'.txt';
assign(f,name);
reset(f);
write('Имя нового файла: ');
readln(name);
name:=name+'.txt';
assign(g,name);
rewrite(g);
n:=0;
while not eof(f) do
 begin
  n:=n+1;
  readln(f,s);
  m[n].st:=s;//читаем файл построчно в массив
 end;
close(f);
for i:=1 to n do
 begin
  s:='';
  while m[i].st[length(m[i].st)]=' 'do//удаляем пробелы в конце строки
  delete(m[i].st,length(m[i].st),1);
  j:=length(m[i].st);//встаем в конец строки
  while m[i].st[j]<>' ' do//пока не пробел
   begin
    s:=m[i].st[j]+s;//составляем последнее слово
    j:=j-1;
   end;
  m[i].ps:=s;//заносим в поле записи
 end;
for i:=1 to n-1 do
for j:=i+1 to n do
if m[i].ps>m[j].ps then//сортируем по возрастанию(алфавиту) последнего слова
 begin
  x:=m[i];
  m[i]:=m[j];
  m[j]:=x;
 end;
for i:=1 to n do
writeln(g,m[i].st);//пишем в новый файл(можно переделать старый, но проверить нельзя будет)
close(g);
write('Файл переписан!');
readln
end.
Добавлено через 55 секунд
alexevt, Я сделал по возрастанию последнего слова.
2
кот Бегемот
28.11.2009, 16:44
  #4

Не по теме:

Хоть бы думали чуть-чуть когда условия пишут. Угадывай, что имелось ввиду

0
onangel
0 / 0 / 0
Регистрация: 21.11.2009
Сообщений: 7
28.11.2009, 16:57  [ТС] 5
это одна сортировка, сначала нужно найти последнее слово в строке, а потом сортировать эти строки так, чтобы строки были расположены в алфавитном порядке исходя от последнего слова строки.
0
кот Бегемот
Платежеспособный зверь
8465 / 3911 / 1523
Регистрация: 28.10.2009
Сообщений: 10,141
28.11.2009, 17:10 6
Тогда тебе всё сделали. Читай программу от Puporev
0
onangel
0 / 0 / 0
Регистрация: 21.11.2009
Сообщений: 7
28.11.2009, 17:19  [ТС] 7
ну да, только разберусь для начала, ) всё равно спасибо )
0
28.11.2009, 17:19
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.11.2009, 17:19

Зашифровка текстового файла
Товарищи, нужно написать простой код, желательно на pascal, с помощью которого...

программа с текстового файла
Помогите с задачами. 1.Дан текстовый файл, содержащий данные о студентах:...

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru