Общие указания по выполнению лабораторных работ

Скачать 0.87 Mb.

Название	Общие указания по выполнению лабораторных работ
страница	7/9
Тип	Реферат

rykovodstvo.ru > Руководство эксплуатация > Реферат

1 2 3 4 5 6 7 8 9

Тема: Использование стандартных процедур и функций для работы с файлами.

Цели работы: 1. Изучить основные процедуры и функции для работы с файлами

2. Научиться работать с процедурами и функциями.

Оборудование: IBM PC

Программное обеспечение: WINDOWS, Pascal

Контрольные вопросы:

1. Как осуществляются действия с файлами?

2. Процедуры и функции для работы с файлами любого вида?

3. Процедуры и функции для работы с типизированными файлами?

4. Процедуры и функции для работы с текстовыми файлами?

Краткая теория.

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

Набор процедур и функций для с файлами приведен в табл. 1-3.

Процедуры и функции для работы с файлами любого вида

Таблица 1

№ п/п	Запись	Назначение	Пример
1	ASSIGN(FP,IF); ASSIGN- назначить; FP- файл. пер. IF- имя файла.	Осуществляет логическую связь имени дискового файла с именем файловой переменной	Assign (f1,’D:\TP\BIN\inp.txt’);
2	RESET(FP);	Открытие файла для чтения (ввода). В типизированном файле указатель перемещается на компоненту с номером 0
3	REWRITE(FP);	Открытие файла для записи (вывода). Создается новый файл или уничтожается содержимое старого.
4	CLOSE(FP);	Закрывает файл, но связь с файловой переменной сохраняется.
5	RENAME(FP);	Переименование связанного, но не открытого файла.	Assign (f1,’D:\TP\BIN\inp.txt’); Rename (f1, ’D:\TP\BIN\d.txt’);
6	ERASE(FP);	Удаление связанного, но не открытого файла.
7	CHDID(<�путь>);	Изменение текущего каталога.
8	MKDIR(каталог<>);	Создание нового каталога.
9	RMDIR(<�каталог>);	Удаление каталога.
10	EOF(FP);	Определяет конец файла (true-если достигнут конец файла)
11	GETDIR(<�каталог>);	Определяет имя текущего каталога.

Процедуры и функции для работы с типизированными файлами

Таблица 2

№ п/п	Запись	Назначение
1	READ(FP,S);	Считывает список значений из типизированного файла.
2	WRITE(FP,S);	Выводит список значений в типизированный файл.
3	SEEK(FP,N);	Устанавливает указатель на компоненту N.
4	TRUNCATE(FP);	Фай усекается по положению указателя.
5	FILESIZE(FP);	Возвращает размер файла
6	FILEPOS(FP);	Возвращает положение указателя

Процедуры и функции для работы с текстовыми файлами

Таблица 3

№ п/п	Запись	Назначение
1	READLN(FP,S);	Считывает список значений из текстового файла с переводом строки.
2	READ(FP,S);	S- список пер. Считывает список значений из текстового файла.
3	WRITE(FP,S);	Выводит список значений в текстовый файл.
4	WRITELN(FP,S);	Выводит список значений в текстовый файл с переводом строки..
5	APPEND(FP);	Открытие связанного файла для дозаписи. Если был открыт, то закрывает и снова открывает. Указатель переводит в конец файла.
6	EOFLN(FP);	Определяет конец строки (true-если достигнут конец строки)
7	SEEKEOLN(FP);	Устанавливает указатель на конец строки
8	SEEKEOF(FP);	Устанавливает указатель на конец файла

Пример 1. В текстовом файле d1.txt расположен массив состоящий из 10 вещественных чисел: 0.54 1.7 4.56 0.2

1.32 1.54 18 0.98

5.6 7.7

Необходимо считать данные из файла, вычислить функцию y(i)=

Результат вывести в текстовый файл d2.txt и на экран.

Program ftxtx; {Ввод с текстового файла и вывод в текстовый файл}

Uses CRT;

Const n=10;

Type

t=text;

mas=array[1..n] of real;

Var

f1,f2 :t;

x,y :mas;

i :byte;

Begin

ClrScr;

Assign(f1,'d1.txt'); Reset(f1); Assign(f2,'d2.txt'); Rewrite(f2);

For i:=1 to n do

begin

Read(f1,x[i]);

y[i]:=sqrt(abs(x[i]));

Writeln(f2,y[i]:10);

Writeln(y[i]:10);

end;

Readln;

Close(f2); Close(f1)

End.

Пример №2 Cоздать файл из списка 10 студентов с их оценками ( номер, Ф.И.О. и три оценки). Вывести его содержимое на экран, изменить фамилию студента с номером, введенным с клавиатуры, заново прочитать файл.

Program filhe;

Type

wed = record {Тип wed включает 3 поля: n, fio, bal}

n : byte ; fio : string[15] ;

bal : array [1..3] of byte; {Поле bal – массив из 3 оценок }

end;

Var spisok : wed ; {Запись spicok типа wed}

sp : file of wed; {Файл записей типа wed}

procedure vvod; { процедура создания файла}

var i,j:byte;

begin

{ оператор assing находится в основной прграмме }

rewrite ( sp); {открытие файла для записи}

with spisok do

For i:=1 to 10 do begin

n:=i;

writeln (' Введите фамилию - ', i ); readln (fio);

writeln (' Введите 3 оценки ', fio ); For j:= 1 to 3 do readln ( bal [j] );

write (sp , spisok); { запись в файл информации о студенте}

end;

close (sp); { закрытие файла для записи }

end;

procedure print; { процедура чтения и печати всего файла }

var j : byte;

begin

reset ( sp); {открытие файла для чтения}

writeln (‘ Список студентов: ‘);

while not eof (sp) do

with spisok do

begin

Read (sp, spisok); {чтение данных из файла}

write (n,' ',fio); {вывод записи на экран}

For j:= 1 to 3 do write (' ', bal [j] );

writeln ;

end;

readln;

close (sp) ;

end;

procedure work;

var num: integer;

begin

reset ( sp); {открытие файла для чтения}

writeln ('номер= '); readln (num);

seek (sp, num-1); {поиск записи с указанным номером (нумерация записей с 0)}

read (sp,spisok);{чтение и перемещение указателя к сле д. записи}

write ('fio='); writeln (spisok.fio);

seek (sp,filepos(sp)-1); {возвращение к изменяемой записи }

writeln (‘ Введите новую фамилию’ ); readln (spisok.fio);

write (sp, spisok); {запись в файл измененной записи}

close (sp);

end;

begin {начало основной программы}

assign (sp,'Vedom.DAT'); {связать файловую перем-ю sp с файлом Vedom.dat}

vvod; print; {процедуры создания и чтения файла}

work; print; {корректировка и чтение измененного файла}

readln

end.

Задание №1
1. Создать текстовый файл и записать в него 5 одинаковых строк. Записываемая строка вводится с клавиатуры.

2. Имеются два текстовых файла с одинаковым количеством строк. Выяснить, совпадают ли строки. Если нет, то вывести номер строки, в которой найдено не совпадение.

3. Ввести данные о 5-ти студентах: фамилию, его оценку за экзамен. Сформировать два файла, в один записать всех, кто не сдал экзамен, в другой – кто сдал.

4. Исходный файл переписать в новый в обратной последовательности. (Последняя строка должна быть записана первой и т.д.).

5. Строки исходного файла записать в новый файл, добавив знак ? после первого слова строки.

6. Переписать в новый файл из исходного файла первое слово каждой строки.

7. Создать текстовый файл и записать в него 10 одинаковых строк. Записываемая строка вводится с клавиатуры.

8. Удалить из файла самую короткую строку (сформировать новый файл).

9. Имеется текстовый файл. Переписать в другой файл все строки с заменой в них запятой на точку.

10. Имеется текстовый файл. Все четные строки этого файла записать во второй файл, а нечетные строки в третий файл).

11. Имеются два текстовых файла с одинаковым количеством строк. Переписать совпадающие строки в третий файл.

12. Переписать содержимое файла в новый файл удваивая пустые строчки.

13. Ввести число. Записать таблицу умножения на это число в файл.
Задание №2

1. Переписать строки исходного файла в новый файл, укоротив длинные строки до 20 символов.

2. Каждую строку файла записать дважды в новый файл.

3. Каждую строку исходного файла записать в новый файл, заключив ее в кавычки.

4. Все строки файла переписать в новый файл, оставив при этом в строчках по 5 символов.

5. Из первых символов каждой строки исходного файла сформировать строчку и записать ее в новый файл.

6. Даны два текстовых файла. Поменять местами содержимое этих файлов.

7. Имеется текстовый файл. Переписать в другой файл все строки с заменой в них символа «0» на символ «1»

8. Из последних символов каждой строки исходного файла сформировать строчку и записать ее в новый файл.

9. В конец существующего файла записать 3 строки, которые вводятся с клавиатуры.

10. В конец существующего файла записать новую строку с текстом «До свидания, мой друг » (по-английски).

11. Есть текстовый файл, дописать в него 6 одинаковых строк. Записываемая строка вводится с клавиатуры.

12. Даны два текстовых файла. Записать в третий файл только те строки, которые есть в первом и во втором файлах.

13. Переписать строки исходного файла в новый файла , при этом каждую строку «перевернуть наоборот».
Задание №3

1. Каждая строка файла содержит марку автомобиля и фамилию его владельца (например, FORD Иванов). Вывести фамилии тех, у кого BMW).

2. В каждой строке файла записаны фамилия и должность сотрудника. Вывести на экран фамилии программистов.

3. Каждая строка файла содержит фамилию студента и его оценку за экзамен. Вывести фамилии тех, кто сдал экзамен на 4 или 5.

4. Каждая строка файла это фамилия и дата рождения сотрудника. (например Иванов 12.04.95). вывести фамилии тех, у кого день рождения летом.

5. В файле содержать сведения о людях: фамилия, возраст, пол. Создать два текстовых файла, один из которых содержит фамилии всех мужчин, второй файл – всех женщин.

6. В файле содержать сведения о людях: фамилия, возраст. Создать два текстовых файла, один из которых содержит фамилии всех кто старше 30 лет, второй файл – всех кто моложе 30 лет.

7. В файле содержится программе на Паскале, каждый оператор записан с новой строки. Определить правильно ли расставлены в ней операторные скобки.

8. Каждая строка файла содержит фамилию студента и его оценку за экзамен. Вывести фамилии тех, кто не сдал экзамен.

9. В файле записаны числовые значения, каждое с новой строки. Определить среднее арифметическое для значений, хранящихся в файле.

10. В файле содержится программе на Паскале, каждый оператор записан с новой строки. Определить правильно ли записан оператор цикла с постусловием.

11. Вывести на экран только те строки исходного файла, которые состоят из одного слова.

12. Для каждой сроки исходного файла определить номер строки и количество символов в ней.

13. Определить количество предложений в файле (предложение заканчивается точкой).
Задание №4

1. Вывести на экран те строки файла, которые содержат слово YES.

2. Определить , сколько раз в файле встречается слово STUDENT.

3. Определить количество символов в самой длинной строке файла.

4. Переписать в новый файл из исходного файла последнее слово каждой строки

5. Вывести вторую и предпоследнюю строки файла. Если в файле только одна строка, то выводить сообщение «нет решения».

6. Ввести слово. Определить содержится ли оно в файле.

7. Вывести на экран те строки файла, которые не содержат слово NO.

8. Вывести те строки исходного файла, длина которых не превышает 15 символов .

9. Удалить из файла самую длинную строку (сформировать новый файл)

10. Вывести на экран те строки исходного файла, длина которых больше 10 символов .

11. Вывести на экран стоки файла, которые начинаются с заглавной буквы.

12. Вывести на экран те строки файла, которые заканчиваются точкой.

13. Определить количество строк в файле, которые начинаются и заканчиваются одним и тем же символом.
Порядок выполнения работы:

Изучить методические указания и решённые программы.
Создайте папку на рабочем столе. Все программы и созданные файлы сохраните в ней. Для некоторых задач заранее создайте текстовые файлы в БЛОКНОТе.
Выполнить задание №1 (по вариантам)
Выполнить задание №2 (по вариантам)
Выполнить задание №3 (по вариантам)
Выполнить задание №4 (по вариантам)
Записать в отчёт решённые задачи.
Сделать вывод о проделанной работе .
Оформить отчёт.

Литература.

Попов И.и. Партыка Т.Л. Языки программирования: учебное пособие.- М.: «ФОРУМ»: ИНФРА –М,2008 – 400с.
Семакин И.Г Основы алгоритмизации и программирования: учебник для студ. учреждений сред. проф. образования/И.Г Семакин, А.П Шестаков. – 3-е изд., стер. – М: Издательский центр «Академия», 2012.- 400с.

Практическая работа №10

1 2 3 4 5 6 7 8 9

Похожие:

	Методические указания по выполнению лабораторных работ Издательство Инженерная геодезия. Методические указания по выполнению лабораторных работ. Составители: Шешукова Л. В., Тютина Н. М., Клевцов Е....		Методические указания по выполнению лабораторных работ по дисциплине... Методические указания по выполнению лабораторных работ рассмотрены и утверждены на заседании кафедры «Безопасность труда и инженерная...
	Методические указания для студентов по выполнению лабораторных и... Методические указания для студентов по выполнению лабораторных и практических работ		Методические указания по выполнению практических и лабораторных работ... Учебно-методическое пособие предназначенодля студентов 3 курса, обучающихся по профессии 23. 01. 03 Автомеханик. Пособие содержит...
	Сборник методических указаний для студентов по выполнению лабораторных работ дисциплина «химия» Методические указания для выполнения лабораторных работ являются частью основной профессиональной образовательной программы Государственного...		Методические указания по выполнению лабораторных работ по дисциплине «Сметное дело» ...
	Методические указания по выполнению лабораторных работ Казань 201 Эксплуатация, диагностика и надежность гту: метод указания/ сост.: Б. М. Осипов, А. В. Титов, Р. Г. Сагадеев.  Казань: Казан гос...		Методические указания по выполнению лабораторных работ Казань 2013 Эксплуатация, диагностика и надежность гту: метод указания/ сост.: Б. М. Осипов, А. В. Титов, Р. Г. Сагадеев.  Казань: Казан гос...
	Методические указания для студентов по выполнению Правила техники безопасности при выполнении лабораторных и практических работ по химии		Методические указания по выполнению лабораторных работ по дисциплине... Государственное бюджетное профессиональное образовательное учреждение московской области
	Методические указания по выполнению лабораторных работ по дисциплине... Федерального государственного бюджетного образовательного учреждения высшего образования		Лабораторная работа №7 Тема: «Арифметические операции. Битовые команды» Методические указания к выполнению лабораторных работ по мдк 01. 01 «Системное программирование»
	Методические указания по выполнению лабораторных работ по дисциплине... Федерального государственного бюджетного образовательного учреждения высшего образования		Методические указания к выполнению лабораторных работ по дисциплине радиолокационные системы Лабораторная работа №1 «Изучение принципов построения штатной радиолокационной киа»
	Методические указания по выполнению лабораторных работ по междисциплинарному курсу мдк02. 01 ПМ02. Применение микропроцессорных систем, установка и настройка периферийного оборудования		Методические указания по выполнению практических и лабораторных работ... Методические указания предназначены для обучающихся по специальностям технического профиля 21. 02. 08 Прикладная геодезия

Руководство, инструкция по применению