Структура данных - файлы (понятие, свойства, описание, операции, типы). Типизированные и текстовые файлы

Содержание

Слайд 2

Файл это совокупность связанных записей, рассматриваемых как единое целое и хранящихся

Файл

это совокупность связанных записей, рассматриваемых как единое целое и хранящихся

на внешнем носителе, предназначенный для:
хранения данных, превосходящих по объему внутреннюю память ПК;
долговременного хранения данных.
Слайд 3

Свойства: Линейная Фиксированного размера С произвольным/последовательным доступом к элементам Однородная

Свойства:

Линейная
Фиксированного размера
С произвольным/последовательным доступом к элементам
Однородная

Слайд 4

Файл может быть: открыт для чтения и при этом закрыт для

Файл может быть:

открыт для чтения и при этом закрыт для записи;
открыт

для записи и закрыт для чтения;
открыт для записи и для чтения;
закрыт для записи и для чтения.
Слайд 5

Указатель на файловую переменную это указатель на информацию, которая определяет различные

Указатель на файловую переменную

это указатель на информацию, которая определяет

различные стороны файла: имя, статус, текущую позицию
Слайд 6

Графическое представление

Графическое представление

Слайд 7

Операции над файлами установочные и завершающие операции; ввод / вывод; перемещения по файлу

Операции над файлами
установочные и завершающие операции;
ввод / вывод;
перемещения по файлу

Слайд 8

Установочные и завершающие операции

Установочные и завершающие операции

Слайд 9

Ввод / вывод

Ввод / вывод

Слайд 10

Перемещения по файлу

Перемещения по файлу

Слайд 11

Типы файлов: Типизированный файл = file of ; Текстовый файл =

Типы файлов:

Типизированный файл
<имя>= file of <тип компонент>;
Текстовый файл
<имя>= text;
Не

типизированный файл
<имя>= file;
Слайд 12

Пусть задано следующее описание: f : file of real; number : real; Типизированный файл

Пусть задано следующее описание:
f : file of real;
number

: real;

Типизированный файл

Слайд 13

Запись данных в файл assign(f, 'real_num'); rewrite (f); {откроем для записи}

Запись данных в файл

assign(f, 'real_num');
rewrite (f); {откроем для записи}

number:=1;
while number <>0 do
begin
readln(number);
if number<>0 then write(f, number);
end;
Слайд 14

Чтение данных из файла assign(f, 'real_num'); reset(f); writeln('Чтение данных'); while NOT

Чтение данных из файла

assign(f, 'real_num');
reset(f);
writeln('Чтение данных');
while

NOT EOF(f) do
begin
read(f, number);
writeln(‘Очередное число: ', number:11:2);
end;
Слайд 15

Задача: Написать программу создания файла и вывода на печать, содержащего информацию

Задача:
Написать программу создания файла и вывода на печать, содержащего информацию о

производительности труда рабочего в течение года. Информацию представить в виде: название месяца, наименование трех деталей и производительность.
Слайд 16

CONST IZD=3; {количество наименований изделий} N=12; {количество месяцев} TYPE work= record

CONST
IZD=3; {количество наименований изделий}
N=12; {количество месяцев}
TYPE
work= record
Month :

string[10];
Prod :array [1..IZD] of record
Name: string[20];
proizv: integer
End
End;
file_work=file of work;
VAR
f : file_work;
dbase : string; {имя файла}
Слайд 17

PROCEDURE vvod(ff: file_work); VAR i, j :integer; sved : work; BEGIN

PROCEDURE vvod(ff: file_work);
VAR i, j :integer;
sved : work;
BEGIN
for

i:=1 to N do
begin
with sved do
begin
write('Введите название месяца’);
readln(month);
for j:=1 to IZD do
with prod[j] do
begin
writeln(‘Введите название изделия и производительность’);
readln(name, proizv)
end
end;
write(ff, sved)
end;
END;
Слайд 18

PROCEDURE vivod(ff: file_work); VAR i, j :integer; sved : work; BEGIN

PROCEDURE vivod(ff: file_work);
VAR i, j :integer;
sved : work;
BEGIN
for

i:=1 to N do begin
read(ff, sved);
with sved do begin
write(month, ‘ ’);
for j:=1 to IZD do
with prod[j] do
writeln(‘ ‘, name, ‘ ‘, proizv);
writeln;
end;
end;
END;
Слайд 19

BEGIN dbase:='a:\\report.db'; assign(f, dbase); {$I-} rewrite(f); {$I+} if IOResult 0 then

BEGIN
dbase:='a:\\report.db';
assign(f, dbase);
{$I-}
rewrite(f);
{$I+}
if IOResult <>

0 then writeln('Ошибка создания файла!')
else begin
vvod(f);
close(f);
reset (f)
vivod(f);
close(f);
end;
END.
Слайд 20

Текстовый файл - это совокупность строк различной длины Описание текстового файла: = text;

Текстовый файл - это совокупность строк различной длины

Описание текстового файла:
<имя>= text;

Слайд 21

Файл может быть: открыт для чтения и при этом закрыт для

Файл может быть:

открыт для чтения и при этом закрыт для записи;
открыт

для записи и закрыт для чтения.
Слайд 22

Установочные и завершающие операции: Assiqn(f), Reset(f), Rewrite(f), Close(f); APPEND(f) - открывает

Установочные и завершающие операции:
Assiqn(f), Reset(f), Rewrite(f), Close(f);
APPEND(f) - открывает файл для

добавления записей в конец файла.
Слайд 23

Операции связанные с вводом\выводом READLN(f, ) - читает данные из текстового

Операции связанные с вводом\выводом

READLN(f, < список ввода>) - читает данные из

текстового файла;
WRITELN(f, < список ввода >) - записывает данные в текстовый файла;
EoLn(f) - проверка, достигнут ли конец текущей строки, (возвращает логическое значение true, если текущая строка исчерпана, false в противном случае);
SEEKEOF(f) - осуществляет поиск признака конца файла (возвращает логическое значение true, если файл исчерпан, false в противном случае).
Слайд 24

Пример 1: {фрагмент программного кода} Var a, b : string; ………..

Пример 1:

{фрагмент программного кода}
Var a, b : string;
………..
read(f, a);
readln(f);
read(f, b);
………….

Пусть задан

текстовый файл:
Фффффффф
Ааааааааааааа
а:= Фффффффф
b:=Ааааааааааааа

Пример 2:

{фрагмент программного кода}
Var a, b:string;
………………
read(f, a);
readln(f, b);
………….

Пусть задан текстовый файл:
Фффффффф
Ааааааааааааа
а:= Фффффффф
b:=’’
Т.к. readln переводит указатель только после того, как отработал.

Слайд 25

Пример 3: Var a, b, c : string; ……………… begin …………..

Пример 3:

Var a, b, c : string;
………………
begin
…………..
read(f, a);
readln(f, b);
read(f, c);
………….
End;

Пусть задан

текстовый файл:
Фффффффф
Ааааааааааааа
Nnnnnnnnnnnnnnn
a:= Фффффффф
b:=’’
c:= Ааааааааааааа
Слайд 26

Чтение данных из файла посимвольно var f : text; ch :

Чтение данных из файла посимвольно

var
f : text;
ch : char;
begin

assign(f, 'f:\texttt.txt');
{$I-}
reset(f);
{$I+}
if IOResult <> 0 then writeln('ошибка открытия')
else while not (SEEKEOF(f)) do begin
read(f, ch);
write(ch, ' ');
end;
end.
Слайд 27

Чтение данных из файла построчно var f : text; ch :

Чтение данных из файла построчно

var
f : text;
ch : string;
begin

assign(f,'f:\texttt.txt');
{$I-}
reset(f);
{$I+}
if IOResult <> 0 then writeln('ошибка открытия')
else while not (SEEKEOF(f)) do begin
readln(f, ch);
writeln(ch);
end;
end.
Слайд 28

Задача № 1. Дан символьный файл f. Напишите программу подсчета количества

Задача № 1. Дан символьный файл f. Напишите программу подсчета количества

букв 'т' в заданном файле. Выведите на экран соответствующие сообщения, если таких букв нет, если их количество превышает некоторое заданное число или не превышает.

Входные данные
Текстовый файл – f.
Заданное число – ch (тип - целый).
Выходные данные
Сообщение в соответствии с условием задачи.
Алгоритм
Ввести число.
Подсчитать количество букв 'т' в файле.
Сравнить количество букв 'т' с заданным числом и выдать соответствующее сообщение.

Слайд 29

Основная программа uses obr_stroki; type tx = text; var f :

Основная программа

uses obr_stroki;
type
tx = text;
var
f : tx;
stkol, ch

: word;
begin
writeln('введите число');
readln(ch);
stkol:=koll(f);
rezul(stkol, ch);
end.
Слайд 30

function koll (var st : tx):word; var k, chl, i :

function koll (var st : tx):word;
var
k, chl, i : word;

txtt : string;
begin
{$I-}
reset(st);
{$I+}
if IOResult <> 0 then writeln('ошибка открытия файла')
else begin
k:=0;
while NOT (SEEKEOF(st)) do begin
readln(st, txtt);
chl:=length(txtt);
i:=1;
while i<=chl do begin
if txtt[i]='т' then k:=k+1;
i:=i+1;
end;
end;
koll:=k;
close(st);
end;
end;
Слайд 31

procedure rezul (stkoll, chh : word); begin if stkoll=0 then writeln('в

procedure rezul (stkoll, chh : word);
begin
if stkoll=0 then writeln('в файле

нет букв 'т' ')
else if stkoll>chh then writeln('букв 'т' в файле больше, чем заданное число')
else if stkoll=chh then writeln('равное количество')
else writeln('букв 'т' в файле меньше, чем
заданное число')
end;
begin
assign(st, 'F:\fttt.txt');
end.
Слайд 32

Задача № 2. Дан символьный файл f. Преобразовать его следующим образом:

Задача № 2. Дан символьный файл f. Преобразовать его следующим образом:

если нет символа '*', то оставить его без изменений, иначе заменить каждый символ '*', встречающийся после первого его вхождения, на символ '-'. Результат записать в файл g.

Входные данные.
Текстовый файл – f.
Выходные данные.
Текстовый файл – g.
Алгоритм.
1. Поиск первого символа '*' в исходном файле (f), алгоритм поиска по ключу.
2. Замена каждого символа '*', после первого его вхождения, на символ '-'.
2.1. считать строку из исходного файла;
2.2. каждый символ считанной строки проверить, если символа '*', удалить и на его место вставить символ '-', перейти к следующему элементу строки;
2.3. преобразованную строку записать в новый файл (g).

Слайд 33

Описание данных type tx = text; var f, g : tx;

Описание данных

type
tx = text;
var
f, g : tx;
fl :

boolean;
num : word;
Слайд 34

begin {main} assign(f, 'F:\fttt.txt'); {$I-} reset(f); {$I+} if IOResult 0 then

begin {main}
assign(f, 'F:\fttt.txt');
{$I-}
reset(f);
{$I+}
if IOResult <> 0

then writeln('ошибка открытия файла')
else begin
poisk(fl, num);
if fl then writeln('нет *')
else begin
assign(g, 'F:\gttt.txt');
{$I-}
rewrite(g);
{$I+}
if IOResult <> 0 then writeln('ошибка
открытия файла')
else zamena(num)
end;
end;
end.

Основная программа

Слайд 35

procedure poisk(var flag : boolean; var numm : word); var txtt

procedure poisk(var flag : boolean; var numm : word);
var txtt :string;

i, j :word;
begin
j:=1;
flag:=true;
while NOT (SEEKEOF(f)) and flag do
begin
readln(f, txtt);
i:=1;
while flag and (i<=length(txtt)) do
if txtt[i]= '*' then begin
flag:=false;
numm:=j;
end
else begin
i:=i+1;
j:=j+1
end
end;
close(f);
end;
- Предыдущая
Тақырыпқа шығу
Следующая -
Патогенные псевдомонады

Похожие презентации

Работа с приложениями Windows и eё настройка
Урок №1
Технология критического мышления на уроках информатики
Ежемесячная газета МБОУ Красноясыльская средняя общеобразовательная школа Школьная жизнь №8
Презентация "Социальные сети 10 класс" - скачать презентации по Информатике
Презентация "Личность и интернет" - скачать презентации по Информатике
Заработок в социальных сетях
Предметно-ориентированные информационные системы
Банковские ИС (БИС, ИСБ, ИБС)
Lesson 08. Особенности тестирования web-приложений
Обучающая программа по изучению языка программирования Бейсик
Информационно-аналитическое обеспечение научного исследования
Трёхмерное моделирование
Факторы, влияющие на доверие потребителей к интернет-бренду
Средства защиты информации от утечки по техническим каналам
Стандартные и служебные приложения Windows
МЫШЛЕНИЕ
Поиск в разных городах России
Графические возможности MS Word
Презентация по информатике Информация в обществе и технике
Объектно-ориентированная платформа Windows
Системы логических уравнений в задачах ЕГЭ по информатике
Презентация "Психолого-педагогические особенности формирования и использования каталога образовательных ресурсов сети Интер
CSS Селекторы
Апаратне та програмне забезпечення
Анализ спецификаций. Верификация и аттестация программного обеспечения
Как создать презентацию? Добро пожаловать в Microsoft PowerPoint
Стоимость продукции. Вариант 5
Вы можете прислать нам Вашу презентацию и мы опубликуем ее на сайте.
Обратная связь
Для правообладателей
Email: Нажмите что бы посмотреть