Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 21, средняя оценка - 4.95
onangel
0 / 0 / 0
Регистрация: 21.11.2009
Сообщений: 7
#1

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

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

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

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

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

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

Редактирование текстового файла - Pascal
Народ мне надо сделать чтобы паскаль открывал текстовый файл который в последствии можно изменять, я знаю про процедуру rewrite но она...

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

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

6
кот Бегемот
Платежеспособный зверь
8207 / 3778 / 691
Регистрация: 28.10.2009
Сообщений: 9,636
28.11.2009, 16:05 #2
Я такой тупой, что мне надо всё подробно объяснять:
надо 2 сортировки?
а) по алфавиту б)по последнему слову
а что такое "по последнему слову строки"?
Или это одна сортировка по алфавиту последнего слова строки?
0
Puporev
Модератор
52422 / 40269 / 13600
Регистрация: 18.05.2008
Сообщений: 93,096
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
кот Бегемот
Платежеспособный зверь
8207 / 3778 / 691
Регистрация: 28.10.2009
Сообщений: 9,636
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
Задача разработать программу печать текстового файла с размещением текста по 64 символа в строку с перенесом в месте разрыва слова....

Организация перезаписи текстового файла - Pascal
сложненькая задача помогите ришить. Организация перезаписи текстового файла. Составьте список группы спортсменов, участвовавших в...

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

организовать создание текстового файла - Pascal
организовать создание текстового файла. Подсчитать в текстовом файле число непустых строк, в которых символы упорядочены по возрастанию.


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

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

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