Учебное пособие 748
.pdffor i:=50 downto 1 do begin
Seek(F,i-1); {Установка указателя файла} Read(F,m); {Считывание числа из файла} Write(m:4); {Вывод числа на экран}
end;
Close(F); {Закрытие файла} WriteLn;
end.
Схема алгоритма работы программы представлена на рисунке.
Рисунок. Схема алгоритма к примеру 1
20
Пример 2. Прочитать из текстового файла file1.txt все записанные в него целые числа, преобразовать их в вещественные и вывести в текстовый файл file2.txt по 4 числа и строку.
program primer2; var
F1, F2 : Text; X : Real;
i : Integer; begin
Assign(F1,'file1.txt');
Reset(F1);
if IOResult<>0 then Writeln('Нет файла file1.txt') else
begin Assign(F2,'file2.txt'); Rewrite(F2);
repeat
for i:=1 to 4 do
if not SeekEof(F1) then begin
Read(F1,X);
Write(F2,X:18)
end;
WriteLn(F2) until SeekEof(F1); Close(F1); Close(F2)
end
end.
21
МЕТОДИЧЕСКИЕ УКАЗАНИЯ
КВЫПОЛНЕНИЮ ЛАБОРАТОРНОЙ РАБОТЫ
1.Изучить теоретический материал.
2.Для задачи, выбранной в соответствии с вариантом, разработать алгоритм решения и описать его графическим способом (блок-схема).
3.Написать программу на языке Паскаль, реализующую разработанный алгоритм:
4.Оформить отчет.
ВАРИАНТЫ ЗАДАНИЙ
1.Дан текстовый файл. Определить число символов в файле. Результат записать в другой файл.
2.Дан текстовый файл. Определить число пробелов. Результат записать в другой файл.
3.Дан текстовый файл. Определить число гласных букв. Результат записать в другой файл.
4.Дан текстовый файл. Определить, сколько в файле имеется слов. Результат вывести в другой файл.
5.В текстовом файле содержится список фамилий студентов, записанных через запятую. Определить число студентов. Результат вывести в другой текстовый файл.
6.В текстовом файле содержится список фамилий студентов, каждая из которых записана с новой строки. Определить число студентов. Результат вывести в другой текстовый файл.
7.Дан текстовый файл, содержащий программу на языке Паскаль. Проверить эту программу на соответствие числа открывающих и закрывающих круглых скобок.
8.Дан текстовый файл. Записать все четные строки файла в новый файл.
9.Создать файл, содержащий не более100 случайных целых чисел. Открыть файл для чтения и подсчитать количество четных чисел.
22
10.Создать файл, содержащий не более100 случайных целых чисел. Открыть файл для чтения и подсчитать количество двухразрядных чисел.
11.Создать текстовый файл. Записать в него таблицу умножения от 1 до 10.
12.Создать файл, содержащий не более100 случайных целых чисел. Открыть файл для чтения и подсчитать сумму всех чисел.
13.Создать файл, содержащий не более100 случайных целых чисел. Открыть файл для чтения и подсчитать количество чисел, содержащих цифру 5.
14.Создать текстовый файл. Записать в него таблицу сложения от 1 до 10.
15.Дан текстовый файл. Подсчитать количество прописных английских букв. Результат записать в другой файл.
16.Дан текстовый файл. Подсчитать количество прописных русских букв. Результат записать в другой файл.
17.Дан текстовый файл. Подсчитать количество английских букв. Результат записать в другой файл.
18.Дан текстовый файл. Подсчитать количество русских букв. Результат записать в другой файл.
19.Создать файл, содержащий не более100 случайных целых чисел. Выполнить сортировку чисел по возрастанию.
20.Дан текстовый файл. Определить, сколько в файле имеется слов, состоящих из пяти символов. Результат вывести
вдругой текстовый файл.
21.Дан текстовый файл. Записать все строки файла в новый файл, изменив порядок следования букв в каждой строке на противоположный.
23
КОНТРОЛЬНЫЕ ВОПРОСЫ
1.Что такое «файл» и «файловая переменная»?
2.Что такое «типизированный файл»?
3.Что такое «текстовый файл»?
4.Что такое «нетипизированный файл»?
5.Что такое «указатель файла»?
6.Как установить указатель файла в требуемую позицию?
7.Для каких типов файлов можно устанавливать позицию указателя файла?
8.Какие процедуры предназначены для открытия типизированного файла?
9.Какие процедуры предназначены для открытия текстового файла?
10.Какие процедуры и в какой последовательности надо вызывать для чтения данных из типизированного файла?
11.Какими процедурами выполняется чтение и запись для нетипизированных файлов?
12.Какими процедурами выполняется чтение и запись для текстовых файлов?
13.Как задать размер блока для нетипизированного файла?
14.Какие функции позволяют узнать текущее положение указателя в файле?
15.Как определить возникновение какой-либо ошибки при работе с файлами?
24
БИБЛИОГРАФИЧЕСКИЙ СПИСОК
1.Аляев, Ю. А. Алгоритмизация и языки программирования Pascal, C++, Visual Basic : учеб.-справ. пособие для вузов/ Ю. А. Аляев. — М. : Финансы и статистика, 2004. — 320 с.
2.Аляев, Ю. А. Практикум по алгоритмизации и программированию на языке Паскаль: учеб. пособие/ Ю. А. Аляев, В. П. Гладков, О. А. Козлов. — М.: Финансы и статистика, 2004. — 528 с.
3.Бочарова, Т. А. Основы алгоритмизации: учеб. пособие/ Т. А. Бочарова, Н. О. Бегункова. — Хабаровск : Изд-во Тихоокеан. гос. ун-та, 2011. — 64 с.
4.Златопольский, Д. М. Сборник задач по программированию/ Д. М. Златопольский. — 2-е изд., перераб и доп.
— СПб.: БХВ-Петербург, 2007. — 240 с.
5.Информатика: учебник / Б. В. Соболь [и др.]. — Изд. 3- е, дополн. и перераб. — Ростов н/Д.: Феникс, 2007. — 446 с.
6.Колдаев, В. Д. Основы алгоритмизации и программирования: учеб. пособие/ В. Д. Колдаев; [под ред. проф. Л. Г. Гагариной]. — М.: ФОРУМ : ИНФРА — М., 2006.
— 416 с.
7.Кормен, Т. Алгоритмы: построение и анализ/ Т. Кормен, Ч. Лейзерсон, Р. Ривест. — М.: МЦНМО, 2002. — 955 с.
8.Новожилов, О. П. Информатика: учеб. пособие/ О. П. Новожилов. — М.: Юрайт, 2011. — 594 с.
9.Пентюхов, В. В. Информатика. Теоретические основы: учеб. пособие/ В. В. Пентюхов, Г. А. Кашенко, С. И. Лавлинский. — Воронеж : Изд-во ВГТУ, 2000. — 168 с.
25
ПОДПРОГРАММЫ И РАБОТА С ФАЙЛАМИ НА ЯЗЫКЕ ПАСКАЛЬ
Методические указания к выполнению лабораторных работ № 5-8
по дисциплине «Информатика» для студентов специальностей
10.05.01«Компьютерная безопасность»,
10.05.02«Информационная безопасность телекоммуникационных систем»,
10.05.03 «Информационная безопасность автоматизированных систем»
очной формы обучения
Составители: Чопоров Олег Николаевич
Разинкин Константин Александрович Москалева Екатерина Алексеевна
Компьютерный набор О. Н. Чопорова
Редактор Аграновская Н. Н.
Подписано к изданию 30. 10. 2019. Объем данных 479 Кб.
ФГБОУ ВО «Воронежский государственный технический университет»
394026 Воронеж, Московский просп., 14
26