VPF::[Pascal] Фильтр значений в массиве

Limpopo

Дата 18.11.2006, 16:59 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 20.9.2006

Репутация: 0
Всего: 1

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

дан одномерный массив - вводим
вводим массив разрешенных значений - вводим
надо вывести массив запрещенных значений , тоесть сравнивать 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 и циклом
не мог бы кто нить исправить это ???

Это сообщение отредактировал(а) Exception - 18.11.2006, 18:18

Mixasik

Дата 18.11.2006, 18:00 (ссылка)

(нет голосов)

Загрузка ...

Little Delphi monstr

Профиль
Группа: Участник
Сообщений: 195
Регистрация: 4.10.2006
Где: Волгоград

Репутация: нет
Всего: нет

Код


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.

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

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

Это сообщение отредактировал(а) Mixasik - 18.11.2006, 20:29

Noubpoeno

Дата 10.12.2022, 02:36 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 32
Регистрация: 9.12.2022

Репутация: нет
Всего: нет

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

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »