Учебное пособие 748

for 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