Pascal пара вопросов

[Rus 47]

Привет всем.

Вопрос 1:
Есть программа, которая выполняет две функции, и при запуске выдаёт вопрос какую функцию запустить, первую (1) или вторую (2).
и в зависимости от того что я нажму (1 или 2) запустится нужная функция.
Так вот нужно сделать так чтобы ввести возможно было только либо '1' либо '2' - тоесть чтобы ни другие цифры ни знаки и не буквы тупо нельзя было ввести. Как это сделать? (Знаю что на Паскале такое сделать можно, но как?)

Вопрос 2:
Как ограничить количество вводимых символов, тоесть чтобы нельзя было ввести больше пяти символов?

Спасибо

[SERG1980]

1. можно через цикл repeat оргаизовать ввод до тех пор пока не ввели 1 или 2

2. можно создать переменную типа string в которую добавлять символы. Перед добавлением очередного символа нужно подсчитать кол-во символов этой переменной c с помощью ф-ии length, далее условие если символов меньше 5 то добавляем очередной если =>5 то ничего не добавляем

[Тёма(C@$pEr)]

Так вот нужно сделать так чтобы ввести возможно было только либо '1' либо '2' - тоесть чтобы ни другие цифры ни знаки и не буквы тупо нельзя было ввести. Как это сделать?

Попробуй сделать с case. тип:
case x of
1:<действие>;
2:<действие>;
end.

[Rus 47]

SERG1980, Тёма(C@$pEr)

Это-то ясно, это я умею )))

Но нужно сделать так чтобы ненужные символы вобще не вводились - тоесть на чёрном экране например ввожу я 'kjdfk394df75efw' а отобразилось что я ввёл только 39475
Иными словами сделать так чтобы "поле" ввода игнорировало нажатие клавиш с символами...
ну где то примерно так, и со ворым вопросом тоже чтобы после пяти символов игнорировалось любое нажатие на клавишу (ну кроме ентера).

Я конечно НЕ имею ввиду частичное или полное отключение клавиатуры (если конечно такое возможно)...

Бред конечно но всё же.
Спасибо.

[SERG1980]

тогда стать ещё условие на проверку ввода
например

k:char
if not (k in['0'..'9'])then k:=#0

[capta1n]

для этого есть функция Rуadkey модуля CRT

[capta1n]

вот вариант ввода в первом вопросе:

program xd;
uses crt;
var
 c : char;
begin
  repeat
    c:=readkey;
    if c in ['1','2'] then write (c)
  until (c='1') or (c='2');
  case c of
   '1' : begin end;
   '2' : begin end;
  end;
end.

вот второй вопрос:

program xd;
uses crt;
var
 c : char;
 k : 0..5;
begin
  k:=0;
  repeat
    c:=readkey;
    if k<5 then
    begin
      write (c);
      inc(k)
    end
  until c=#27
end.

[Rus 47]

capta1n
Спасибо большое за ответ на первый вопрос, то что надо )
Но вот про ответ на второй вопрос у меня есть пара вопросов
1 не работает кнопка backspace тоесть стереть то что я написал не дают
2 не могли бы Вы объяснить что значит until c=#27 (просто к этому могут придраться)
А в остальном то что надо, спасибо!

[Sazary]

Rus 47
1. backspace и не должен работать. Но можно немного модифицировать код, чтобы работал:

program xd;
uses crt;
var
 c : char;
 k : 0..5;
begin
  k:=0;
  repeat
    c:=readkey;
    if c=#8 then
     begin
     gotoXY(whereX-1,whereY);
     clreol;
     if k>0 then dec(k);
     end
    else
     if k<5 then
      begin
       write (c);
       inc(k);
      end
  until c=#27
end.

2.

until c=#27

пока ASCII-код c не станет равным 27 (символ "Esc")

[Rus 47]

capta1n, Sazary
Спасибо большое, очень выручили!