ST: string; C: char;
...
Assign (CHF, 'A: File1.Dat');
Reset (CHF);
Readln (CHF, I, J, C, ST); {I: = 36; J: = 25; C: = '+' ; ST: = 'PASCAL'}
Read ( CHF , S ); ( S : = 16.5}
11 Запис у текстовий файл
Для запису значень в файл він повинен бути попередньо відкритий для запису за допомогою процедури Rewrite ( CHF < i>).
Запис здійснюється за допомогою процедур:
Write ( CHF , <список змінних (Функцій, виразів)> );
або
Writeln ( CHF , <список змінних (Функцій, виразів)> );
Процедура Writeln після запису значень в файл забезпечує перехід на новий рядок файлу ( Writeln без параметрів здійснює тільки перехід на новий рядок файлу).
Кожен елемент списку змінних (функцій, виразів) може забезпечуватися характеристикою довжини, тобто елементи списку, X , можуть бути представлені у одному з трьох видів:
де w - загальна довжина поля запису;
d - кількість цифр у дробовій частині для елементів дійсного типу.
Приклад:
Шлях до файлу з результатами: A : File < b> 2. Dat
Макет розташування Файл результати
результатів у файл: I = 36 J = 25
ST = PASCAL
Var CHF: Text;
I, J: integer;
ST: string;
...
I: = 36; J: = 25; ST: = 'PASCAL';
Assign (CHF, 'A: File2.Dat');
Rewrite (CHF);
Writeln (CHF, ' Файл з результатами ');
Writeln (CHF, 'I =', I: 3, 'J =', J: 3);
Writeln (CHF, 'ST =', ST);
Close ( CHF );
З процедурами, забезпечують читання і запис інформації у файли, тісно пов'язані дві функції:
В В
12 Множини. Опис безлічі
Безліч - довільний набір однотипних елементів, що розуміються як єдине ціле ([1, 3, 5, 7, 9] - безліч непарних цифр). У середовищі Turbo - Pascal 7.0 існує ряд обмежень на тип і кількість елементів складових безліч:
- тип елементів може бути будь ординальне, але цілий задається діапазоном значень;
- кількість елементів у множині не більше 256, а порядкові номери лежать в діапазоні 0 .. 255. p> Визначення типу
Type MN = set of <тип компонент>;
де Х - Ідентифікатор безлічі;
Var X : MN ; MN - нове ім'я типу;}
Приклад:
Var LET 1: < b> set of char ; {безліч символів у діапазоні 0 .. 255}
LET 2: set < b> of великих латинських букв} DAY : set of 1 .. 31; {безліч цілих чисел, заданих діапазоном}
MONTH: set of (FEB, MAR, APR, MAY); { безліч , заданий
перерахуванням елементів}
...
LET 1: = ['0 ', '2', ' A ',' C '] ;
LET2: = ['A', 'B', 'C', 'D'];
MONTH: = [MAR, MAY];
DAY : = []; { пусте безліч }
В
13 Операції над множин...
