Лабораторные работы / Laba4 / S2b

Unit s2b;

interface
procedure ReadArr(txt: string; var a: array of boolean);{Процедура чтения массива}
procedure WriteArr(var a: array of boolean);{Процедура вывода массива}
procedure CreateD(var a, b, c, d: array of boolean); {Генерация массива Д}

Implementation
{Процедура чтения массива. Входные данные - строка с адресом к файлу с массивом.
Вых.данные - Булев Массив а}
procedure ReadArr(txt: string; var a: array of boolean);
var fin: text;
j:byte;
ch: char;
begin
assign(fin, 'f:\tpascal\2semestr\laba4\'+ txt); {Открываем файл}
reset(fin);
for j:=0 to 255 do {Обнуляем массив}
a[j]:=false;
repeat {Читаем из файла массив}
read(fin, ch); {Читаем элемент}
j:=ord(ch);
a[j]:=true; {И добавляем в нужное место в массиве положительное значение}
until eof(fin);
close(fin);
end;
{Процедура вывода массива. Вх.данные - массив}
procedure WriteArr(var a: array of boolean);
var i: byte;
begin
for i:=0 to 255 do
if a[i] then
write(chr(i), ' ');
end;
{Процедура создания мно-ва Д. Вх. данные - а, б,с - массивы.
Вых.Данные - Массив д}
procedure CreateD(var a, b, c, d: array of boolean);
var i: byte;
begin
for i:=0 to 255 do {Проходя по таблице. }
if (a[i] or b[i]) and not c[i] then {Если эл-т принадлежит одному из массивов а или б}
d[i]:=true {Добавляем его}
else
d[i]:=false;
end;
end.