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

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

Форум программистов > Object Pascal: кроссплатформенные технологии > Ограничения ввода !

Автор: HAS 19.3.2005, 22:23

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

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

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

Автор: Fedor 19.3.2005, 23:00

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

Автор: Zero 19.3.2005, 23:06

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

Код


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

Спасибо !