Содержание
- 2. Для заполнения текстовых файлов с данными очень удобно использовать записи. Решим следующую задачу: Сформировать файл ekz.txt,
- 3. Понятие записи Записи - это структурированный тип, содержащий набор объектов различных типов. Поля - это составляющие
- 4. Для объявления записи пользуются следующей конструкцией: Type = record : ; : ; ……. : End;
- 5. Данные для решения рассматриваемой задачи можно описать как запись следующим образом: type stud=record fio: string[30]; nz:
- 6. Stud запись fio nz mark
- 7. Правила для описания записи Имена полей, составляющих запись, не должны повторяться. Каждое поле записи может иметь
- 8. Для обращения к полям записи указывают имя переменной, имеющей тип record и через точку имя поля:
- 9. Программа для решения задачи будет выглядеть так: program examen; type stud=record fio: string[30]; nz: string[6]; mark:
- 10. begin assign(f , ‘d:\ekz.txt'); rewrite(f); write('Количество студентов '); readln(n); for i:=1 to n do begin write(i
- 11. writeln('Формирование файла закончено!'); readln; close(f) end.
- 12. Прогон программы
- 13. Просмотр файла ekz.txt
- 14. Если в программе задать тип файловой переменной f как f : file of stud; то при
- 15. Пример 2 В созданном файле ekz.txt посчитать количество студентов, сдавших экзамен на оценку 2 и вывести
- 16. Программа program examen1; type stud=record fio: string[30]; nz: string[6]; mark: string[2] end; var f : text;
- 17. 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);
- 18. writeln(‘Количество двоечников - ', kol); readln; close(f) end.
- 19. Результат работы программы:
- 20. Пример 3 По введенной фамилии студента вывести на экран его оценку.
- 21. program examen2; uses crt; type stud=record fio: string[30]; nz: string[6]; mark: string[2] end; var f :
- 22. begin clrscr; assign(f , ‘d:\ekz.txt'); reset(f); writeln('Введите фамилию студента: '); readln(fio);
- 23. 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
- 25. Скачать презентацию