0 / 0 / 0
Регистрация: 02.06.2015
Сообщений: 3
1

Перевод чисел из 16-ой в 10-ую систему счисления

15.05.2008, 21:34. Показов 2540. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
прграмма перевода чисел из 16-ой в 10-ую :huh:
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.05.2008, 21:34
Ответы с готовыми решениями:

Перевод целых неотрицательных чисел из системы счисления M в систему счисления N, где 2 <= M, N <= 16
Перевод целых неотрицательных чисел из системы счисления M в систему счисления N, где 2 &lt;= M, N &lt;=...

Перевод целых неотрицательных чисел из системы счисления M в систему счисления N, где 2 <= M, N <= 16
Перевод целых неотрицательных чисел из системы счисления M в систему счисления N, где 2 &lt;= M, N &lt;=...

Перевод действительных неотрицательных чисел из системы счисления M в систему счисления N, где 2<=M,N<=16
Добрый вечер. Помогите с заданием, пожалуйста. Перевод действительных неотрицательных чисел из...

Перевод целых неотрицательных чисел с десятичной системы счисления в двоичную систему счисления
Перевод целых неотрицательных чисел с десятичной системы счисления в двоичную систему счисления.

2
Флудер
195 / 33 / 11
Регистрация: 23.03.2007
Сообщений: 334
16.05.2008, 11:24 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
uses crt;
var
    s   :string;
    i,n,k :integer;
begin
    readln(s);
    for i := 1 to length(s) do
    begin
        k := ord(UpCase(s[i]));
        case k of
            48..57:
                n := n +  (k - ord('0')) * (1 shl (4 * (length(s) - i)));
        else
            if (k < ord('a')) and (k > ord('f')) then
            begin
                write('number is not valid');
                readkey;
                exit;
            end;
            n := n + (k - ord('A') + 10) * (1 shl (4 * (length(s) - i)));
        end;
 
    end;
    writeln(n);
    readkey;
end.
0
13207 / 6595 / 1041
Регистрация: 10.01.2008
Сообщений: 15,069
16.05.2008, 21:01 3
Еще можно так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
program hex2dec;
var s:string;
    i,c:Integer;
begin
    Write('Input Hexadecimal number: ');
    ReadLn(s);
    Val('$'+s,i,c);
    if c=0 then
        WriteLn('Decimal value: ',i)
    else
        WriteLn('Invalid input position: ',c);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.05.2008, 21:01
Помогаю со студенческими работами здесь

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

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

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

Перевод чисел из 16 системы счисления в 2 систему счисления
Помогите составить программу для перевод чисел из 16 с/c в 2 c/c при условии,что программ может...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru