Сформировать на основе внешнего текстового файла Т1 файл Т2, разбивая Т1 на строки - Free Pascal
Формулировка задачи:
.Разработать программу, которая формирует на основе внешнего текстового файла Т1 файл Т2, разбивая Т1 на строки так, чтобы каждая строка оканчивалась либо точкой с запятой, либо содержала 30 любых литер, кроме точки с запятой. В качестве Т1 можно использовать файл с исходным текстом разработанной программы
Обрезает последний символ строки
Листинг программы
- var
- s:string;
- i,j,k:integer;
- t:text;
- a:array[1..100] of string;
- begin
- j:=1;
- assign(t,'d:/T1.txt');
- reset(t);
- readln(t,s);
- close(t);
- For i:=1 to length(s) do begin
- if (s[i]=';') or (length(a[j])>30) then j:=j+1 else
- a[j]:=a[j]+s[i];
- end;
- assign(t,'d:/T2.txt');
- rewrite(t);
- For k:=1 to j do
- writeln(t,a[k]);
- close(t);
- end.
Решение задачи: «Сформировать на основе внешнего текстового файла Т1 файл Т2, разбивая Т1 на строки»
textual
Листинг программы
- var
- s:string;
- i,j,k:integer;
- t:text;
- a:array[1..100] of string;
- begin
- j:=1;
- assign(t,'d:/T1.txt');
- reset(t);
- readln(t,s);
- close(t);
- For i:=1 to length(s) do begin
- if (s[i]=';') or (length(a[j])>30) then
- begin
- a[j]:=a[j]+s[i];
- j:=j+1;
- end
- else
- a[j]:=a[j]+s[i];
- end;
- assign(t,'d:/T2.txt');
- rewrite(t);
- For k:=1 to j do
- writeln(t,a[k]);
- close(t);
- end.
Объяснение кода листинга программы
- Объявлены переменные: s, i, j, k, t, a.
- Переменная j инициализируется значением 1.
- Открывается файл t с помощью функции assign, путь к файлу указывается в кавычках.
- Файл t открывается с помощью функции reset.
- Считывается первая строка из файла t в переменную s с помощью функции readln.
- Файл t закрывается с помощью функции close.
- Запускается цикл for для обработки каждой символа строки s.
- Если символ является точкой с запятой или длина строки в переменной a[j] превышает 30 символов, то выполняется блок кода:
- к переменной a[j] добавляется текущий символ.
- значение переменной j увеличивается на 1.
- Если текущий символ не является точкой с запятой или не является последним символом строки, то к переменной a[j] добавляется текущий символ.
- Завершается цикл for для обработки каждой строки файла t.
- Переменная t перезаписывается с помощью функции rewrite, путь к файлу указывается в кавычках.
- Запускается цикл for для записи каждой строки из массива a в файл t.
- Закрывается файл t с помощью функции close.
- Код завершается.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д