2.як задається тип запису.
3. Як відбувається звернення до елементу записи.
4.пріведіте приклад масиву записи елементів поля.
Лабораторна робота №13
Тема роботи: Використання файлів.
Мета роботи. вивчення та використання файлів для розв'язання задач програмування.
1. записати в файл масив, і суму і твір всіх елементів масиву.
2. записати в файл 12 рядків, використовуючи оператор for, і визначити довжину кожного рядка.
3. записати в файл дворівневу запис Авто, що складається з декількох полів.
Завдання 1 - на 3;
Завдання 2 - на 4;
Завдання 3 - на 5;
Приклад 1. Створено файл зі списку 10 студентів з їх оцінками (номер, П.І.Б. та три оцінки). Вивести його вміст на екран, змінити прізвище студента з номером, введеним з клавіатури, заново прочитати файл.
Приклад 2. Запис текстового файлу на диск і введення в нього тексту.
program wtf; type fil = text; var f1: fil; name: string [35]; txt: string; begin write ( 'Введіть ім'я файлу для запису тексту>'); readln (name); writeln; assign (f1, name); rewrite (f1); writeln ( 'Введіть текст для запису (для закінчення-Enter):'); writeln; repeat write ( ':>'); readln (txt); writeln (f1, txt); until txt = ''; close (f1); writeln; writeln ( 'Введення закінчено, натисніть Enter.'); readln; end.
Приклад 3. Запис результату обчислення в текстовий файл.
program wtf1; uses crt; type fil = text; var f1: fil; name: string [35]; txt: string; var i, n: real; s, q: real; begin clrscr; writeln ( 'Для обчислення суми ряду S = 1 + 1/4 + 1/9 +. + 1 / n2,'); write ( 'введіть n = 1,2,3. n ='); read (n); i: = 1; S: = 1; while i<>n do begin i: = i + 1; s: = s + 1 / (i * i); end; writeln ( 'Сума членів ряду дорівнює S =', s); name: = 'rezult.txt'; txt: = 'Сума ряду S = 1 + 1/4 + 1/9 +. + 1 / n2 дорівнює: S = '; writeln; assign (f1, name); rewrite (f1); writeln (f1, txt, s, 'при n =', n: 9: 0); close (f1); writeln ( 'Ваш результат буде записаний у файл rezult.txt'); writeln ( 'Для виходу з програми натисніть Enter.'); readkey; end.