Код на создание файлов и редактирование строк!

12.11.2015, 19:08. Показов 796. Ответов 0

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

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

В файле только строчные и прописные английские буквы, могут быть пробелы и знаки препинания. В второй файл я должна вывести каждую строчку которая отсортирована в алфавитном порядке и записана прописными буквами.
Например в первом файле одна и строчек :sCDK
в второй она введется: CDKS
Мне нужно через процедуры и функции.

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

Комментарий модератора

Программа загружена на форум. Вложение удалено.

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
type
  mas = array['A'..'Z'] of integer;
 
procedure strtomas(s: string; var a: mas);
var
  i: integer; c: char;
begin
  for c := 'A' to 'Z' do a[c] := 0;
  for i := 1 to length(s) do 
  begin
    if s[i] in ['a'..'z', 'A'..'Z'] then begin
      inc(a[Upcase(s[i])]);
    end;
  end;
end;
 
procedure FiletoFile(var f1, f2: text);
var
  s: string;
  a: mas;
begin
  reset(f1);
  rewrite(f2);
  while not eof(f1) do 
  begin
    readln(f1, s);
    if s <> '' then begin
      strtomas(s, a);
      writeln(f2, Alg(a));
    end
    else writeln(f2);
  end;
  Close(f1);
  Close(f2);
end;
 
var
  f1, f2: text;
  inputname, outputname: string;
 
begin
  writeln('Введите имя исходного файла');
  readln(inputname);
  if fileexists(inputname) then begin
    assign(f1, inputname);
    writeln('Имя результирующего файла');
    readln(outputname);
    assign(f2, outputname);
    filetofile(f1, f2);
  end
  else writeln('Файл не существует');
end.

cpp_developer

Эксперт

20123 / 5690 / 1417

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

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

Блог

12.11.2015, 19:08

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

bash-скрипт, поиск, создание, редактирование файлов
Доброго времени суток. Задание: в каталоге, например, home/folder1 найти пустые файлы. Создать в домашнем каталоге одноименные файлы и...

Создание файлов и папок: почему заданный код не создаёт папки?
Есть код: #include <fstream> using namespace std; int main() { ofstream out1("E:\\folder\\file.txt");// Не работает ...

Код склеивания строк, нужно поправить код соединения строк с запятыми для Excel
Есть красивый код но в нем учитывается и пустые строки для соединения и получается не красиво соединение с двумя запятыми как не...

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

raxper

Эксперт

30234 / 6612 / 1498

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

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

Блог

12.11.2015, 19:08

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

Проверка существования файлов, создание файлов и вывод содержимого файлов на принтер
Создать BAT-файл который поддерживает создание файлов проверку их и вывод на принтер. Как это реализовать?? Нужен текст файла!! ...

Редактирование файлов
Доброго времени суток! Очень нужна ваша помощь. :wall: Кто может помочь? Нужно получить: нажав на Button1 в программу подгружаются...

Редактирование файлов
Всем привет! Вообщем ребят, прошу вас помочь мне разобраться с данными файлами, а точнее с их расширениями. Я скачал чит, распаковал через...

Редактирование файлов
Здравствуйте) Уж простите, что так с файлами задалбываю, но решил понять эту тему хорошенько) Сейчас хочу задать чисто теоретический...

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

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

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

Новые блоги и статьи Все статьи Все блоги /
Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git
1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .

Наверх