0 / 0 / 0
Регистрация: 19.11.2012
Сообщений: 9
1

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

19.11.2012, 20:09. Показов 1294. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Описать функцию BinToDec(S) целого типа, которая определяет целое неотрицательное число по его строковому представлению S в двоичной системе счисления. Параметр S имеет строковый тип, состоит из символов "0"-"1" и не содержит ведущих нулей (за исключением значения '0'). Используя эту функцию вывести пять чисел, для которых даны их двоичные представления.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.11.2012, 20:09
Ответы с готовыми решениями:

Написать программу,которая преобразует положительное число в двоичной системе счисления
Написать программу,которая преобразует положительное число в двоичной системе счисления и печатает...

Описать функцию, которая возвращает строковое представление целого числа N в двоичной системе счисления
Описать функцию, которая возвращает строковое представление целого числа N в двоичной системе...

Описать функцию DecToBin(N), возвращающую представление числа в двоичной системе счисления
Описать функцию DecToBin(N) строкового типа, возвращающую строковое представление целого...

Составить программу, которая переводит число А, заданный в двоичной системе счисления в десятичную
Составить программу, которая переводит число А, заданный в двоичной системе счисления, в число...

2
38 / 38 / 22
Регистрация: 29.10.2011
Сообщений: 95
20.11.2012, 00:10 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
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.
1
0 / 0 / 0
Регистрация: 19.11.2012
Сообщений: 9
20.11.2012, 20:23  [ТС] 3
Огромное спасибо выручил

Добавлено через 3 минуты
ты прям брат!
0
20.11.2012, 20:23
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.11.2012, 20:23
Помогаю со студенческими работами здесь

Если строка является изображением целого числа в восьмеричной системе счисления, то перевести ее в целое число в двоичной системе счисления
Вводится строка символов. Если она является изображением целого числа в восьмеричной системе...

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

Описать функцию HexToDec(S) целого типа, определяющую целое неотрицательное число по его строковому представлению S в 16-ричной системе счисления
Очень прошуууу помочь .Param47. Описать функцию HexToDec(S) целого типа, определяющую целое...

Определить целое неотрицательное число по его строковому представлению S в 16-ричной системе счисления
Очень прошуууу помочь .Param47. Описать функцию HexToDec(S) целого типа, определяющую целое...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru