Лабораторный практикум по информатике

3.2.6. Примеры решения задач с использованием файлов

Примеры решения задач с использованием типизированных файлов

Задание

Создать файл, содержащий 50 случайных целых чисел в диапазоне [10..30], вывести числа на экран в обратном порядке.

Программа

Program FileTest1; const

N=50; var

F: file of integer; { объявление файла с целыми числами }

i:integer;

m:integer; begin

Assign(F,'test1.dat'); {связать файловую переменную с файлом}

ReWrite(F); { открыть файл для записи } for i:=1 to N do begin

m := Random(30-10+1)+10; { получить случайное число }

Write(F, m);		{ записать число в файл }
end;
Close(F);	{ закрыть файл }
ReSet(F);	{ открыть тот же файл для чтения }
for i:=50 downto 1 do begin
Seek(F,i-1); { установить указатель файла }
Read(F,m);		{ считать число из файла }
Write(m:4);		{ вывести число на экран }
end;
Close(F);	{ закрыть файл }
WriteLn;

end.

Результат выполнения программы:

111

Примеры решения задач с использованием текстовых файлов

Задание

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

Программа

Program FileTest2; Type

{ объявление массива для подсчета символов }

RateArray = array ['A'..'Z'] of integer; var

FT: Text; { объявление файловой переменной текстового типа } ch: char;

N,i: integer; s: String;

rate: RateArray; begin

{начальная инициализация счетчика символов } for ch:='A' to 'Z' do

rate[ch] := 0;

{операции с файлом }

Assign(FT,'test.txt'); {связать файловую переменную с файлом} ReSet(FT); { открыть файл для чтения }

while not EOF(FT) do begin { пока не конец файла }

ReadLn(FT,s); { считать строку из файла	}
{ (с переходом на новую строку) }
N := Length(s); { взять длину строки }

for i:=1 to N do begin { цикл по всем символам строки }

ch := UpCase(s[i]); {перевести символ в верхний регистр} if ch in ['A'..'Z'] then { если символ–английская буква }

rate[ch] := rate[ch]+1;{увеличить счетчик соотв.символа} end;

end;

Close(FT); { закрыть файл } for ch:='A' to 'Z' do

Write(ch,': ',rate[ch]:2,' '); {вывести частоты символов}

112

WriteLn;

end.

Исходные данные для тестирования программы talk to me softly

there's something in your eyes don't hang your head in sorrow and please don't cry

i know how you feel inside I've i've been there before somethin's changin' inside you and don't you know

Результат выполнения программы

Примеры решения задач с использованием нетипизированных файлов

Задание

Составить программу, которая создает массив целых чисел и записывает его в нетипизированный файл, а также вычисляет среднее арифметическое элементов файла.

Программа
Program FileText3;
Uses
Crt;	{поключение модуля Crt – работа с текстовой
информацией на дисплее}
Var
f : file;	{объявление	нетипизированной	файловой
переменной}
i, k, s : integer;
Mas : Array [1..10] of byte;		{описание массива}
Begin
ClrScr;	{Процедура очистки экрана}

Randomize;

113

for i := 1 to 10 do {описание цикла, формирующего массив, состоящий из 10 случайных чисел, и выводящего их на

экран}
begin
Mas[i] := Random(10);
write(Mas[i]:3);
end;
assign(f, 'file.dat');		{связывание	файловой переменной с
файлом}
rewrite(f, 1);		{открытие файла для записи}
blockwrite(f, Mas, 10); {запись в файл массива чисел}
close(f);		{закрытие файла}
reset(f,1);
S:=0; i:=0;
while not Eof(f) do		{цикл, подсчитывающий сумму чисел}
begin
blockread(f, k, 1);
s:= s+k;
Inc(i);
end;
close(f);
writeln;
write(s/i:5:2);		{вывод на	экран	среднеарифметического
чисел}
readln;
End.
4. Описание оборудования и используемых программных
комплексов
При	выполнении	лабораторной		работы	необходим

специализированный компьютерный класс с минимальными системными требованиями компьютеров:

–Процессор – Intel Pentium III;

–ОЗУ – 256 Mb;

–видеокарта – 32 Mb.

Требуемое программное обеспечение:

–Операционная система Microsoft Windows;

–Borland Pascal 7.0 for DOS / Borland Pascal 7.0 for Windows.

114

5. Краткое руководство по эксплуатации оборудования

При использовании оборудования необходимо:

–соблюдать общие правила нахождения в учебных лабораториях, работы с компьютером и использования программных средств;

–привести в порядок одежду;

–осмотреть рабочее место, убрать все мешающие работе предметы;

–визуально проверить правильность подключения ПЭВМ к электросети.

6.Задания

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

2.Дан текстовый файл. Считая, что количество букв в одном слове не превосходит 20, определить, сколько в файле имеется слов, состоящих из одного, двух, трех и т.д. символов. Результат вывести в другой текстовый файл.

3.Дан текстовый файл, который содержит массив целых чисел. Необходимо записать массив чисел из текстового файла в нетипизированный файл, а также вычислить среднее арифметическое элементов файла.

4.Сведения об автомобиле состоят из его марки, номера и фамилии владельца. Создать файл, содержащий сведения о нескольких автомобилях, после чего определить фамилии владельцев и номера автомобилей заданной марки. Марка автомобиля вводится пользователем.

5.Дан текстовый файл, содержащий сведения о студентах группы. Сведения включают ФИО, год рождения, оценки по 4 экзаменам за последний семестр. Сведения об одном студенте находятся в одной строке, отделены друг от друга точкой с запятой. Считать сведения, записать в типизированный файл соответствующего типа, вывести на экран ФИО студента с максимальным средним баллом.

6.Сведения об автомобиле состоят из его марки, номера и фамилии владельца. Создать файл, содержащий сведения о нескольких автомобилях, после чего определить количество автомобилей каждой марки.

115

7. Дан текстовый файл, который содержит массив из 50 чисел. Необходимо записать массив чисел из текстового файла в нетипизированный файл, а также минимальный и максимальный элемент.

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

9. Дан текстовый файл. Записать все строки файла в новый файл, изменив порядок следования букв в каждой строке на противоположный.

10. Создать файл, содержащий не более 100 случайных целых чисел. Выполнить сортировку чисел по возрастанию.

11. Создать файл, содержащий не более 100 случайных целых чисел. Создать новый файл, разместив все нечетные числа в начале файла, а четные – в конце, при этом порядок следования чисел сохраняется.

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

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

14. Дан текстовый файл, который содержит массив целых чисел. Необходимо записать массив чисел из текстового файла в нетипизированный файл, а также найти минимальный элемент.

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

116

16. Дан текстовый файл. Записать все строки файла в новый файл, изменив порядок следования букв в каждой строке на противоположный. Посчитать количество букв в каждой строке и строк.

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

18.Создать файл, содержащий не более 50 случайных целых чисел. Записать в новый файл и вывести на экран максимальное и минимальное числа.

19.Дан текстовый файл с текстом не менее 15 строк. Записать в новый файл все слова, начинающиеся с определенной буквы. Буква вводится по запросу пользователя.

20.Дан текстовый файл с текстом не менее 20 строк. Записать в новый файл все слова, в которых количество букв не превышает определенного значения. Значение вводится по запросу пользователя.

7.Методика выполнения задания

1.Получить вариант задания у преподавателя.

2.На основе рассмотренных в методическом указании по лабораторной работе примеров решения задач выполнить полученное задание.

3.Программа на языке Turbo Pascal должна содержать операторы ввода и вывода необходимых значений для вычислений, вывод результатов решения задачи с корректными комментариями.

4.Оформить расчеты и выводы в виде файла Word.

5.Сдать отчет преподавателю.

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

1.Что такое «типизированный файл»?

2.Что такое «нетипизированный файл»?

3.Что такое «текстовый файл»?

4.Что такое «указатель файла»?

5.Как установить указатель файла в требуемую позицию?

6.Для каких типов файлов можно устанавливать позицию указателя файла?

117

7.Какие процедуры предназначены для открытия типизированного файла?

8.Какие процедуры предназначены для открытия текстового файла?

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

10.Как задать размер блока для нетипизированного файла?

11.Какими процедурами выполняется чтение и запись для нетипизированных файлов?

12.Какие функции позволяют узнать текущее положение указателя

вфайле?

8. Требования к содержанию и оформлению отчета

Отчет по лабораторной работе должен содержать:

-Название университета, факультета и кафедры;

-Название работы;

-Сведения о студенте (ФИО, группа, курс) и преподавателе (должность, ФИО);

-Цель работы;

-Постановку задачи;

-Протокол и результаты выполнения работы: экранные копии, программный код.

-Выводы по работе.

9. Критерии результативности лабораторного практикума

Лабораторная работа считается выполненной, если:

-задание к лабораторной работе выполнено в полном объеме;

-студент представил программный код и результаты его выполнения;

-результаты выполнения программы соответствует поставленным задачам;

-при устном ответе на 1-2 контрольных вопроса по указанию преподавателя студент демонстрирует знание основных операторов и определений изученной темы и умение применить их при решении соответствующих задач;

-представленный отчет по лабораторной работе соответствует требованиям раздела 7.

118

Лабораторная работа №7 Информационные технологии подготовки документов с помощью

Microsoft Office Word 2010

1. Цель работы

Изучение основных возможностей создания и форматирования документов средствами текстового процессора MS Word 2010.

2. Задачи работы

Получение навыков профессиональной работы с документами, содержащими рисунки, таблицы, элементы деловой графики, формулы.

3. Теоретическая часть

3.1. Назначение и возможности MS Word

Word является мощным универсальным средством для управления (создание, редактирование, просмотр и обмен) документами и публикациями различного типа, включая публикации в Интернет. Его возможности (версии Word’95-Word’2003):

набор текста различными шрифтами, с возможностью форматирования, выделения отдельных терминов и фраз;

составление и использование при форматировании текста шаблонов и стилей;

включение в документ рисунков, диаграмм, графиков, таблиц, результатов вычислений и формул, сносок и примечаний;

редактирование всего документа, в том числе текста, рисунков, диаграмм, графиков, таблиц, результатов вычислений и формул и т.п.;

построение оглавления и алфавитного указателя; получение различного вида списков рисунков, таблиц, графиков;

возможность проверки правописания, как на русском языке, так и на иностранных;

использование словарей синонимов для расширения терминологической базы публикации; составление и использование тезаурусов; совместное создание документов; подготовки публикации на другом языке;

119

проверочные расчеты в процессе подготовки публикации; обеспечение достаточного уровня безопасности (защита от макросов, паролирование, цифровая подпись);

расширение функций Wordпосредством создания макросов и написания программ на WordBasic

и многое другое.

Новое в версии Word 2010:

Создание документов

Работа в пользовательском интерфейсе Microsoft Office Fluent, содержащимвсе средства, требуемые для выполнения текущей задачи.Добавление часто используемого содержимого в документы из элементов в коллекции титульных страниц, цитат и колонтитулов, создание собственных стандартных блоков. Создание, импорт и публикация блогов. Создание редактируемых уравнений с использованием готовых. Динамический подсчет слов. Использование типографских возможностей. Функция включает нумерацию и маркировку списков, стили маркированных списков, шрифты. Управление диспетчером и конструктором ссылок. Контекстная проверка правописания.

Редактирование и форматирование документов

Функция построения графиков и диаграмм включает создание объемных форм, эффектов прозрачности, падающих теней и т.д. Добавление эффектов форматирования непосредственно в текст документа. Word 2010 содержит новые и улучшенные инструменты редактирования изображений. Экспресс-стили. Настройка тем Office. Макеты для организационных диаграмм и диаграмм рисунков в SmartArt. Совместное редактирование документов при помощи службы Windows Live. Доступ к документам через браузер.

Интеграция документов в бизнес-процессы

Доступ к содержимому документов, обеспечивающий совместимость с широким набором программ и решений. Управление содержимым с помощью специальных элементов. Обзор области сведений о документе. Поддержка форматов Office XML через пользовательские схемы. Привязка данных.

120