Разработка альбома ключевых задач по теме «Текстовые файлы» средствами языка Pascal

Автор работы: Пользователь скрыл имя, 30 Мая 2015 в 20:11, курсовая работа

Краткое описание

В язык Паскаль выделяются данные файлового типа, которые служат для работы с информацией, расположенной на внешних устройствах. Эта информация формируется во внешней памяти компьютера, образуя некоторую область, называемую файлом. Файлы имеют имя и представляют собой совокупность однотипных элементов. Обычно они применяются, в случаях большого объема данных, долгосрочного хранения, либо необходимости предоставления доступа нескольким приложениям к одной и той же информации. Текстовые файлы предназначены для хранения текстовой информации. Именно в таких файлах хранятся, например, исходные тексты программ.

Содержание

Введение 3
Глава 1. Теоретическая часть 5
п.1 Файлы 5
п.2 Текстовые файлы 6
п.3 Подпрограммы для работы с текстовыми файлами 7
Глава 2. Практичекая часть 11
Заключение 14
Список источников 15

Скачать полностью (4.60 Мб) Сколько стоит заказать работу?

Прикрепленные файлы: 135 файлов

1.txt

— 357 байт (Скачать документ)

1_Текстовые файлы курсовая.docx

— 479.44 Кб (Скачать документ)

Функции

Имя функции	Назначение	Входные параметры	Выходные параметры
eof	Указывает на то, что достигнут конец файла

Номер	Выражение
1	(f,'C:\Users\User\Desktop\1.txt')

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.txt')
2	(g,'C:\Users\User\Desktop\2.txt')

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.txt')
2	(g,'C:\Users\User\Desktop\2.txt')

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.txt')

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.txt')

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	Удаление символов из строки