Лабораторные работы / 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.