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

Unit s2a;

interface

procedure ReadArr(txt: string; var a: array of  char; var an: byte);  {Процедура чтения массива}
procedure WriteArr(var a: array of  char; an: byte);    {Процедура вывода массива}
procedure createD(var a, b, c, d: array of char; var  an, bn, cn, dn: byte);   {Генерация массива Д}

Implementation
{Процедура чтения массива. Входные данные - строка с адресом к файлу с массивом.
Вых.данные - Массив а. длина массива an}
procedure ReadArr(txt: string; var a: array of char; var an: byte);
	var fin: text;   {Ассоциация файла}
		i: byte;    {Cчётчик}
		ch: char;	
		flag: boolean;  {Флаг. True если текущий эл-т не содер в массиве}
	begin
	assign(fin, 'G:\tpascal\2semestr\laba4\'+txt);   
	reset(fin);   {Открытие файла}
	an:=0;
	repeat 
		read(fin, ch);{Читаем символ из файла}
		flag:=true;
		for  i := 0 to an do  {Проверяем, не содержится ли текущий эл-т в массиве}
			if a[i] = ch then
				flag:=false;
		if flag then  {Если можно добавить...}
			begin
				a[an]:=ch;  {Добавляем}
				an:=an+1;
			end;
	until eof(fin);
	close(fin);
	end;
		
{Процедура вывода массива. Вх.данные - массив, и длина.}
procedure WriteArr(var a: array of  char; an: byte);
	var j:byte;
	begin
	for j:=0 to an do
		write(a[j], ' ');
	end;

{Процедура создания мно-ва Д. Вх. данные - а, б,с - массивы и их длины.
Вых.Данные - Массив д и его длина}
procedure createD(var a, b, c, d: array of char; var  an, bn, cn, dn: byte);
	var i, j: byte;  {Счётчики}
		flag:boolean;  {Флаг, отвечающий на разрешение добавления эл-та}
	begin
		for i:=0 to 255 do {Просматриваем все символы из таблицы.}
			begin
				flag:=true;
				for j:= 0 to cn do  {Если э-т принадлежит с, }
					if chr(i) = c[j] then
						flag:=false;  {То он не войдёт в массив D}
				if flag then {Если он не принадлежит с, то проверим, принадлежит ли он а или б}
					begin
					flag:=false;
					for j:=0 to an do
						if chr(i) = a[j] then {Если принадлежит а то добавляем в д}
							flag:=true;
					if flag then
						begin
							dn:=dn+1;
							d[dn]:=chr(i);
						end
					else
						begin
							flag:=false;
							for j:=0 to bn do{Если принадлежит б то добавляем в д}
								if chr(i) = b[j] then
									flag:=true;
							if flag then
								begin
									dn:=dn+1;
									d[dn]:=chr(i);
								end
						end;
					end;
			end;
	end;

end.