VPF::Цикл с массивом - Форум программистов

BCworm

Дата 15.10.2007, 08:26 (ссылка)

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

Загрузка ...

Шустрый

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

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

Не могу понять в чем дело вроде бы все по букварю.
Кратко: в цикле while идет заполнение массива с одновременной проверкой есть ли в нем уже такой символ. Если он есть то выводится надпись НО и пердлагается ввести этот элемент повторно
Если такого символа в массиве еще нет то символ заноситься в массив и так до потери пульса

Код


 begin
  read(k); //это сама переменная
  for i:=0 to 50 do //в массиве около 50 элементов
  if a[i]=k then //это если типа элемент равен введенному К
  writeln('No'); //пишет гуляй или введи новое
  end
  else //но если все нормально
  begin
  read(k); 
  a[i]:=k;
 end
 end;

Это сообщение отредактировал(а) BCworm - 15.10.2007, 08:31

Rodman

Дата 15.10.2007, 08:36 (ссылка)

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

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

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

Цитата(BCworm @ 15.10.2007, 08:26

)

в цикле while идет заполнение массива

где говоришь?

Цитата(BCworm @ 15.10.2007, 08:26

)

так до потери пульса

у тебя бессконечный цикл или что?

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

BCworm

Дата 15.10.2007, 08:37 (ссылка)

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

Загрузка ...

Шустрый

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

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

да нет там 50 витков

volvo877

Дата 15.10.2007, 08:42 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

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

Цитата(BCworm @ 15.10.2007, 07:26

)

в цикле while идет заполнение массива с одновременной проверкой есть ли в нем уже такой символ.

И одновременно с этим значение i меняется вторым циклом, да? Используй другую переменную.

BCworm

Дата 15.10.2007, 08:47 (ссылка)

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

Загрузка ...

Шустрый

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

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

да нет моя проблема в том что я не могу правильно построить конструкцию с if else

if (элементмассива)=(введенному симовлу) then begin
write('no');
end
else
read(k)
a[i]:=k;
end;

чтото в этом проде

Rodman

Дата 15.10.2007, 08:49 (ссылка)

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

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

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

Код


if (элементмассива)=(введенному симовлу) then 
   write('no')
else
begin
   read(k)
   a[i]:=k;
end;

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

volvo877

Дата 15.10.2007, 08:53 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

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

Код


const
  n = 5;
var
  a: array[1 .. n] of integer;
  i, j, k: integer;
  found: boolean;

begin
  for i := 1 to n do
    repeat
      write('element #', i, ' = ');
      readln(k);
      found := false;
      for j := 1 to i - 1 do begin
        if a[j] = k then found := true;
      end;

      if not found then a[i] := k;
    until not found;
end.

Идея понятна?

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