Заставить пользователя ввести определенное числовое значение (Паскаль) - PullRequest
Новая
       10

Заставить пользователя ввести определенное числовое значение (Паскаль)

0 голосов
/ 26 марта 2019

Я пытаюсь создать программу, которая читает двоичный код, но я не могу придумать, что завершить программу, если пользователь введет любое другое число, кроме 0 или 1. Я уже пробовал команду «Pos»,но если пользователь напишет как "10012", он все равно будет работать нормально, но я хочу, чтобы он не работал в этом конкретном сценарии

РЕДАКТИРОВАТЬ: размещение кода. 

Program Binario2 ;
var
    bin, size, expo : Integer;
    temp, result : Real;
    binI : String;
Begin

 writeLn('CONVERSOR DE NÚMERO BINÁRIO PARA DECIMAL');
    write('Digite o número que quer converter: ');
    read(bin);

  str(bin, binI);
  size := length(binI);
  expo := 0;

    while size <> 0 do
    begin
    if binI[size] <> '0' then
    begin
      temp := exp(expo * ln(2));
      result := result + temp;
    end;  
    expo := expo + 1;
    size := size - 1;
  end;
  write('O número ', bin, ' em decimal é: ', Round(result));
  ReadLn();
End.
...