Преобразование введенного с клавиатуры восьмиразрядного двоичного числа в десятичное

@Shalamchik · Регистрация: 12.01.2018

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

Написать программу, которая преобразует введенное с клавиатуры восьмиразрядное двоичное число в десятичное. Рекомендуемый вид экрана во время работы программы представлен ниже (введенные пользователем данные выделены полужирным шрифтом).
"Введите восьмиразрядное двоичное число
и нажмите <Enter>
-> 11101010
Двоичному числу 11101010 соответствует десятичное 234
Для завершения работы программы нажмите <Enter>."

@D1973 · 12.01.2018, 19:23

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

Рекомендуемый вид экрана во время работы программы представлен ниже

Где?

@Shalamchik · 12.01.2018, 19:34 **[ТС]**

Введите восьмиразрядное двоичное число
и нажмите <Enter>
-> 11101010
Двоичному числу 11101010 соответствует десятичное 234
Для завершения работы программы нажмите <Enter>.

@Massaraksh7 · 12.01.2018, 19:37

Delphi

program Project16;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var s:string;i,k:integer;c:char;
begin
Write('Enter 8-digits binary number and press <Enter>');Readln(s);
if Length(s)<>8 then begin Write('Not 8 digits');Readln;exit; end;
k:=0;
for i:=1 to 8 do
   begin
   c:=s[i];
      case c of
         '0'..'1': k:=k*2+(Ord(c)-48);
      else begin Write('Wrong symbol');Readln;exit;end;
      end;
   end;
Writeln(k);
Readln;
end.

@Shalamchik · 13.01.2018, 04:09 **[ТС]**

а можно в делфи?

@Massaraksh7 · 13.01.2018, 04:32

Это delphi

@Shalamchik 0 / 0 / 0 Регистрация: 12.01.2018 Сообщений: 21
		1
	Преобразование введенного с клавиатуры восьмиразрядного двоичного числа в десятичное 12.01.2018, 18:58. Показов 1311. Ответов 5 Метки нет (Все метки) Написать программу, которая преобразует введенное с клавиатуры восьмиразрядное двоичное число в десятичное. Рекомендуемый вид экрана во время работы программы представлен ниже (введенные пользователем данные выделены полужирным шрифтом). "Введите восьмиразрядное двоичное число и нажмите <Enter> -> 11101010 Двоичному числу 11101010 соответствует десятичное 234 Для завершения работы программы нажмите <Enter>." 0

@D1973 Модератор 9261 / 6039 / 2379 Регистрация: 21.01.2014 Сообщений: 25,803 Записей в блоге: 3
	12.01.2018, 19:23	2
	Сообщение от Shalamchik Рекомендуемый вид экрана во время работы программы представлен ниже Где? 0

@Shalamchik 0 / 0 / 0 Регистрация: 12.01.2018 Сообщений: 21
	12.01.2018, 19:34 [ТС]	3
	Введите восьмиразрядное двоичное число и нажмите <Enter> -> 11101010 Двоичному числу 11101010 соответствует десятичное 234 Для завершения работы программы нажмите <Enter>. 0

@Shalamchik 0 / 0 / 0 Регистрация: 12.01.2018 Сообщений: 21
	13.01.2018, 04:09 [ТС]	5
	а можно в делфи? 0

@Massaraksh7 Айлурофил 441 / 375 / 107 Регистрация: 27.05.2017 Сообщений: 2,155 Записей в блоге: 1
	13.01.2018, 04:32	6
	Это delphi 0