Pascal 46. Описать функцию BinToDec(S), которая определяет число по его строковому представлению в двоичной системе счисления.

@Ajaja · Регистрация: 19.11.2012

Студворк — интернет-сервис помощи студентам

Описать функцию BinToDec(S) целого типа, которая определяет целое неотрицательное число по его строковому представлению S в двоичной системе счисления. Параметр S имеет строковый тип, состоит из символов "0"-"1" и не содержит ведущих нулей (за исключением значения '0'). Используя эту функцию вывести пять чисел, для которых даны их двоичные представления.

@PaniCa. · 20.11.2012, 00:10

Pascal

var
  A: string;
  i:integer;
 
function BinToDec(S: string): integer;
var
  i,  d, c: integer;
  b: real;
begin
  b := 0; d := 0; c := 0;
  for i := 1 to length(S) do
  begin
    if copy(S, 1, 1) = '1' then 
    begin
      val((copy(S, i, 1)), d, c);
      b := b + d * exp(ln(2) * (length(s) - i));
    end
    else begin
      if (length(s) < 2) and (copy(S, 1, 1) = '0') then writeln('Dec: ',0)
      else
        writeln('error: ведущий ноль');
      break;
    end;
  end;
  bintodec := 0;
  if copy(S, 1, 1) = '1' then
    writeln('Dec: ', b);
end;
 
begin
  for i := 1 to 5 do
  begin
    write('Bin ',i, ': ');
    readln(A);
    BinToDec(A);
  end;
end.

@Ajaja · 20.11.2012, 20:23 **[ТС]**

Огромное спасибо выручил

Добавлено через 3 минуты
ты прям брат!

@Ajaja 0 / 0 / 0 Регистрация: 19.11.2012 Сообщений: 9
		1
	Pascal 46. Описать функцию BinToDec(S), которая определяет число по его строковому представлению в двоичной системе счисления. 19.11.2012, 20:09. Показов 1219. Ответов 2 Метки нет (Все метки) Описать функцию BinToDec(S) целого типа, которая определяет целое неотрицательное число по его строковому представлению S в двоичной системе счисления. Параметр S имеет строковый тип, состоит из символов "0"-"1" и не содержит ведущих нулей (за исключением значения '0'). Используя эту функцию вывести пять чисел, для которых даны их двоичные представления. 0

@Ajaja 0 / 0 / 0 Регистрация: 19.11.2012 Сообщений: 9
	20.11.2012, 20:23 [ТС]	3
	Огромное спасибо выручил Добавлено через 3 минуты ты прям брат! 0

Опции темы