Добавил:
Tushkan
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Лабораторные работы / Laba4 / Untitled0
.pas function search(ch: char; arr: array of char; an: integer): boolean;
const j:integer = 0;
begin
repeat
j:=j+1;
until (j > an) or (arr[j] = ch);
if j < an then
search:=true
else
search:=false;
end;
for i:=0 to 255 do {Просматриваем все символы из таблицы.}
if search(chr(i), a, an) or search(chr(i), b, bn) then
//Добавляем в массив С
const j:integer = 0;
begin
repeat
j:=j+1;
until (j > an) or (arr[j] = ch);
if j < an then
search:=true
else
search:=false;
end;
for i:=0 to 255 do {Просматриваем все символы из таблицы.}
if search(chr(i), a, an) or search(chr(i), b, bn) then
//Добавляем в массив С