Помогите пожалуйста разобраться....

[ИриSка-147]

ввожу двоичное число(например:11110000001000000100 000001111110000000000) на что получаю ответ: значение было недопустимо малым или большим для int32...как это исправить?

program p589;
uses crt;
var
   n : integer;   // количество битов в числе
   res : integer; // результат перевода бинарного числа в десятичное
   i : integer;   // счетчик
   bit : integer;   // текущий бит
   
procedure toBinnary(value : integer); // процедура перевода 10 числа в двоичное
var
   i, k : integer; // счетчики
   a : array [1..1000] of integer; // массив битов числа
begin
     k := 0;
     while (value > 0) do // пока наше 10-ое число не равно 0
     begin
          inc(k); // увеличиваем k
          a[k] := value mod 2; // берем остаток от деления числа на 2
          value := value div 2; // берем целую часть от числа при деление на 2
     end;
     while (a[k] = 0) do dec(k); // отбрасываем ведущие нули
     for i := k downto 1 do // выводим биты числа
         write(a[i]);
     writeln();
end;
   
begin
     write('Введите число n=');
     read(n);
     writeln('По условию последний бит числа не может равняться 0');
     res := round(power(2,n-1)); // возводим в квадрат число n-1
     for i := 1 to n-1 do // считываем биты числа
     begin
          write('Введите ', i ,' бит числа = ');
          read(bit);
          res := res + bit * round(power(2,i-1)); // переводим двоичное представление числа в 10 по правилу
     end;
     writeln('Числом p будет являться десятичное представление введенного двоичного числа'); // считаем результат
     writeln('p+1');
     toBinnary(res + 1);
     end.

[WinCoder]

ИриSка-147 Integer, это десятичное, а не двоичное число. Вводя такое число вы выходите за диапазон Integer. Оперируйте двоичным числом как строкой (string)

[type_Oleg]

ИриSка-147, а с чего вы взяли, что

 read(bit);

будет вводить одну цифру ?
Она введет все до первого пробела.
Или попытайтесь вводить эти ваши 0 и 1 через пробел, или используйте для этого 11110000001000000100000001111110000 000000 переменную типа string, и потом выдергивайте по одному символу.

[isst]

Да, тут даже Int64 не поможет... Вводите строкой, я, например, когда писал перевод из 2 в 10, строку тока и юзал

[ИриSка-147]

можно пожалуйста поподробнее

[Stilet]

Может тут ты найдешь пояснение: http://www.programmersforum.ru/showp...4&postcount=36

[ИриSка-147]

спасибо))))

[min@y™]

Сообщение от WinCoder

ИриSка-147 Integer, это десятичное, а не двоичное число. Вводя такое число вы выходите за диапазон Integer. Оперируйте двоичным числом как строкой (string)

не вводи людей в заблуждение! в цифровой электронике всё (!!) двоичное. остальные системы счисления используются только для ввода/вывода.

[type_Oleg]

Сообщение от min@y™

не вводи людей в заблуждение! в цифровой электронике всё (!!) двоичное. остальные системы счисления используются только для ввода/вывода.

Лучше сказать так:
если вводишь число типа Integer 100, то программа поймет это как сто, а не как четыре

[min@y™]

если вводишь число типа Integer 100, то программа поймет это как сто, а не как четыре

программа поймет это как 00000000 00000000 00000000 01100100.
а в сишниках при форматированном вводе прога может интерпретировать введённое так, как программист захочет.