Содержание
- 2. Тема: Операции для работы с файлами План урока: Основные сведения о файлах. Виды файлов. Операции над
- 3. Ранее мы рассматривали задачи, в которых во время выполнения программ данные поступали с клавиатуры, а результаты
- 4. У понятия файл есть две стороны. С одной стороны, файл — это область памяти на внешнем
- 5. Структура физического файла представляет собой простую последовательность байт памяти носителя информации – ЖМД или ГМД.
- 6. Структура логического файла – это способ восприятия файла в программе. Образно говоря, это “шаблон” (“окно”), через
- 7. FILE OF BYTE FILE OF CHAR FILE OF INTEGER
- 8. Логическая структура файла в принципе очень похожа на структуру массива. Различия между массивом и файлом: У
- 9. У файла количество элементов в процессе работы может изменяться, и он располагается на внешних носителях информации.
- 10. КЛАССИФИКАЦИЯ ФАЙЛОВ Файлы классифицируются по двум признакам: По методу доступа – последовательный, прямой доступ (Turbo Pascal
- 11. Файл последовательного доступа можно сравнить с довольно длинной магнитофонной лентой в кассете, на которой записаны песни
- 12. Переменные файлового типа могут быть описаны в программе либо явно в разделе переменных Var, либо с
- 13. Описание файлов с помощью раздела типов имеет такой вид: Type Fil1 = File Of Integer; Fil2
- 14. ОПЕРАЦИИ НАД ФАЙЛАМИ В QBASIC Любые действия с файлами, выполняемыми в программе, включают в себя следующие
- 15. ОТКРЫТИЕ ФАЙЛА Для открытия файла используется оператор OPEN, имеющий следующий общий формат: OPEN имя файла$ FOR
- 16. ИМЯ ФАЙЛА Имя файла должно включать не только непосредственно название, но и наименование дискового устройства и
- 17. РЕЖИМЫ РАБОТЫ С ФАЙЛАМИ Параметр «режим» определяет режим работы с файлом:. указывает, как вы собираетесь этот
- 18. НОМЕР ФАЙЛА Последний параметр в операторе OPEN присваивает открываемому файлу определенный номер для более удобного использования
- 19. ОПЕРАЦИИ НАД ФАЙЛАМИ В TURBO PASCAL 7.0. 1. Связь переменной файлового типа с конкретным внешним файлом
- 20. 2. Открытие, чтение, запись Перед выполнением каких-либо операций чтения и записи в файлах, эти файлы должны
- 21. ОПЕРАЦИИ НАД ФАЙЛАМИ В TURBO PASCAL 7.0. Под чтением файла понимается ввод данных из внешнего файла,
- 22. Если оператор ввода имеет вид Rеаd ( ), то данные вводятся с клавиатуры, а если Rеаd
- 23. Признак конца файла 4. Так как, по определению, число элементов файла не задается заранее, то в
- 24. Пример. Прочитаем файл целых чисел и выведем их на экран: Assign(F1, 'a'.int.dat'); {связываем с внешним файлом}
- 25. Текстовые файлы Текстовые файлы — это файлы, содержащие символы, разделенные на строки. Причем в конце каждой
- 26. Нетипизированные файлы При объявлении нетипизированного файла указывается только ключевое слово, например: Var f:file Нетипизированные файловые переменные
- 27. В нетипизированных файлах за одно обращение считывается/записывается число байт, приблизительно равное величине буфера ввода/вывода, что способствует
- 28. Обработка текстовых файлов Для текстовых файлов применимы те же процедуры и функции, что и для обычных
- 29. Процедура Write записывает элемент в текущую строку. Если надо записать и перейти к следующей строке, используется
- 30. program fil86; uses crt; var f:file of integer; DEFINT M-N,I,S n,m,i,S:integer; DEFSTR A a:string begin CLS
- 31. Получаем случайные числа M=RND*25+65 m:=trunc(random(25))+65; Записываем их в файл. WRITE #2, M write(f,m); Одновременно выводим их
- 32. Продолжение программы QB TP Открываем файл А для чтения Связываем переменную f как 2 с внешним
- 33. Домашнее задание Ответить на вопросы. 1. Формат открытия файла 2. Какие операции возможны над файлами последовательного
- 34. Урок 28
- 35. План урока: Проверка домашнего задания. Заполнение файлов Чтение из файлов. Нахождение максимальных элементов. Домашнее задание. Тема:
- 36. Проверка домашнего задания Ответить на вопросы. 1. Формат открытия файла. 2. Какие операции возможны над файлами
- 37. Создать файл, элементы которого вычисляются по формуле m:=i*i+4*i; i=1..N Определить число элементов файла, делящихся на 4.
- 38. Открываем файл А для записи Связываем переменную f как 1 с внешним файлом и открываем файл
- 39. Продолжение программы Открываем файл А для чтения Связываем переменную f с как 1 внешним файлом и
- 40. Самостоятельно решите следующие задания: А) определить число четных элементов в файле; Б) определить число нечетных элементов
- 41. Создать файл F, элементы которого вычисляются по формуле m:=3*i*i-2*i+6. Получить два новых файла G, H, в
- 42. Открываем файл А для записи. Связываем переменную f как 1 с внешним файлом и открываем файл
- 43. G=”FIL88G.DAN” g:='fil88g.dan'; H=”FIL88H.DAN” h:='fil88h.dan'; Открываем файлы G, H Связываем переменные для записи как 2,3 fg и
- 44. Пока не достигнут конец файла. WHILE NOT EOF(1) while not eof(f) do Begin Считываем очередное число.
- 45. Открываем файл G для чтения Связываем переменную как 2. fg с внешним файлом G и открываем
- 46. Открываем файл Н для чтения Связываем переменную как 3. fh с внешним файлом Н и открываем
- 47. В предыдущем примере, среди нечетных элементов в файле Н, найдите наибольший. Так как мы определили тип
- 48. Домашнее задание. Найдите первый (последний) максимальный элемент, среди элементов кратных трем.
- 49. Урок 29
- 50. Тема: языки программирования Qbasic и Turbo Pascal 7.0. Операции для работы с файлами. План урока: Проверка
- 51. Проверка домашнего задания. Найдите первый (последний) максимальный элемент, среди элементов кратных трем. Самостоятельно в предыдущую программу
- 52. Напишите программу, которая обрабатывает файл, содержащий имена друзей, их адреса, номера телефонов и другую дополнительную информацию.
- 53. Составим процедуру создания файла, содержащего информацию. SUB REWRITE (A AS STRING) procedure rewrit(a:string); DEFSTR A,D,I,T,W var
- 54. Вводим информацию. INPUT” Введите имя”;IM write('Введите имя '); readln(im); INPUT” Введите адрес ”;ADR write('Введите адрес ');
- 55. Составим процедуру считывания информации из файла. SUB PRINTT (A AS STRING) procedure print(a:string); DEFSTR A,D,I,T var
- 56. Считываем данные и выводим на экран. INPUT #2, IM,ADR,TEL,DOP read(f,im,adr,tel,dop); PRINT IM,ADR,TEL,DOP write('имя ',im,' адрес ',
- 57. Составим процедуру поиска информации об отдельных людях SUB POISK(A AS STRING) procedure poisk(a:string); DEFSTR A,D,F,I,P,T var
- 58. Сравниваем введенное имя с именами хранящимися в файле. Для простоты не учитываем регистры. IF P=IM THEN
- 59. Составим процедуру добавление в файл новых данных SUB APP(A AS STRING) procedure app(a:string); DEFSTR A,D,I,T,W var
- 60. INPUT” Для выхода введите 0”;W write('Для выхода введите 0'); readln(w); IF W=”0” THEN EXIT DO if
- 61. Записываем в файл. WRITE#2,IM,ADR,TEL,DOP write(f,im,adr,tel,dop); LOOP UNTIL W=”0” until (w='0'); PRINT writeln; CLOSE#2 close (f); END
- 62. Составить процедуру уничтожение отдельных записей. SUB DEL(A AS STRING) procedure del(a:string); DEFSTR A-B,D,I,T var b, im,adr,tel,
- 63. Открываем файл А для чтения Связываем как 2. переменную f с внешним файлом и открываем файл
- 64. Продолжение программы 30: 30: INPUT”номер удаляемой записи ”;C write('номер удаляемой записи'); readln(c); IF C 30 ('C
- 65. Считываем информацию из файла INPUT#2,IM,ADR,TEL,DOP read(f,im,adr,tel,dop); Если C K то записываем информацию в другой файл. IF
- 66. SUB RED(A AS STRING) procedure red(a:string); DIM IM(15) AS STRING Type massiv=array[1..15] of string; DIM ADR(15)
- 67. Считываем из файла и заносим в соответствующие массивы. INPUT#2,IM(C),ADR(C), read(f,im[c],adr[c],tel[c], TEL(C),DOP(C) dop[c]); Выводим на экран считанную
- 68. Продолжение программы INPUT”Введите новое имя ”;FL write('Введите новое имя '); readln(fl); IF FL ”” THEN IM(C)=FL
- 69. 50: 50: C=C+1 c:=c+1 WEND end; CLOSE #2 close(f); PRINT writeln; В отличие от предыдущего примера,
- 70. Основная программа примера Место декларации процедур program fil90; uses crt; DEFSTR A,F var a, fl, flag:string;
- 71. INPUT” Создать новый файл write('Создать новый файл Y/N ?”;FL Y/N ?'); readln(fl); IF UCASE(FL)=”Y” THEN CALL
- 72. Продолжение программы. INPUT”Удаление информации write('Удаление информации Y/N ?”;fl Y/N ? '); readln(fl); IF UCASE(FL)=”Y” THEN if
- 73. Урок 30
- 74. Тема: Операции для работы с файлами План урока: Проверка домашнего задания. Файлы с произвольным доступом. Упорядочение
- 75. Проверка домашнего задания. А) Как можно уничтожить отдельные записи в файле? Записать в новый или старый
- 76. Qbasic. Файлы с произвольным доступом Файлы с произвольным доступом состоят из записей, доступ к которым может
- 77. Ниже перечислены операторы и функции Qbasic, которые управляют чтением и записью в файлы с произвольным доступом:
- 78. Основное преимущество файлов с произвольным доступом: каждая запись в файле доступна в любое время. Например, в
- 79. Последовательность шагов по созданию, записи и чтению файлов с произвольным доступом 1. Открыть файл оператором OPEN
- 80. FIELD имя файла, ширина AS симв-пер [ширина AS симв-пер]... Этот буфер является приемником для данных, записываемых
- 81. 4. Чтобы прочитать запись из файла, используйте оператор GET. Затем загрузите прочитанные значения в ваши символьные
- 82. СВОДНАЯ ТАБЛИЦА ОПИСАНИЯ ТИПОВ ДАННЫХ
- 83. Покажем несколько программ, использующей файлы с произвольным доступом. В Turbo Pascal 7.0 все файлы, кроме текстового,
- 84. Для файлов прямого доступа, LOC Позиции нумеруются от нуля. Возвращает номер последней записи/чтения. Определение количества элементов
- 85. program fil97; uses crt; var f:file of integer; DEFINT I, M-N,S s,n,m,i:integer; DEFSTR A a:string; begin
- 86. Открываем файлы произвольного доступа. Так как тип целый, то длина равна двум. OPEN A FOR RANDOM
- 87. Продолжение программы Открываем файлы произвольного доступа. FOR A FOR RANDOM assign(f,a);reset(f); AS #1 LEN=2 MAX=LOF(1)\2 PRINT”число
- 88. Считываем из файла последний элемент и суммируем значения. SEEK#1,MAX:GET#1, , seek(f,filesize(f)- N:PRINT N:S=S+N 1);read(f,n); write(n:4); s:=s+n;
- 89. Создать файл элементами которого являются целые случайные числа. Упорядочить по убыванию, возрастанию элементы файла. program fil98;
- 90. Создаем файл, содержащий целые случайные числа. Так как тип целый, то длина записи равна двум. OPEN
- 91. Считываем данные из файла. OPEN A FOR RANDOM AS #1 LEN=2 assign(f,a);reset(f); Определяем число записей в
- 92. Разница в начальных значениях цикла из-за того, что процедуры SEEK в Qbasic начинают счет с единицы,
- 93. Открываем файл и считываем данные из файла. OPEN A FOR RANDOM AS #1 LEN=2 reset(f); MAX=LOF(1)\2
- 94. Урок 31 Операции для работы с файлами
- 95. План урока: 1. Проверка домашнего задания. 2. Файлы с произвольным доступом. 3. Упорядочение элементов файлов. 4.
- 96. Текстовые файлы Текстовые файлы — это файлы, содержащие символы, разделенные на строки. Причем в конце каждой
- 97. Создать текстовый файл, содержащий только целые числа, в каждой строке может быть несколько чисел, которые разделяются
- 98. FIL99.TXT program fil99; CONST N=3 const n=3; uses crt; DEFSTR A, M var a,m;string; DEFINT I,
- 99. Открываем файл А для чтения как 1 Связываем с внешним файлом, открываем для чтения OPEN A
- 100. Печатаем ее на экран PRINT М; считываем очередное число M=M+” “ и выводим его на экран
- 101. Структурированный тип данных, так называемые записи (RECORD), позволяющие хранить вместе переменные, имеющие различные типы данных. Тип
- 102. Дан список данных о группе баскетболистов с указанием имени, роста, числа забитых мячей. Создайте файл, содержащий
- 103. FOR I=1 TO N for i:=1 to n do Begin Вводим данные о баскетболистах с клавиатуры.
- 104. FOR I=1 TO R for i:= 1 to r do Begin Считываем из файла. GET#1,I,B(I) read(f,b[i]);
- 105. Домашнее задание. Что показывает функция EOF? Каков результат действия операторов PUT, GET ? Что производит процедура
- 106. Контрольная работа. Вариант 1. 1. Дан файл F, компоненты которого являются действительными числами. Найти сумму компонент
- 107. Контрольная работа Вариант 3. 1. Дан файл F, компоненты которого являются действительными числами. Найти сумму квадратов
- 108. Ответить на вопросы. Qbasic 1.1 Формат открытия файла 1.2 Какие операции возможны над файлами последовательного доступа.
- 109. Ответить на вопросы. TPascal 7.0 Что называется файлом? В чем различие между структурой логического и структурой
- 110. Задачи для самостоятельного решения 1. Дан файл F, компоненты которого являются действительными числами. Найти: а) Сумму
- 111. Задачи для самостоятельного решения 3. Дан файл F, компоненты которого являются целыми числами. Найти: а) Количество
- 112. Задачи для самостоятельного решения 6. Дан символьный файл F. а) Подсчитать число вхождений в файл сочетаний
- 113. Задачи для самостоятельного решения 11. Дан символьный файл F. Найти самое длинное слово среди слов, вторая
- 114. Задачи для самостоятельного решения. 16. Багаж пассажира характеризуется количеством вещей и общим весом вещей. Дан файл,
- 115. Задачи для самостоятельного решения. д) Выяснить, в каких классах насчитывается более 35 учеников. е) Выяснить, на
- 116. Задачи для самостоятельного решения 20. Дан файл F, содержащий различные даты. Каждая дата - это число,
- 117. Задачи для самостоятельного решения 24. Дан файл F, содержащий сведения об экспортируемых товарах: указывается наименование товара,
- 118. Задачи для самостоятельного решения 26. Дан файл F, компоненты которого являются натуральными числами. Число компонент файла
- 119. Задачи для самостоятельного решения 30. Создайте файл прямого доступа, содержащий вещественные значения последовательно от 1.0 до
- 120. Задачи для самостоятельного решения 33. Допустим вы - член оргкомитета Олимпийских игр. Зимняя олимпиада финишировала, и
- 121. Задачи для самостоятельного решения. 34. Воспользуйтесь файлом прямого доступа для хранения библиографической информации. В начальном блоке
- 122. Задачи для самостоятельного решения Текстовые файлы — это файлы, содержащие символы, разделенные на строки. Причем в
- 124. Скачать презентацию