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

@Yarikdik · Регистрация: 22.12.2009

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

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

@Жолдас · 26.12.2009, 16:30

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
program p1;
uses crt;
var k,j,i,systema:integer;
n:longint;
a:array[1..23] of integer;
s:string[23];
sh:string[1];
q:string[1];
label m1,m2,m3,m4;
begin   clrscr;
m3: begin         I:=1;
writeln('vvedite 4islo:');
readln(n);
m2: begin
writeln('vvedite sistemu s4islenia:');
readln(systema);
case systema of
2: systema:=2;
8: systema:=8;
16: systema:=16;
else
writeln('vvedennaya sistema ne rasprostranena, vvedite druguyu');
goto m2;
end;     end;
 
m1:  begin
a[i]:=(n mod systema);
n:=(n div systema);
inc(i);
end;
if n>0 then goto m1;
k:=i-1;
write('Otvet: ');
for J:=k downto 1 do
begin case a[j] of
10: s[j]:='a';
11: s[j]:='b';
12: s[j]:='c';
13: s[j]:='d';
14: s[j]:='e';
15: s[j]:='f';
else
str(a[j],sh);
s[j]:=sh[1];
end;
write(s[j]);
end;
writeln;
writeln('rabota programmy zavershena, zhealaete vvesti eshe 4islo?>Y/N');
m4: begin
readln(q);
case q[1] of
'y': goto m3;
'n': exit;
else
writeln('otvet ne veren vvedite drugoi otvet:');
goto m4
end;
end;
end;
readln;
end.

@Yarikdik · 26.12.2009, 16:48 **[ТС]**

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

@insolent · 27.12.2009, 19:22

Yarikdik, попробуй этот

код

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
Program to8;
  Uses Crt;
  Var
    s : string;         { число }
    fs,                 { основание числа }
    fd: integer;        { основание конвертирования }
 
  Function ntoa(n : integer) : char;  { Преобразует номер цифры в символ }
    Begin
      If (n >= 0) and (n <= 9)
        Then ntoa := Chr(Ord('0')+n)
      Else ntoa := Chr(Ord('A')-10+n);
    End;
 
  Function aton(A : char) : integer;  { Преобразует символ в номер цифры }
    Begin
      If (A >= '0') and (A <= '9')
        Then aton := Ord(A) - Ord('0')
      Else If (A >= 'a') and (A <= 'z')
        Then aton := Ord(A) - Ord('a') + 10
      Else
             aton := Ord(A) - Ord('A') + 10;
    End;
 
  { Преобразование из олной системы счисления в другую }
  { s - числов в системе счисления по основанию fs }
  { функция возвращает число в системе счисления fd }
  Function Conv(s : string;
                fs,
                fd : integer) : string;
    Var
      i : byte;
      A : longint;
      temp : integer;
     { ch : char;}
      sd : string;
    Begin
      A := 0;
      For i := 1 to length(s) do
        Begin
          temp := aton(s[i]);
          If (temp >= 0) and (temp <= fs)
            Then A := A*fs + temp
          Else Conv := 'Number has uncorrect format.';
                       { Число в неверном формате }
        End;
      sd := '';
      While A <> 0 do
        Begin
          sd := ntoa(A mod fd) + sd;
          A := A div fd;
        End;
      Conv := sd;
    End;
 
BEGIN
  ClrScr;
  Repeat
    Write('Введите число (0 - выход): ');          Readln(s);
    if s = '0' then break;
    Write('Введите основание введенного числа: '); Readln(fs);
    Write('Введите основание конвертирования: ');  Readln(fd);
    Writeln('Число ',s,' в ',fd,'-ной СС: ', Conv(s,fs,fd),#13#10);
  Until false;
  Readkey;
END.

@Yarikdik · 27.12.2009, 20:37 **[ТС]**

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

@insolent · 28.12.2009, 01:35

Yarikdik,

No Problem))

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
48
49
50
51
52
53
54
55
56
57
58
59
60
Program to8;
  Uses Crt;
  Var
    s : string;         { число }
 
  Function ntoa(n : integer) : char;  { Преобразует номер цифры в символ }
    Begin
      If (n >= 0) and (n <= 9)
        Then ntoa := Chr(Ord('0')+n)
      Else ntoa := Chr(Ord('A')-10+n);
    End;
 
  Function aton(A : char) : integer;  { Преобразует символ в номер цифры }
    Begin
      If (A >= '0') and (A <= '9')
        Then aton := Ord(A) - Ord('0')
      Else If (A >= 'a') and (A <= 'z')
        Then aton := Ord(A) - Ord('a') + 10
      Else
             aton := Ord(A) - Ord('A') + 10;
    End;
 
  { Преобразование из олной системы счисления в другую }
  { функция возвращает число в восьмеричной системе счисления }
  Function DecToOct(s : string) : string;
    Const
      fd : byte = 8;
    Var
      i : byte;
      A : longint;
      temp : integer;
      sd : string;
    Begin
      A := 0;
      For i := 1 to length(s) do
        Begin
          temp := aton(s[i]);
          If (temp >= 0) and (temp <= 10)
            Then A := A*10 + temp
          Else DecToOct := 'Number has uncorrect format.';
                       { Число в неверном формате }
        End;
      sd := '';
      While A <> 0 do
        Begin
          sd := ntoa(A mod fd) + sd;
          A := A div fd;
        End;
      DecToOct := sd;
    End;
 
BEGIN
  ClrScr;
  Repeat
    Write('Введите число (0 - выход): ');          Readln(s);
    if s = '0' then break;
    Writeln('Число ',s,' в восьмеричной СС: ', DecToOct(s),#13#10);
  Until false;
  Readkey;
END.

Новые блоги и статьи Все статьи Все блоги /
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20%	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .

@Yarikdik 0 / 0 / 0 Регистрация: 22.12.2009 Сообщений: 28

	Перевести число из десятиричной системы в восьмеричную (метод деления в столбик) 26.12.2009, 16:24. Показов 2425. Ответов 5 Метки нет (Все метки) Привет, помогите перевести число из десятиричной системы в восьмеричную, методом деления в столбик, на паскале. 0

@Yarikdik 0 / 0 / 0 Регистрация: 22.12.2009 Сообщений: 28
	26.12.2009, 16:48 [ТС]
	А можно эту прогу урезать только для перевода числа в восьмеричную систему.?? А то я в паскале чайник.... 0

@Yarikdik 0 / 0 / 0 Регистрация: 22.12.2009 Сообщений: 28
	27.12.2009, 20:37 [ТС]
	insolent, Прога то прикольная но не могли бы вы урезать ее ток для восьмеричной системы 0