Question

Паскаль.Число в двоичной системе счисления, введенное пользователем программы, преобразовать в десятичное число. Результат вывести на экран.

Answer 1

Program ToDec;

Uses crt;
var s:string;
n,l,i:integer;

 

function Pow(x,y:integer):integer;
begin
     if y>0 then Pow:=Pow(x,y-1)*x
               else Pow:=1;
end;

function ToDec(A : string) : integer;
var L : Byte;
begin
      if A = '' then ToDec := 0
                else begin
                              L := length(A);
                               case A[1] of
                                     '0' : ToDec := ToDec(Copy(A, 2, L - 1));
                                     '1' : ToDec := Pow(2, L - 1) + ToDec(Copy(A, 2, L - 1));
                                end;
     end;
end;

begin
     clrscr;
     write('Введите двоичное число: ');
     readln(s);
      writeln('Это число в десятичной системе : ', ToDec(S));
 readkey;
end.

 

 

 

Answer 2

Конечно! Вот пример программы на языке Паскаль, которая преобразует число в двоичной системе счисления в десятичное число и выводит результат на экран:

pascalCopy code
program BinaryToDecimal;
var
  binaryString: string;
  decimalNumber, power, digit: integer;
begin
  writeln('Введите число в двоичной системе счисления: ');
  readln(binaryString);
  
  decimalNumber := 0;
  power := 1;
  
  for digit := length(binaryString) downto 1 do
  begin
    if binaryString[digit] = '1' then
      decimalNumber := decimalNumber + power;
      
    power := power * 2;
  end;
  
  writeln('Десятичное число: ', decimalNumber);
end.

Программа запрашивает у пользователя ввод числа в двоичной системе счисления. Затем она проходит по каждой цифре числа, начиная с конца, и если цифра равна '1', то добавляет соответствующую степень двойки к десятичному числу. В конце программа выводит полученное десятичное число на экран.

Пожалуйста, обратите внимание, что для запуска программы на языке Паскаль вам потребуется использовать среду разработки, поддерживающую этот язык, например, Lazarus или Free Pascal.