Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
Drakh
0 / 0 / 0
Регистрация: 11.10.2010
Сообщений: 18
1

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

16.06.2012, 20:20. Просмотров 1626. Ответов 3
Метки нет (Все метки)

Подскажите в чем ошибка:

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
Uses crt;
 
const a:array[0..15] of char=('0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'A', 'B', 'C', 'D', 'E', 'F');
 
var uk, n, m, i, k: integer;
    rez:string;
    b:array[1..30]  of byte;
 
Begin clrscr;
write('Chislo = '); readln(n);
write('Osnovanie = '); readln(m);
uk:=0; rez:='';
while n>0 do
  begin
    inc(uk);
    b[uk]:=n mod m;
    n:=n div m;
  end;
 
writeln;
 
for i:=uk downto 1 do
  rez:=rez:+a[b[i]];
 
writeln('Rezultat perevoda = ', rez);
readkey
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.06.2012, 20:20
Ответы с готовыми решениями:

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

Перевод из одной системы счисления в другую
Перевести число из 10-ой системы в шестнадцатеричную.для вещественных чисел. и обратно из 16-ой в...

Перевод из одной системы счисления в другую
Программа для перевода числа со знаком из 2 в 10 систему счисления и обратно. 2=>10=>2. ...

Перевод из одной системы счисления в другую
Есть программа , переводящая число из одной системы счисления в другую , используя текстовые файлы...

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

3
eXPonent
99 / 52 / 27
Регистрация: 21.05.2012
Сообщений: 1,170
16.06.2012, 20:26 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
Uses crt;
 
const a:array[0..15] of char=('0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'A', 'B', 'C', 'D', 'E', 'F');
 
var uk, n, m, i, k: integer;
rez:string;
b:array[1..30] of byte;
 
Begin clrscr;
write('Chislo = '); readln(n);
write('Osnovanie = '); readln(m);
uk:=0; rez:='';
while n>0 do
begin
inc(uk);
b[uk]:=n mod m;
n:=n div m;
end;
 
writeln;
 
for i:=uk downto 1 do
rez:=rez+a[b[i]];
 
writeln('Rezultat perevoda = ', rez);
readkey
end.
1
Drakh
0 / 0 / 0
Регистрация: 11.10.2010
Сообщений: 18
18.06.2012, 20:53  [ТС] 3
А как сделать,чтобы еще и обратно мог переводить?например из 16 в 10.
0
eXPonent
99 / 52 / 27
Регистрация: 21.05.2012
Сообщений: 1,170
18.06.2012, 22:57 4
Перевод из любой системы счисления от 1 до 16 в 10
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Uses CRT;
 
Const Hex:string='0123456789ABCDEF';
Var s:string;
    n,i:integer;
    Dec:real;
    
BEGIN
 
Write('Число: ');        Readln(s);
Write('С основанием: '); Readln(n);
Dec:=0;
 
For i:=1 to Length(s) do 
 Dec:=Dec+(pos(s[i],Hex)-1)*power(n,Length(s)-i);
 
Writeln('Переведено в: ',Dec);
Writeln('С основанием: 10');
 
END.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.06.2012, 22:57

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

Перевод чисел из одной системы счисления в другую
Перевод чисел из одной системы счисления в другую: Запишите числа в прямом коде (формат 1 байт):на...

Перевод чисел из одной позиционной системы счисления в другую
1)напишите программу перевода правильной дроби из системы счисления с основанием Q (Q {от 2 до 9})...


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

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

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