Нужна программа чтобы вводила целые числа , проверяла их на уникальность и лишь потом разрешала чтобы входил в ячейку.

[peter965]

Нужна программа чтобы вводила целые числа , проверяла их на уникальность и лишь потом разрешала чтобы входил в ячейку........помогите пожалуйста!!!!! на (Pascal)

[digitalis]

Кто и в какую ячейку должен входить ? В партейную ?

[peter965]

например вот так, но он будет проверять на уникальность и лишь потом вставлять в (b[i]).Я думаю может создать 2 массива , в 1 проверять и в 2 вставлять!

program ex;
const a=10;
type
  arr=array[1..a] of integer;
  
var
  b:arr;
  i:integer;
Begin
  
  for i:=1 to a do 
    begin
      readln(b[i]);
      end;

[Serge_Bliznykov]

Сообщение от peter965

например вот так, но он будет проверять на уникальность и лишь потом вставлять в (b[i]).

как звучит задача изначально? что нужно сделать?

Сообщение от peter965

Я думаю может создать 2 массива , в 1 проверять и в 2 вставлять!

абсолютно бессмысленная идея - достаточно одного массива:

program ex;
const a=10;
type
  arr=array[1..a] of integer;
  
var
  b : arr;
  element : integer;
  i, j, isFound : integer;
Begin
  for i:=1 to a do 
    begin
      repeat
         Write('Введите ',i,'-й элемент: ');
         ReadLn(element);
         isFound := 0;
         for j:=1 to i do 
           if b[j]=element then begin 
               isFound:=1; 
               Break;
           end; 
           if isFound=1 then WriteLn('Введённое значение уже есть в массиве. Вводите ещё раз!')
      until isFound=0;   
      b[i] := element;
  end;
.....

[eoln]

Хотел отправить, но Serge_Bliznykov уже опередил
Маленькая поправка

for j:=1 to i-1 do

[evg_m]

mx:=0; //сколько мы уже ввели
for i:=1 to a do begin
  readln(x);
  n:=mx+1; // считаем что нашего числа нет
  for j:=1 to mx do // попробуем найти
    if arr[j]=x then begin 
     n:=j;//а теперь знаем что есть на месте j
     break; //ну раз есть то закончим поиск(цикл)
  end;

  // а теперь "вспомним" есть или нет
  if n>mx then begin //его все-таки нет
    mx:=mx+1; //чисел становится все больше
    arr[mx]:=x;//запомним новое
  end;
//уфф, можно продолжать ввод 
end;

[peter965]

Спасибо вам большое!!))

[Serge_Bliznykov]

Сообщение от eoln

Маленькая поправка

for j:=1 to i-1 do

"маленькая" - но очень существенная!
Полностью согласен с исправлением бага.

[peter965]

Сообщение от Serge_Bliznykov

"маленькая" - но очень существенная!
Полностью согласен с исправлением бага.

А как работает ( if b[j]=element then begin) в первый раз когда мы еще не знаем b[1]? Просто отправляет FALSE ?

[digitalis]

Да очень просто: в начале перед циклом ставим беусловное:

 readln(arr[1]); mx := 1 ;