1. В первой программе рассчитать значения функции Y=sin(x) при изменении "х" с шагом 0. 01 в диапазоне от 0 до 3. Записать в файл F1. txt значения "х" и "y". Во второй программе считать из файла F1. txt значения "х" и "y", рассчитать значения функций Z1=y2, Z2=y3 и добавить значения Z1, Z2 в конец файла F1. txt.
2. Выполнить пункт 1 для функции Y=ex.
3. Записать в файл F1. d массив отрицательных целых чисел "A" по убыванию, а в файл F2. d массив положительных целых чисел "A" по возрастанию. Массив "A" из 25 целых чисел задается в диапазоне от -10 до +10 функцией Random.
4. Записать в файл F1. d массив четных целых чисел "A" по убыванию, а в файл F2. d массив нечетных целых чисел "A" по возрастанию. Массив "A" из 30 целых чисел задается в диапазоне от 0 до 20 функцией Random.
Примечание к п. п. 3, 4: одинаковые числа должны располагаться в одной строке.
5. Записать в конец файла F1. t список из фамилий (в алфавитном порядке) с оценками по пяти предметам. Список фамилий (в произвольном порядке) с оценками считывается из файла F1. t, предварительно набранного в редакторе текста.
|
|
6. Зашифровать текст, считанный из файла F1. t, предварительно набранного в редакторе текста и записать в конец файла F1. t. Во второй программе дешифровать текст и добавить в конец файла F1.t. Алгоритм шифровки разработать самостоятельно.
В Турбо-Паскале имеется возможность программной установки атрибутов файла. Атрибуты устанавливаются для закрытых файлов после связи файловой переменной с именем файла на диске.
Узнать исходный атрибут файла можно процедурой GetFattr(f, af);
Установить атрибут файла можно процедурой SetFattr(f, af);
Здесь f - имя файловой переменной,
af - имя переменной исходного, либо устанавливаемого атрибута (тип Word).
Стандартные атрибуты файла (обозначим " ads ") заданы в модуле DOS константами:
Значение константы "ads"
Наименование Константа "ads" Двоичное Шестнадцатиричное
Только для чтения ReadOnly 0000 0001 $01
Скрытый файл Hidden 0000 0010 $02
Системный файл System 0000 0100 $04
Архивный файл Archiv 0010 0000 $20
При "добавлении" стандартных атрибутов файла "ads" необходимо учитывать исходный атрибут "af". Например, если файл имеет исходный атрибут ReadOnly, то выражение af:= af + ReadOnly эквивалентно записи af:= $01+$01; т. е. атрибут файла станет Hidden ($02).
Следовательно процедуры GetFattr(f,af); и SetFattr(f,af+ReadOnly); в данном случае уберут атрибут ReadOnly и установят атрибут Hidden. Таким образом, арифметические операции сложения, вычитания атрибутов можно проводить, только зная исходный атрибут файла.
Использование правил логических операций над битами позволяет анализировать и изменять атрибуты файлов.
|
|
Напомним эти правила:
Выводы:
бит "A" операция бит "B" результат
1. Результат операции "A and B"
1 and 1 1 равен значению бита "В",
1 and 0 0 кроме случая "добавления" к
0 and 0 0 нулевому биту единичного.