Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] Фильтр значений в массиве

Автор: Limpopo 18.11.2006, 16:59

Задача заключается вот в чем

дан одномерный массив - вводим
вводим массив разрешенных значений - вводим
надо вывести массив запрещенных значений , тоесть сравнивать 1 и 2 массив

например вводим массив 1 2 3 и вводим разрешенные значения значения 2 3 4 то прога должна вывести число 1

Код


uses crt;
var
a , b , l : array [1..100] of integer;
k , i , j , m , n , o , p : integer;
{k : boolean;}
begin
writeln('vvedite razmer massiva');
readln(n);
writeln('vvedite razmer massiva razrewennix zna4eniy');
readln(m);
writeln('vvedite elementi massiva');
o:=1;
k:=0;
  begin
     for i:= 1 to n do
     readln(a[i]);
writeln('vedite razrew zna4');
   for j:=1 to m do
   readln(b[j]);

for i:= 1 to n do
for j:= 1 to m do
if a[i] <> b[j] then
l[o]:=a[i];
o:=o+1;
k:=k+1;
end;
if k=0 then
writeln('vse 4isla razrewennie')
else
writeln('massiv nerazrewennix 4isel' , l[o])
end.

вот мое я понял что напутал begin end и циклом
не мог бы кто нить исправить это ???

Автор: Mixasik 18.11.2006, 18:00

Код


uses crt;
var
a ,b : array [1..100] of integer;
i , j, n , m , k: byte;

begin
 ClrScr;
 writeln('vvedite razmer massiva');
 readln(n);
 For i:=1 to n do
  Begin
   Writeln('Vvedite ',i,' element massiva');
   Readln(a[i]);
  End;
 writeln('vvedite razmer massiva razrewennix zna4eniy');
 readln(m);
 For i:=1 to m do
  Begin
   Writeln('Vvedite ',i,' element massiva');
   Readln(b[i]);
  End;
 Writeln('Nerazreshennye chiasla');
 For i:= 1 to n do
  Begin
   k:=0;
  for j:=1 to m do
   If a[i]=b[j] then
    k:=k+1;
   If k=0 then write('a[',i,'] ',a[i],' ');
  End;
readkey;
end.

Вот код сравниваются массивы, выводится индекс неподходящего числа и само число рядом.
В третий массив можно ничего не записывать

Модератор: не забывайте выбирать тип подсветки.

Автор: Noubpoeno 10.12.2022, 02:36

Модератор: Сообщение скрыто.