Перевести целое число n из двоичной системы счисления в 8-ричную

@mandarin · Регистрация: 25.12.2012

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

Перевести целое число n, произвольной длины, из двоичной системы счисления в 8-ричную.
(сказали что обязательно нужно через строки,а я совсем забыла как с ними работать... вот что получилось):

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
program arifmettika;
uses crt;
var
   perv,vspom,res:string;
   g:byte;
Begin
clrscr;
write('vvedi chislo v dwoichnoj SS-');
readln(perv);
res:='';
vspom:='';
while length(perv)<>0 do
 
  begin
    vspom:=copy(perv,3,length(perv)-2);
    val(vspom,g);
    case g of
    001: insert('1',res,1);
    010: insert('2',res,1);
    011: insert('3',res,1);
    100: insert('4',res,1);
    101: insert('5',res,1);
    110: insert('6',res,1);
    111: insert('7',res,1);
    end;
    delete(perv,3,length(perv)-2);
    delete(vspom,3,1);
  end;
write('perevedennoe chislo=',res);
readln;
end.

@Puporev · 25.12.2012, 15:54

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
uses crt;
const trd:array[0..7] of string[3]=('000','001','010','011',
                                    '100','101','110','111');
var s2,s8:string;
    i:integer;
    c:char;
begin
clrscr;
{ввод числа}
s2:='';
writeln('Введите число в 2 системе счисления, окоечание ввода Enter:');
repeat
c:=readkey;
if c in ['0','1'] then
 begin
  write(c);
  s2:=s2+c;
 end;
if c=#13 then writeln;
until c=#13;
{перевод в СС 8}
while length(s2) mod 3 <> 0 do s2:='0'+s2;
//дополняем строку влево до длины, кратной 3
s8:='';
while s2<>'' do
 begin
  for i:=0 to 7 do
  if copy(s2,1,3)=trd[i] then s8:=s8+chr(i+48);
  {сравниваем с массивом значений для перевода
  и записываем найденное значение в строку S8}
  delete(s2,1,3);{удаляем триаду}
 end;
writeln('Число в 8 системе счисления:');
write(s8);
readln
end.

@mandarin · 25.12.2012, 16:36 **[ТС]**

сама додумалась, вроде правильно работает

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
38
39
40
41
42
43
44
45
46
47
program arifmettika;
uses crt;
var
   perv,vspom,res:string;
   g:byte;
Begin
clrscr;
write('vvedi chislo v dwoichnoj SS-');
readln(perv);
res:='';
vspom:='';
while length(perv)>0 do
    begin
    if length(perv)<3 then begin
    val(perv,g);
    case g of
    1: insert('1',res,1);
    10: insert('2',res,1);
    11: insert('3',res,1);
    100: insert('4',res,1);
    101: insert('5',res,1);
    110: insert('6',res,1);
    111: insert('7',res,1);
    end ;
    delete(perv,1,(length(perv)));
    end
    else begin
     vspom:=copy(perv,(length(perv)-2),3);
     val(vspom,g);
     case g of
    0: insert('0',res,1);
    1: insert('1',res,1);
    10: insert('2',res,1);
    11: insert('3',res,1);
    100: insert('4',res,1);
    101: insert('5',res,1);
    110: insert('6',res,1);
    111: insert('7',res,1);
     end;
    delete(perv,(length(perv)-2),3);
    delete(vspom,1,3);
    end;
    end;
 
write('perevedennoe chislo=',res);
readln;
end.

Новые блоги и статьи Все статьи Все блоги /
Асинхронные операции в Django с Celery py-thonny 05.04.2025 Разработчики Django часто сталкиваются с проблемой, когда пользователь нажимает кнопку отправки формы и. . . ждёт. Секунды растягиваются в минуты, терпение иссякает, а интерфейс приложения замирает. . . .	Использование кэшей CPU: Максимальная производительность в Go golander 05.04.2025 Разработчикам хорошо известно, что эффективность кода зависит не только от алгоритмов и структур данных, но и от того, насколько удачно программа взаимодействует с железом. Среди множества факторов,. . .	Создаем Telegram бот на TypeScript с grammY run.dev 05.04.2025 Одна из его самых сильных сторон Telegram — это интеграция ботов прямо в экосистему приложения. В отличие от многих других платформ, он предоставляет разработчикам мощный API, позволяющий создавать. . .	Паттерны распределённых транзакций в Event-Driven микросервисах ArchitectMsa 05.04.2025 Современные программные системы всё чаще проектируются как совокупность взаимодействующих микросервисов. И хотя такой подход даёт множество преимуществ — масштабируемость, гибкость, устойчивость к. . .	Работа с объемным DOM в javascript Htext 04.04.2025 Сегодня прочитал статью тут о расходах памяти в JS, ее утечках и т. п. И вот что вспомнил из своей недавней практики. Может, кому пригодится. Хотя, в той статье об этом тоже есть. Дело в том, что я. . .
Оптимизация производительности Node.js с помощью кластеризации run.dev 04.04.2025 Масштабирование приложений для обработки тысяч и миллионов запросов — обыденная задача для многих команд. Node. js, благодаря своей асинхронной событийно-ориентированной архитектуре, стал популярной. . .	Управление зависимостями в Python с Poetry py-thonny 04.04.2025 Стандартный инструмент для установки пакетов в Python - pip - прекрасно справляется с базовыми сценариями: установил пакет командой pip install и используешь его. Но что произойдёт, когда разные. . .	Мониторинг с Prometheus в PHP Jason-Webb 04.04.2025 Prometheus выделяется среди других систем мониторинга своим подходом к сбору и хранению метрик. В отличие от New Relic, который использует агентный подход и отправляет данные во внешнее хранилище,. . .	Пакет Context в Golang: Управление потоками и ресурсами golander 04.04.2025 Работа с горутинами в Go часто напоминает управление непослушными детьми - они разбегаются кто куда, делают что хотят и не всегда завершаются вовремя. К счастью, в Go 1. 7 появился пакет context,. . .	Контейнеризация React приложений с Docker Reangularity 03.04.2025 Контейнеризация позволяет упаковать приложение со всеми его зависимостями в автономный контейнер, который можно запустить на любой платформе с установленным Docker. Это существенно упрощает процессы. . .