Работа с файлами записей - презентация, доклад, проект скачать

Нажмите для полного просмотра!

Содержание ▲

Вы можете ознакомиться и скачать презентацию на тему Работа с файлами записей. Доклад-сообщение содержит 24 слайдов. Презентации для любого класса можно скачать бесплатно. Если материал и наш сайт презентаций Mypresentation Вам понравились – поделитесь им с друзьями с помощью социальных кнопок и добавьте в закладки в своем браузере.

Слайды и текст этой презентации

Слайд 1

Описание слайда:

Работа с файлами записей

Слайд 2

Описание слайда:

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

Слайд 3

Описание слайда:

Понятие записи Записи - это структурированный тип, содержащий набор объектов различных типов. Поля - это составляющие запись объекты. В записи каждое поле имеет своё собственное имя.

Слайд 4

Описание слайда:

Для объявления записи пользуются следующей конструкцией: Type = record : ; : ; ……. : End;

Слайд 5

Описание слайда:

Данные для решения рассматриваемой задачи можно описать как запись следующим образом: type stud=record fio: string[30]; nz: string[6]; mark: 2..5 end; var s:stud;

Слайд 6

Описание слайда:

Слайд 7

Описание слайда:

Правила для описания записи Имена полей, составляющих запись, не должны повторяться. Каждое поле записи может иметь любой тип(кроме файлового), в частности, оно может быть записью.

Слайд 8

Описание слайда:

Для обращения к полям записи указывают имя переменной, имеющей тип record и через точку имя поля: s.fio s.nz s.mark

Слайд 9

Описание слайда:

Программа для решения задачи будет выглядеть так: program examen; type stud=record fio: string[30]; nz: string[6]; mark: 2..5 end; var f : text; s : stud; n, i : byte;

Слайд 10

$begin begin assign(f , ‘d:\ekz.txt'); rewrite(f); write('Количество студентов '); readln(n); for i:=1 to n do begin write(i : 2 , ‘ - Фамилия...$

Описание слайда:

begin begin assign(f , ‘d:\ekz.txt'); rewrite(f); write('Количество студентов '); readln(n); for i:=1 to n do begin write(i : 2 , ‘ - Фамилия И.О.:'); readln(s.fio); write('Номер зачетки: '); readln(s.nz); write('Оценка: '); readln(s.mark); writeln(f , s.fio:30, s.nz:6, s.mark:2) end;

Слайд 11

Описание слайда:

writeln('Формирование файла закончено!'); writeln('Формирование файла закончено!'); readln; close(f) end.

Слайд 12

Описание слайда:

Прогон программы

Слайд 13

Описание слайда:

Просмотр файла ekz.txt

Слайд 14

Описание слайда:

Если в программе задать тип файловой переменной f как Если в программе задать тип файловой переменной f как f : file of stud; то при записи данных в файл можно использовать команду write(f , s);

Слайд 15

Описание слайда:

Пример 2 В созданном файле ekz.txt посчитать количество студентов, сдавших экзамен на оценку 2 и вывести их фамилии.

Слайд 16

Описание слайда:

Программа program examen1; type stud=record fio: string[30]; nz: string[6]; mark: string[2] end; var f : text; s : stud; kol, oc, k : integer; begin assign(f , ‘d:\ekz.txt'); reset(f);

Слайд 17

Описание слайда:

Kol:=0; Kol:=0; while not eof(f) do begin read(f, s.fio); read(f, s.nz); read(f, s.mark); readln(f); val(s.mark, oc, k); if oc=2 then begin writeln(s.fio); kol:=kol+1 end; end;

Слайд 18

Описание слайда:

writeln(‘Количество двоечников - ', kol); readln; close(f) end.

Слайд 19

Описание слайда:

Результат работы программы:

Слайд 20

Описание слайда:

Пример 3 По введенной фамилии студента вывести на экран его оценку.

Слайд 21

Описание слайда:

program examen2; program examen2; uses crt; type stud=record fio: string[30]; nz: string[6]; mark: string[2] end; var f : text; s : stud; fio: string;

Слайд 22

$begin begin clrscr; assign(f , ‘d:\ekz.txt'); reset(f); writeln('Введите фамилию студента: '); readln(fio);$

Описание слайда:

begin begin clrscr; assign(f , ‘d:\ekz.txt'); reset(f); writeln('Введите фамилию студента: '); readln(fio);

Слайд 23

Описание слайда:

while not eof(f) do while not eof(f) do begin read(f, s.fio); read(f, s.nz); read(f, s.mark); readln(f); while s.fio[1]=' ' do delete(s.fio,1,1); if fio=s.fio then writeln('Оценка:', s.mark) end;