Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 09.11.2011
Сообщений: 57
1

Написать программу для перевода из одной в другую систему счисления

21.01.2014, 20:58. Просмотров 1189. Ответов 2
Метки нет (Все метки)

написать программу для перевода из двоичной в десятеричную, из восьмеричной в шестнадцатеричную систему счисления с функцией ввода чисел
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.01.2014, 20:58
Ответы с готовыми решениями:

Программа для перевода из десятичной сс в любую другую систему счисления
Создать программу перевода заданного числа в десятичной системе счисления в любую другую. Исходные...

Программа для перевода чисел из одной системы счисления в другую
uses crt; var cs1,cs2,res,change:integer; TD:string; {функция перевода Dec числа в любую...

Написать программу перевода числа из пятеричной системы в десятичную систему счисления
1)1. Написать программу перевода числа из пятеричной системы в десятичную систему счисления....

Программа перевода из одной системы счисления в другую
Господа .... очень нужна помощь ... мне необходимо написать программу по переводу из любой сс(<16)...

2
1 / 1 / 1
Регистрация: 20.10.2013
Сообщений: 29
22.01.2014, 08:05 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
program z1;
 
var  ish_chislo:integer;
     osn_CC:byte;
     ost:integer;
     buf:string [1];
       s:string [16];
 
begin
     writeln('Vvedite ish chislo');
 
 
     readln(ish_chislo);
     writeln('osnovanie SS');
 
     readln(osn_CC);
     s:='';
while(  ish_chislo and osn_CC)<>0 do   repeat
     ost:= ish_chislo mod osn_CC;
     ish_chislo:= ish_chislo div osn_CC;
     str(ost, buf);
     s:=buf+s;
    until ish_chislo=0; writeln('Rezultal');
     writeln(s); readln;  end.
перевод из любой системы счисления от 2-й до 10-й в любую от 2-й до 10-й. Для 16-й была гдет, но не нашел на компе. Поищите по форуму.
1
Модератор
60182 / 45323 / 31275
Регистрация: 18.05.2008
Сообщений: 108,860
22.01.2014, 12:31 3
Лучший ответ Сообщение было отмечено toxa08116 как решение

Решение

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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
uses crt;
function vvod(base:byte):string;
var s:string;
    i:byte;
    f:boolean;
begin
repeat
write('Ââåäèòå ÷èñëî â ÑÑ ',base,' ch=');
readln(s);
f:=true;
i:=1;
while(i<=length(s))and f do
if not(ord(s[i])-48 in [0..base-1])then f:=false
else inc(i);
if f then vvod:=s
else writeln('Ââåäåíî íåâåðíîå ÷èñëî, ïîâòîðèòå ââîä')
until f
end;
function bintodec(s:string):longint;
var i,j:byte;
    sum,sum1:longint;
begin
sum:=0;
for i:=length(s) downto 1 do
 begin
  if s[i]='1' then
   begin
    sum1:=1;
    for j:=1 to length(s)-i do sum1:=sum1*2;
   end
  else sum1:=0;
  sum:=sum+sum1;
 end;
bintodec:=sum
end;
function octtohex(s:string):string;
const tetr:array[0..15] of string[4]=('0000','0001','0010','0011',
                                      '0100','0101','0110','0111',
                                      '1000','1001','1010','1011',
                                      '1100','1101','1110','1111');
      trd:array[0..7] of string[3]=('000','001','010','011',
                                    '100','101','110','111');
var s2,s16:string;
    i:integer;
begin
{ïåðåâîä â ÑÑ 2}
s2:='';
for i:=1 to length(s) do
s2:=s2+trd[ord(s[i])-48];
{ïåðåâîä â ÑÑ 16}
while length(s2) mod 4<>0 do s2:='0'+s2;{äîáàâèì â íà÷àëî 0 äî êðàòíîñòè 4}
s16:='';
while s2<>'' do
 begin
  for i:=0 to 15 do
  if copy(s2,1,4)=tetr[i]then {÷èòàåì òåòðàäó}
   begin
    if i in [0..9] then s16:=s16+chr(i+48){ïèøåì èëè öèôðó}
    else s16:=s16+chr(i+55);{èëè áóêâó A..F}
   end;
  delete(s2,1,4);{óäàëèì òåòðàäó}
 end;
while (s16[1]='0')and(length(s16)>1) do delete(s16,1,1);{óäàëèì âåäóùèå íîëè}
octtohex:=s16
end;
 
var s,s16:string;
    n:longint;
begin
clrscr;
s:=vvod(2);
n:=bintodec(s);
writeln('Ýòî ÷èñëî â ÑÑ 10=',n);
s:=vvod(8);
s16:=octtohex(s);
writeln('Ýòî ÷èñëî â ÑÑ 16=',s16);
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.01.2014, 12:31

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

Программа перевода чисел из одной системы счисления в другую
8.Программа перевода чисел из одной системы счисления в другую. (Из любой – в любую. Минимум –...

Написать программу для перевода чисел из одной системы счисления в другую
написать программу для перевода из одной системы счисления в другую. Из 8 в 2; из 10в 8

Написать программу в паскале для перевода чисел из определённых интервалов в троичную систему счисления и обратно. 10 класс #1
Написать программу в паскале для перевода чисел из определённых интервалов в троичную систему...

Программа для перевода чисел из одной системы счисления в другую
Написать программу для перевода чисел из одной системы счисления в другую. Из 10 в 2, Из 16 в 8....


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

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

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