Разработка альбома ключевых задач по теме «Текстовые файлы» средствами языка Pascal
Курсовая работа, 30 Мая 2015, автор: пользователь скрыл имя
Краткое описание
В язык Паскаль выделяются данные файлового типа, которые служат для работы с информацией, расположенной на внешних устройствах. Эта информация формируется во внешней памяти компьютера, образуя некоторую область, называемую файлом. Файлы имеют имя и представляют собой совокупность однотипных элементов. Обычно они применяются, в случаях большого объема данных, долгосрочного хранения, либо необходимости предоставления доступа нескольким приложениям к одной и той же информации. Текстовые файлы предназначены для хранения текстовой информации. Именно в таких файлах хранятся, например, исходные тексты программ.
Содержание
Введение 3
Глава 1. Теоретическая часть 5
п.1 Файлы 5
п.2 Текстовые файлы 6
п.3 Подпрограммы для работы с текстовыми файлами 7
Глава 2. Практичекая часть 11
Заключение 14
Список источников 15
Прикрепленные файлы: 135 файлов
1.txt
— 357 байт (Скачать документ)1_Текстовые файлы курсовая.docx
— 479.44 Кб (Скачать документ)
Функции
Имя функции |
Назначение |
Входные параметры |
Выходные параметры |
eof |
Указывает на то, что достигнут конец файла |
Номер |
Выражение |
1 |
(f,'C:\Users\User\Desktop\1. |
Program zad_3;
Var
s: string;
f: text;
Begin
assign (f,'C:\Users\User\Desktop\1.txt');
reset (f);
While not eof(f) do
begin
readln (f,s);
if length(s)>60 then writeln(s);
end;
close(f);
end.
Инструкция по работе с программой
- Создать текстовый файл данных – 'C:\Users\User\Desktop\1.txt
- Запустите приложение PascalABC.
- Нажмите клавишу F9 для выполнения программы.
Система тестов
- Дан текстовый файл. Переписать компоненты файла f в файл g, вставляя в начало каждой строки по одному пробелу. Порядок компонент должен быть сохранен.
Описание переменных
Имя переменной |
Тип переменной |
Назначение в программе |
Множество возможных значений |
s |
string |
Строки файла f |
Array [0..N] of char, где N – макс. количество символов в строке |
f, g |
text |
Связь с физическими файлами |
Последовательность строк |
Описание встроенных процедур и функций
Процедуры
Имя процедуры |
Назначение |
Входные параметры |
Выходные параметры |
assign |
Связь логических файлов f и g с соответсвующими физическими C:\Users\User\Desktop\1.txt, C:\Users\User\Desktop\2.txt |
||
reset |
Открывает лог. файл для чтения |
||
rewrite |
Открывает лог. файл для записи |
||
readln |
Чтение данных из текстового файла |
||
writeln |
Запись в текстовый файл |
||
close |
Закрытие лог. файла |
Функции
Имя функции |
Назначение |
Входные параметры |
Выходные параметры |
eof |
Указывает на то, что достигнут конец файла |
Номер |
Выражение |
1 |
(f,'C:\Users\User\Desktop\1. |
2 |
(g,'C:\Users\User\Desktop\2. |
Program zad_4;
Var f, g: text;
s: string;
Begin
Assign(f,'C:\Users\User\Desktop\1.txt');
Reset(f);
Assign(g,'C:\Users\User\Desktop\2.txt');
Rewrite(g);
While not Eof(f) do
Begin
readln(f,s);
s:=' '+s;
writeln(g,s);
End;
writeln('Преобразование окончено!');
Close(g);Close(f);
End.
Система тестов
- Дан текстовый файл. Переписать в файл g все компоненты файла f с заменой в них символа '0' на символ '1’ и наоборот.
Имя переменной |
Тип переменной |
Назначение в программе |
Множество возможных значений |
ch |
char |
Символы файлов f и g |
Символы, упорядоченные в соответствии с расширенным набором символов кода ASCII |
f, g |
text |
Связь с физическими файлами |
Последовательность строк |
Описание встроенных процедур и функций
Процедуры
Имя процедуры |
Назначение |
Входные параметры |
Выходные параметры |
assign |
Связь логических файлов f и g с соответсвующими физическими C:\Users\User\Desktop\1.txt, C:\Users\User\Desktop\2.txt |
||
reset |
Открывает лог. файл для чтения |
||
rewrite |
Открывает лог. файл для записи |
||
readln |
Чтение данных из текстовогофайла |
||
writeln |
Запись в текстовый файл |
||
close |
Закрытие лог. файла |
Функции
Имя функции |
Назначение |
Входные параметры |
Выходные параметры |
eof |
Указывает на то, что достигнут конец файла |
Номер |
Выражение |
1 |
(f,'C:\Users\User\Desktop\1. |
2 |
(g,'C:\Users\User\Desktop\2. |
Program zad_5;
var f,g:text;
ch:char;
begin
assign(f,'C:\Users\User\Desktop\1.txt');
reset(f);
assign(g,'C:\Users\User\Desktop\2.txt');
rewrite(g);
while not eof(f) do
begin
read(f,ch);
if ch='0' then ch:='1'
else if ch='1' then ch:='0';
write(g,ch);
end;
writeln('Преобразование окончено!');
close(f); close(g);
end.
Система тестов
- Даны текстовый файл и строка s. Получить все строки файла f, содержащие в качестве фрагмента строку s.
Описание переменных
Имя переменной |
Тип переменной |
Назначение в программе |
Множество возможных значений |
s |
string |
Строка, которую задаёт пользователь |
Array [0..N] of char, где N – макс. количество символов в строке |
st |
string |
Строка файла f |
Array [0..N] of char, где N – макс. количество символов в строке |
f |
text |
Связь с физическим файлом |
Последовательность строк |
Описание встроенных процедур и функций
Процедуры
Имя процедуры |
Назначение |
Входные параметры |
Выходные параметры |
assign |
Связь лог. файла f с физическим C:\Users\User\Desktop\1.txt |
||
reset |
Открывает лог. файл для чтения |
||
readln |
Чтение данных из текстового файла |
||
write |
Запись данных в окне ввода |
||
writeln |
Запись строк, удовлетворяющих условию |
||
close |
Закрытие лог. файла |
Функции
Имя функции |
Назначение |
Входные параметры |
Выходные параметры |
pos |
Обнаруживает первое вхождение строки s в строке st |
||
eof |
Указывает на то, что достигнут конец файла |
Номер |
Выражение |
1 |
(f,'C:\Users\User\Desktop\1. |
program zad_6;
var s,st:string;
f:text;
begin
write('Задайте строку s: ');
readln(s);
assign(f,'C:\Users\User\Desktop\1.txt');
reset(f);
while not (Eof(f)) do
begin
readln(f,st);
if pos(s,st)<>0 then writeln(st);
end;
close(f);
end.
Система тестов
- Дан текстовый файл f. Получить самую длинную строку файла. Если в файле имеется несколько строк с наибольшей длиной, то получить одну их них.
Имя переменной |
Тип переменной |
Назначение в программе |
Множество возможных значений |
s |
string |
Строки файла f |
Array [0..N] of char, где N – макс. количество символов в строке |
max |
string |
Максимальная строка файла |
Array [0..N] of char, где N – макс. количество символов в строке |
i |
integer |
Счётчик цикла |
Целые числа диапазона -32768..32767 |
f |
text |
Связь с физическим файлом |
Последовательность строк |
Описание встроенных процедур и функций
Процедуры
Имя процедуры |
Назначение |
Входные параметры |
Выходные параметры |
assign |
Связь логического файла f с физическим C:\Users\User\Desktop\1.txt |
||
reset |
Открывает лог. файл для чтения |
||
readln |
Чтение данных из текстовогофайла |
||
writeln |
Вывод на экран |
||
close |
Закрытие лог. файла |
Функции
Имя функции |
Назначение |
Входные параметры |
Выходные параметры |
eof |
Указывает на то, что достигнут конец файла |
||
length |
Возвращает текущую длину строки |
Номер |
Выражение |
1 |
(f,'C:\Users\User\Desktop\1. |
program zad_7;
var f:text;
s, max: string;
i: integer;
begin
assign(f,'C:\Users\User\Desktop\1.txt');
reset(f);
max:=''; i:=1;
while not eof(f) do
begin
s:='';
readln(f,s);
if length(s)> length(max) then max:=s;
i:=i+1;
end;
writeln('Самая длинная строка файла:');
writeln(max);
close(f);
end.
Система тестов
- Дан текстовый файл f. Исключить пробелы, стоящие в концах его строк. Результат поместить в файл g.
Имя переменной |
Тип переменной |
Назначение в программе |
Множество возможных значений |
s |
string |
Строки файлов f и g |
Array [0..N] of char, где N – макс. количество символов в строке |
max |
string |
Максимальная строка файла |
Array [0..N] of char, где N – макс. количество символов в строке |
f, g |
text |
Связь с физическими файлами |
Последовательность строк |
Описание встроенных процедур и функций
Процедуры
Имя процедуры |
Назначение |
Входные параметры |
Выходные параметры |
assign |
Связь логических файлов f и g с соответсвующими физическими C:\Users\User\Desktop\1.txt, C:\Users\User\Desktop\2.txt |
||
reset |
Открывает лог. файл для чтения |
||
rewrite |
Открывает лог. файл для записи |
||
readln |
Чтение данных из текстового файла |
||
writeln |
Вывод на экран |
||
close |
Закрытие лог. файла |
||
delete |
Удаление символов из строки |