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

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

31.05.2018, 22:10. Просмотров 942. Ответов 1
Метки нет (Все метки)

Уважаемые разбирающиеся во всём этом люди, прошу вас помочь мне с этой задачей

Примечания
1. Число в заданной системе счисления должно вводиться с клавиатуры.
2. Так как переводятся целые числа, то лучше всего использовать для результата четырехбайтный целочисленный тип данных Longint, так как под тип Integer отводится только 2 байта.
3. Длина числа должна быть 5-4 цифры (символа), причем состоять минимум из двух букв (осталь-ные – десятичные арабские цифры).
4. При вводе недопустимых символов, например х или точки, должно выводиться какое-либо со-общение без вывода результата.

Так же мне надо будет построить блок-схему. Надеюсь, она не будет сильно отличаться от обычной...
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.05.2018, 22:10
Ответы с готовыми решениями:

Перевести число из системы счисления с основанием 20 в 16-ю сс
Дано число в системе счисления с основанием 20, в котором буквенные обозначения цифр могут быть...

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

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

Перевести число из пятеричной системы счисления в десятичную
Вводится массив, хранящий цифры числа в пятеричной системе счисления, начиная с младших. Вычислить...

1
3603 / 1700 / 1926
Регистрация: 10.12.2014
Сообщений: 6,649
01.06.2018, 06:42 2
Лучший ответ Сообщение было отмечено Zhen33 как решение

Решение

Цитата Сообщение от Zhen33 Посмотреть сообщение
2. Так как переводятся целые числа, то лучше всего использовать для результата четырехбайтный целочисленный тип данных Longint, так как под тип Integer отводится только 2 байта.
Что за чушь!
Integer и Longint для PABC.NET синонимы. И под них отводится 4 байта.
Ну и вообще, можно легко все операции производить над строками и числовыми массивами, чтобы не ограничивать себя размерами числа…
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
const
  Base=19;
  ABC='0123456789ABCDEFGHI';
begin
  var sBase:=ReadLnString($'Введите число в {Base} системе счисления:').ToUpper;
  var err:=sBase.Where(c->ABC.IndexOf(c)<0);
  if err.Count>0 then
    begin
      Write('Встречены недопустимые символы: "'); err.Distinct.Print('", "'); WriteLn('".');
      Halt;
    end;
  var L:=New List<integer>;L.Add(0);
  foreach var c in sBase do
    begin
      var(p,i):=(ABC.IndexOf(c),1);p+=L[0]*Base;L[0]:=p mod 10;p:=p div 10;
      while i<L.Count do begin p+=L[i]*Base;L[i]:=p mod 10;p:=p div 10;i+=1;end;
      while p>0 do begin L.Add(p mod 10);p:=p div 10;end;
    end;
  WriteLn(L.Reverse.JoinIntoString(''));
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.06.2018, 06:42

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

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

Перевести число в 10-ю систему счисления
Дано шестнадцатеричное число, в котором буквенные обозначения цифр могут быть записаны как...

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

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


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

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

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