Сортировка по алфавиту

27.05.2012, 17:15. Показов 1958. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Данная программа сортирует слова из одного файла (F1) в (F3) по алфавиту, а как сделать так, чтобы программа читала слова еще и с третьего файла (F2) и записала общий результат сортировки в файл (F3)? Помогите пожалуйста)

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
var
f1,f3:text;
a:array[1..100]of string;
b,t:string;
k,i,j:integer;
c:set of char;
begin
c:=['.',',',';',':','(',')','-'];
assign(f1,'C:\Users\арсенал\Desktop\f1.txt');
assign(f3,'C:\Users\арсенал\Desktop\f3.txt');
reset(f1);
rewrite(f3);
while not eof(f1) do
begin
readln(f1,b);
k:=0;
b:=' '+b;
for i:=1 to length(b) do
if b[i]=' 'then inc(k)
else if not (b[i] in c) then a[k]:=a[k]+b[i];
for i:=1 to k do
for j:=2 to k do
if a[j]<a[j-1]then begin
t:=a[j];
a[j]:=a[j-1];
a[j-1]:=t;
end;
for i:=1 to k do
write(f3,a[i],' ');
writeln(f3);
for i:=1 to k do
a[i]:='';
end;
close(f1);
close(f3);
end.

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

27.05.2012, 17:15

Ответы с готовыми решениями:

Сортировка по алфавиту
Здравствуйте, у меня возникла проблема при сортировке букв в строке по алфавиту. Я использовал пузырьковую систему сортировки. Если вводить...

Сортировка слов по алфавиту
задано слово. за основу алфавита взять буквы из этого слова. пользователь вводит слова и надо их отсортировать по заданному новому...

Сортировка по алфавиту.
нужно отсортировать список по алфавиту, подскажите пожалуйста как это сделать?? а то программа вроде работает, а сортировка нет(( ...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

27.05.2012, 17:15

Помогаю со студенческими работами здесь

сортировка по алфавиту
const posl: set of char=; var s,z:string;s1:array of string; i,k,x,j:integer; begin write('ўўҐ¤ЁвҐ бва®Єг ='); readln(s); ...

Строка (сортировка по алфавиту)
Задана строка, состоящая из русских слов, разделенных пробелами. Вывести на экран слова по алфавиту.

Сортировка фамилий по алфавиту
Надо отсортировать двумерный массив, без процедур, по алфавиту по каждой букве. Массив: Smirnov 1994 Ivanov ...

Массивы. Сортировка по алфавиту.
Отсортировать массив оценок по алфавиту, три предмета: химия, физика, алгебра. Заранее спасибо.

Сортировка по алфавиту с пробелами
Дана строка, состоящая из латинских слов, разделенных пробелами. Вывести строку, содержащую эти же слова,(разделенные одним пробелом, но...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .

Наверх