Форум программистов, компьютерный форум, киберфорум
Наши страницы

PascalABC.NET

Войти
Регистрация
Восстановить пароль
 
АртемФадеев
0 / 0 / 0
Регистрация: 05.06.2014
Сообщений: 1
#1

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

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

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

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

Перевод числа из любой системы счисления в десятичную систему счисления - PascalABC.NET
дано число типа integer, записанное в любой другой системе счисления. перевести это число в 10сс. Очень нужна помощь!!

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

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

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

Перевод чисел из одной системы счисления в другую, требуется пояснение - PascalABC.NET
var provint,celoe,chislo,sistem2,max,i,q,f, sistem1c,sistem1,dlina,b1,summa,dobavka,cifraint,povt,povt1:longint;...

1
APALoff
1636 / 1065 / 470
Регистрация: 03.07.2013
Сообщений: 4,506
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
Привет! Вот еще темы с ответами:

Написать процедуру перевода десятичного числа в 2-ю систему счисления и функцию возведения в n-ю - Pascal
2.Написать ПРОЦЕДУРУ перевода десятичного числа в 2-ю систему счисления. Написать ФУНКЦИЮ возведения числа в n-ю степень.

Перевод любого числа из 16 системы счисления в 2 систему счисления. - Pascal
Здравствуйте,помогите решить задачку в Pascal !!! Для перевода любого числа из 16 системы счисления в 2 систему счисления. ...

Перевод числа в систему счисления - Pascal
Здравствуйте уважаемые форумчане!Сессия прошла бы удачно,но есть недочеты в моей задаче :( Задачам» 5 Условие Составить алгоритм...

Перевод числа из пятеричной системы в десятичную систему счисления. - Pascal
помогите сделать 2 лабы пожалуйста, а то оч надо Заранее благодарен !! вот задание : 1)Написать программу перевода числа из...


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

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

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