Перевод числа из двоичной системы счисления в восьмеричную

@annie7 · Регистрация: 06.05.2018

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

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

@ZX Spectrum-128 · 02.06.2018, 17:24

@Puporev · 02.06.2018, 17:41

Или так. Для АВС.

Pascal

const tr:array[0..7] of string[3]=('000','001','010','011',
                                   '100','101','110','111');
var s2,s8:string;
    i,j:byte;
begin
repeat
writeln('Введите число в СС 2');
readln(s2);
i:=1;
while(i<=length(s2))and(s2[i] in ['0'..'1']) do inc(i);
if i<=length(s2) then writeln('Число введено неверно, повторите');
until i>length(s2);
while length(s2) mod 3<>0 do
s2:='0'+s2;
s8:='';
i:=1;
while(i<length(s2)-1)do
 begin
  j:=0;
  while (j<=7)and (copy(s2,i,3)<>tr[j])do inc(j);
  s8:=s8+inttostr(j);
  i:=i+3;
 end;
write('В СС 8=',s8);
end.

@annie7 1 / 1 / 0 Регистрация: 06.05.2018 Сообщений: 18
		1
	Перевод числа из двоичной системы счисления в восьмеричную 02.06.2018, 12:46. Показов 5296. Ответов 2 Метки нет (Все метки) Помогите написать программу перевода числа из двоичной системы счисления в восьмеричную систему. 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	02.06.2018, 17:24	2
	Из двоичной системы в восьмеричную 0

	02.06.2018, 17:41

Опции темы

Перевод числа из двоичной системы счисления в восьмеричную

Решение