Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
АртемФадеев
0 / 0 / 0
Регистрация: 05.06.2014
Сообщений: 1
1

Перевод десятичного числа в другую систему счисления

08.06.2014, 13:23. Просмотров 1054. Ответов 1
Метки нет (Все метки)

написать программу, которая переводит натуральное десятичное число N систему счисления с основанием p (p<10).
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.06.2014, 13:23
Ответы с готовыми решениями:

Перевод десятичного числа в системы счисления от [2;9]. Найдите ошибку
Учусь писать программы. Написал и все проверил, но все равно ошибки найти не получилось в силу...

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

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

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

Перевод в систему счисления
Выручайте: Исходный текстовый файл содержит числа в шестнадцатеричной системе счисления,...

1
APALoff
1638 / 1067 / 1080
Регистрация: 03.07.2013
Сообщений: 4,507
09.06.2014, 11:53 2
Лучший ответ Сообщение было отмечено как решение

Решение

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
Const
{ alphavit : string[36] = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';}
  alphavit : array[0..35] of Char = ('0','1','2','3','4','5','6','7','8','9',
                                     'A','B','C','D','E','F','G','H','I','J',
                                     'K','L','M','N','O','P','Q','R','S','T',
                                     'U','V','W','X','Y','Z');
Function IntToN(A : Longint; Raz : Byte) : String;
Var
  S : String;
  n : Longint;
    Function NTC(N : Byte) : Char;
    Begin
      If N in [0..35] then
      NTC:=alphavit[N];
    End;
Begin
  S:=''; n:=A;
  While n>0 do
  Begin
    S:=NTC(n mod Raz)+S;
    n:=n div Raz;
  End;
  IntToN:=S;
End;
 
Function NToInt(S : String; Raz : Byte) : Longint;
  Function k10(k : Byte) : Longint;
  Begin
    If k>0 then k10:=Raz*k10(k-1)
      else k10:=1;
  End;
  Function CTN(C : Char) : Byte;
  Var ii : Byte;
  Begin
    CTN:=0;
    For ii:=0 to 35 do
      If alphavit[ii]=UpCase(C) then
      Begin
        CTN:=ii;
        Break;
      End;
  End;
Begin
  If Length(S)>1 then
    NToInt:=CTN(S[1])*k10(Length(S)-1)+NToInt(Copy(S,2,Length(S)-1),Raz)
  else
    NToInt:=CTN(S[1]);
End;
 
Begin
 {} Writeln(IntToN(4,2));
 {} Writeln(IntToN(10,16));
 {} Writeln(NToInt('100',16));
 {} For Var i:=2 to 16 do
 {} Begin
 {}   Writeln(i,'  ',IntToN(10,i));
 {} End;  
End.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.06.2014, 11:53

Перевод в восьмеричную систему счисления
Напишите программу, которая переводит переданное её целое число (возможно, отрицательное) в...

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

Перевод чисел из одной системы счисления в другую, требуется пояснение
var provint,celoe,chislo,sistem2,max,i,q,f,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru