Двоичное и восьмеричное представление константы $D

@valery2698 · Регистрация: 17.09.2016

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

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

@bormant · 17.09.2016, 23:45

Pascal

const d=$d;
var b: Byte; s: String;
begin
  b:=d; s:=''; repeat s:=Chr(b mod 2+Ord('0'))+s; b:=b div 2; until b=0; WriteLn('2: ',s);
  b:=d; s:=''; repeat s:=Chr(b mod 8+Ord('0'))+s; b:=b div 8; until b=0; WriteLn('8: ',s);
end.

@Puporev · 18.09.2016, 08:20

Поправить нужно строки

Pascal

1	b:=b div 2;

@bormant · 18.09.2016, 09:20

Puporev,
спасибо, был невнимателен, исправил выше.

@volvo · 18.09.2016, 11:00

Раздел называется PascalABC.NET, а не Турбо Паскаль. Вот и решаем это с использованием возможностей компилятора:

Pascal

uses System;
const d=$d;
begin
  writeln('2: ', Convert.ToString(d, 2));
  writeln('8: ', Convert.ToString(d, 8));
end.

Двоичное и восьмеричное представление константы $D

Решение

Решение

@valery2698 0 / 0 / 0 Регистрация: 17.09.2016 Сообщений: 2
		1
	Двоичное и восьмеричное представление константы $D 17.09.2016, 21:43. Показов 1391. Ответов 4 Метки нет (Все метки) Написать программу, которая выводит двоичное и восьмеричное представление константы $D, которая в указанном виде, в начале работы, должна быть присвоена некоторой переменной в этой программе. 0

@bormant Модератор 7769 / 4598 / 2823 Регистрация: 22.11.2013 Сообщений: 13,077 Записей в блоге: 1
	18.09.2016, 09:20	4
	Puporev, спасибо, был невнимателен, исправил выше. 0

	18.09.2016, 11:00