Элементы массива A, не содержащиеся в массиве B и взятые по одному разу

@HidWin · Регистрация: 06.06.2018

Author24 — интернет-сервис помощи студентам

Привет, я не могу сравнить два массива чтоби определить елементы массива A, не содержащиеся в массиве B и взятые по одному разу (на Delphi).

Кто-то может помочь, буду очень благодарен!
Вот задание:
Задано два массива целых чиселA(n),n<=300 и B(m),m<=200. Разработать программу, которая строит симметричную разницу
A\B Y B\A и упорядочивает ее элементы по возрастанию. Различие A\B это
это элементы массива А, не содержащиеся в массиве В и взятые по одному разу, аналогично определяется В\А.

Добавлено через 15 минут
Вот что я написал но если я ввожу в первый массив 2 и более одинаковых элементов тогда просто выводится массив А.
И вообще программа странно работает.

Delphi

Program LABR3_2;
 
{$APPTYPE CONSOLE}
 
uses Sysutils;
 
VAR
a: array[1..200] of integer;
 
b: array[1..300] of integer;
 
c: array[1..500] of integer;
 
n, m, k, i, j: integer;
 
f1, f2: boolean;
 
BEGIN
 
{Введення початкових даних}
 
writeln('Vvedit rozmir masuvu a, (n<=200)');
 
readln(n);
 
writeln('Vvedit elementu masuvu a');
 
for i:=1 to n do
 
read(a[i]);
 
writeln('Vvedit rozmir masuvu b, (m<=300)');
 
readln(m);
 
writeln('Vvedit elementu masuvu b');
 
for i:=1 to m do
 
read(b[i]);
 
{Побудова перетину масивів}
 
k:=0;
 
for i:=1 to n do
 
begin
 
j:=1;
 
while (j <= m) and (not f1) do
 
if a[i]=b[j] then f1:=false else begin f1:=true;j:=j+1; end;
 
if f1 then begin
 
j:=1; f2:=true;
 
while (j <= k) and f2 do
 
if a[i]=b[j] then f2:=false else j:=j+1;
 
if f2 then begin k:=k+1; c[k]:=a[i];end;
 
end;
 
end;
 
{Виведення перетину по п’ять елементів у рядку}
 
if k=0 then writeln('nEPRAV')
 
else
 
for i:=1 to k do
 
if i mod 5 <> 0 then write(c[i]:6)
 
else writeln(c[i]:6);
 
 
for I := 0 to 3 do
 
readln;
END.

	04.07.2018, 19:59