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

 

Функции

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

 

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

 

Program zad_8;

var i:integer;

s:string;

f,g:text;

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);

while s[length(s)]=' ' do

delete(s,length(s),1);

writeln(g,s);

end;

writeln('Формирование файла завершено!');

close(f);

close(g);

end.

Система тестов

 

7. Дан текстовый файл f. Записать "в перевернутом виде" строки файла f в файл g. Порядок строк в файле g должен совпадать с порядком исходных строк в файле f.

Имя переменной	Тип переменной	Назначение в программе	Множество возможных значений
s	string	Строка, которую задаёт пользователь	Array [0..N] of char, где N – макс. количество символов в строке
st	string	Строка файла f	Array [0..N] of char, где N – макс. количество символов в строке
f	text	Связь с физическим файлом	Последовательность строк

 

Описание встроенных процедур и функций

Процедуры

Имя процедуры	Назначение	Входные параметры	Выходные параметры
assign	Связь логических файлов f и g с соответсвующими физическими C:\Users\User\Desktop\1.txt, C:\Users\User\Desktop\2.txt
reset	Открывает лог. файл для чтения
rewrite	Открывает лог. файл для записи
readln	Чтение данных из текстового файла
write	Запись данных в окне ввода
writeln	Запись строк, удовлетворяющих условию
close	Закрытие лог. файла
insert	Вставляет строку t[i] в строку s, начиная с первой позиции

 

Функции

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

 

Описание пользовательских процедур и функций

Функции

Имя функции	Назначение	Входные параметры	Выходные параметры
Perevorot	Позволяет записать строки в «перевёрнутом» виде	t: string	s: string

 

 

Номер	Выражение
1	(f,'C:\Users\User\Desktop\1.txt')
2	(g,'C:\Users\User\Desktop\2.txt')
ОП	Основная программа
ПП	Подпрограмма

 

 

Program zad_9;

Var f,g:text;

s:string;

Function Perevorot(t:string):string;

Var i:integer;

s:string;

Begin

For i:=1 to length(t) do

insert(t[i],s,1);

Perevorot:=s;

s:='';

End;

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:=Perevorot(s);

writeln(g,s);

End;

Close(f);

Close(g);

writeln('Форматирование файла завершено!');

End.

Система тестов

 

8. Дан текстовый файл f. Получить самую короткую строку файла. Если в файле имеется несколько строк с наименьшей длиной, то получить одну их них.

Описание переменных

Имя переменной	Тип переменной	Назначение в программе	Множество возможных значений
s	string	Строки файла f	Array [0..N] of char, где N – макс. количество символов в строке
smin	string	Самая маленькая строка файла f	Array [0..N] of char, где N – макс. количество символов в строке
dmin	byte	Текущая минимальная длина строки	Целые числа 1..255
f	text	Связь с физическим файлом	Последовательность строк

 

Описание встроенных процедур и функций

Процедуры

Имя процедуры	Назначение	Входные параметры	Выходные параметры
assign	Связь логического файла f с физическим C:\Users\User\Desktop\1.txt
reset	Открывает лог. файл для чтения
readln	Чтение данных из текстовогофайла
writeln	Запись в текстовый файл
close	Закрытие лог. файла

 

Функции

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

 

 

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

 

 

program zad_9;

var f: text;

s,smin: string;

dmin: byte;

begin

assign(f,'C:\Users\User\Desktop\1.txt');

reset(f);

dmin:=255;

while not eof(f) do

begin

readln(f,s);

if length(s)<=dmin then

begin

dmin:=length(s);

smin:=s;

end;

end;

writeln('Самая короткая строка файла:');

writeln('"',smin,'"');

close(f);

end.

Система тестов

 

 

Заключение

В процессе написания курсовой работы я открыла немало нового, интересного и полезного для себя. Я научилась объявлять файловую переменную и связывать её с физическим файлом; рассмотрела новые подпрограммы, необходимые для работы с файлами в Паскале; применила полученные знания на практике (посредством решения задач).

Кроме этого мною были приобретены навыки оформления текстовых документов и блок-схем средствами Microsoft Office, что, несомненно, пригодится в моей будущей профессии.

Я считаю, что выполнила поставленные перед собой задачи, а именно:

1. изучила рекомендуемую литературу;
2. отобрала необходимый теоретический материал;
3. обобщила и систематизировала отобранный материал;
4. создала альбом ключевых задач.

К сожалению, мне не удалось решить все 10 задач. Однако я выполнила 8 и считаю, что это неплохой результат. Каждая решённая задача вошла в альбом ключевых задач по теме «Текстовые файлы». Так что в целом можно говорить о том, что поставленная цель была достигнута.

 

Список источников

Литература:

1. Андреева Т.А. Программирование на языке Pascal. – М.: Бином. Лаборатория знаний, 2009. – 240 с.
2. Зеленяк О.П. Практикум программирования на Turbo Pascal. Задачи, алгоритмы и решения. – СПб.: ДиаСофтЮП; ДМК Пресс, 2007. – 311 с.
3. Костюкова Н.И. Знакомьтесь – Паскаль! Методические рекомендации и задачи по программированию. – Новосибирск: Сибирское университетское издательство, 2003. – 118 с.
4. Мишенин А.И. Сборник задач по программированию. – М.: Финансы и статистика, 2009. – 224 с.
5. Павловская Т.А. Паскаль. Программирование на языке высокого уровня. – СПб.: Питер, 2007. – 393 с.
6. Сухарев М. Turbo Pascal 7.0 Теория и практика программирования. – СПб.: Наука и техника, 2007. – 544 с.

Интернет-источники:

1. Computing Science. Kvodo. [Электронный ресурс]. URL: http://kvodo.ru/pascal-general-information-text-files.html (дата обращения 26.10.2013).
2. ProgrammingABC.NET. Web development environment. [Электронный ресурс]. URL: http://primat.org/index/0-128 (дата обращения 29.10.2013).
3. Краткий справочник по языку программирования TurboPascal v. 7.0. [Электронный ресурс]. URL: http://www.debryansk.ru/~lpsch/uchenik/sprpas.htm#_Toc507151603 (дата обращения 27.10.2013).
4. Моя информатика. Текстовые файлы в Паскаль. [Электронный ресурс]. URL: http://mojainformatika.ru/paskal/uroki-paskal-fajly/87-tekstovye-fajly-v-paskal.html (дата обращения 26.10.2013).
5. Процедуры и функции. [Электронный ресурс]. URL: http://pascal.guti.ru/procedure.html (дата обращения 12.11.2013).
6. Строки. Строковый тип данных. [Электронный ресурс]. URL: http://pascal.guti.ru/string.html#2 (дата обращения 29.10.2013).
7. Тест по языку программирования Паскаль. [Электронный ресурс]. URL: http://primat.org/publ/testy/paskal/1/32-1-0-328 (дата обращения 29.10.2013).
8. Файлы. [Электронный ресурс]. URL: http://pascal.guti.ru/files.html#5 (дата обращения 29.10.2013).
9. Циклы. [Электронный ресурс]. URL: http://pascal.guti.ru/fornext.html (дата обращения 12.10.2013).

Санкт-Петербург 
2013