VPF::Ограничения ввода ! - Форум программистов

HAS

Дата 19.3.2005, 22:23 (ссылка)

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

Загрузка ...

Ing

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

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

Дан двумерный массив, необходимо ограничить ввод числа 2, допустим не больше 4-х раз !

1 2 3 2
1 2 3 4
1 2 4 4
smile

Подскажите как сделать, что-то совсем не могу сообразить ! smile

Это сообщение отредактировал(а) HAS - 19.3.2005, 22:48

Fedor

Дата 19.3.2005, 23:00 (ссылка)

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

Загрузка ...

Днепрянин

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

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

Смотришь, есил число два введено, то увеличиваешь счетчик. Если он стал больше 4 то выдаешь сообщение и просишь ввести другое число.

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

Мы - Днепряне. Мы всех сильней.

Zero

Дата 19.3.2005, 23:06 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

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

Вообщем используй счётчик двоик:

Код


program pr;
Const
  m=3;
  n=4;
var
  a:array[1..m,1..n] of integer;
  i,j:integer;
  k:integer;  
Begin
  k:=0;
  for i:=1 to m do
    for j:=1 to n do
      begin
        write('a[',i,',',j,']=');
        readln(a[i,j]);
        if a[i,j]=2 then k:=k+1;
        if k>4 then
          repeat
            writeln('Введите другое число');
            write('a[',i,',',j,']=');
            read(a[i,j]);
            k:=4;
          until a[i,j]<>2;
      end;
End.

HAS

Дата 20.3.2005, 10:15 (ссылка)

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

Загрузка ...

Ing

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

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

Спасибо !

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