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

Перевести число из 16 СС в 10 СС

27.01.2013, 13:50. Показов 1349. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите пожалуйста! Выводит ошибку "Неверное количество фактических параметров"(17 строка)
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
uses crt;
var
    hexa: string; {øåñòíàäöàòåðè÷íîå ÷èñëî}
    n: byte; {åãî äëèíà}
    ch: char; {öèôðà î÷åðåäíîãî ðàçðÿäà êàê ñèìâîë}
    digit: byte; {öèôðà î÷åðåäíîãî ðàçðÿäà}
    m: byte; {ñòåïåíü 16}
    decimal: integer; {äåñÿòè÷íîå ÷èñëî}
    i: byte;
 
 
function pow16(m: byte):integer;
var i: byte;
begin
    pow16 := 1;
    for i := 1 to m do
        pow16 := pow16 * 16;
end;
 
begin
    write('Hexadecimal: ');
    readln(hexa);
 
    n := length(hexa);
 
    decimal := 0;
    m := n;
    for i:=1 to n do begin
        ch := hexa[i];
        if ch in ['A'..'F'] then
            case ch of
            'A': digit := 10;
            'B': digit := 11;
            'C': digit := 12;
            'D': digit := 13;
            'E': digit := 14;
            'F': digit := 15
            end
        else
            digit := ord(ch) - ord('0');
        m := m - 1;
        decimal := decimal + digit * pow16(m);
    end;
 
    writeln('Decimal: ',decimal);
 
readln
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.01.2013, 13:50
Ответы с готовыми решениями:

Дано число n. Требуется перевести это число в римскую систему счисления
Дано число n. Требуется перевести это число в римскую систему счисления. Вход 9 Выход IX Вход ...

Перевести число в формате ieee-754 в число в десятеричной с.о
Здравствуйте. Как в джаве написать перевод числа в формате ieee-754 в число в десятеричной с.о.?...

Перевести число в число прописью
Я никак не пойму как делать. Вроде задание простое. Задача на С#. Программа принимает от...

Число прописью перевести в число
Доброго всем времени суток! Столкнулся с проблемой, нужно строку, к примеру "Одна тысяча...

2
3030 / 1916 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
27.01.2013, 13:56 2
Функцию лучше описать так:
Pascal
1
2
3
4
5
6
7
8
9
function pow16(m: byte):integer;
var i: byte;
    p: Integer;
begin
    p := 1;
    for i := 1 to m do
        p := p * 16;
    pow16:=p;
end;
1
Почетный модератор
64299 / 47594 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
27.01.2013, 13:59 3
Цитата Сообщение от Kodzaev Посмотреть сообщение
Функцию лучше описать так:
Не лучше, а именно так.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.01.2013, 13:59
Помогаю со студенческими работами здесь

Задаётся число в виде текста как а$.Как перевести этот текст в число?
Есть переменная a$=1 , в виде текста , как преобразовать её в цифру 1?

Число перевести в ПК и ДК
как перевести число в прямой код и как перевести число в дополнительный код?

Перевести число из 10 СС в 2 СС
У меня есть число типа "uint". Как получить запись этого числа в 2 системе счисления? И дальше мне...

Перевести число из 7 сс в 10-ую сс
Помогите дописать програмку, Перевести число из 7 сс в 10-ую сс, 19-ую сс и 28-ую систему счисления...

Перевести строку в число
В чистом c++ есть ф-ция stoi, переводящая string в int, а в билдере есть atoi, переводящая char* в...

Перевести время в число
В общем такая вот проблема нужно перевести время в число. К примеру 1 час 45 минут = 1,75 ...


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

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

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