Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Legendarno
0 / 0 / 0
Регистрация: 10.12.2010
Сообщений: 59
#1

из восьмеричной системы счисления в шестнадцатеричную - Pascal

25.12.2010, 00:11. Просмотров 530. Ответов 3
Метки нет (Все метки)

Написать программу перевода числа из восьмеричной системы счисления в шестнадцатеричную.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.12.2010, 00:11
Я подобрал для вас темы с готовыми решениями и ответами на вопрос из восьмеричной системы счисления в шестнадцатеричную (Pascal):

Перевод целого числа из десятичной системы счисления в шестнадцатеричную - Pascal
Нужно написать программу на Паскале. Помогите пожалуйста. И чем проще будут записи,тем лучше, я чайник в программировании.

Написать рекурсивную процедуру, переводящую целое число из восьмеричной системы счисления в десятичную - Pascal
Помогите плиз решить задание: Написать рекурсивную процедуру, переводящую целое число из восьмеричной системы счисления в десятичную. ...

Создать программу обучение переводу чисел из десятичной системы счисления в двоичную,восьмеричную, шестнадцатеричную. - Pascal
дополните программу код как можно чтобы при нажатии клавиши 3 осуществлялся выход из программы тоесть связать клавишу 3 с вариантом...

Используя стек осуществить перевод числа, представленного строкой, из двоичной системы счисления в шестнадцатеричную и обратно. - Pascal
Используя стек осуществить перевод числа, представленного строкой, из двоичной системы счисления в шестнадцатеричную и обратно. P.S:...

Вывести на экран запись числа, меньшего, чем 8^10, в виде 10 знаков в восьмеричной системе счисления - Pascal
Напишите процедуру, которая выводит на экран запись числа, меньшего, чем 8^10, в виде 10 знаков в восьмеричной системе счисления.

Перевод из двоичной системы в шестнадцатеричную - Pascal
Нужно мне сделать программу для перевода из двоичной системы в шестнадцатеричную, не знаю с чего начать, помогите пожалуйста!

3
use
179 / 179 / 33
Регистрация: 18.12.2010
Сообщений: 346
25.12.2010, 05:58 #2
Уот как-то так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
while s<>'' do begin
  t:=Copy(s,1,4);
  n:=0;
  for i:=1 to Length(t) do n:=n*8+Ord(t[i])-48;
  t:='';
  while n>0 do begin
    j:= n mod 16;
    if j<10 then c:=Chr(j+48) else c:=Chr(j+55);
    t:= c+t;
    while Length(t)<3 do t:= '0'+t;
    n:= n div 16
  end;
  r:= t+r;
  for i:=1 to 4 do if s<>'' do Delete(s,Length(s),1)
end;
while r[1]='0' do Delete(r,1,1);
if r='' then r:='0';
Могут быть ошибки, извини - торопился, было около 10 мин, выгоняли из кафе..
1
Legendarno
0 / 0 / 0
Регистрация: 10.12.2010
Сообщений: 59
25.12.2010, 08:22  [ТС] #3
та ничего за ошибки , подправлю , спасибо большое !!!!!!
0
use
179 / 179 / 33
Регистрация: 18.12.2010
Сообщений: 346
25.12.2010, 10:13 #4
Да, действительно было несколько ошибок. Вот, исправил:
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
const
  s: string= '13454636345425724537234270525472054720765024707750420504725';
var
  i,j,n: integer;
  t,r: string;
  c: char;
 
begin
  WriteLn('Octal: ',s);
  r:='';
  while s<>'' do begin
    t:=Copy(s,Length(s)-4+1,4);
    n:=0;
    for i:=1 to Length(t) do n:=n*8+Ord(t[i])-48;
    t:='';
    while n>0 do begin
      j:= n mod 16;
      if j<10 then c:=Chr(j+48) else c:=Chr(j+55);
      t:= c+t;
      n:= n div 16
    end;
    while Length(t)<3 do t:= '0'+t;
    r:= t+r;
    for i:=1 to 4 do if s<>'' then Delete(s,Length(s),1)
  end;
  while Pos('0',r)=1 do Delete(r,1,1);
  if r='' then r:='0';
  WriteLn('Hex: ',r);
  ReadLn
end.
По идее, можно вводить число любой длины - ограничено только длиной строки. Если использовать длинные строки, это ограничение тоже снимается .
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.12.2010, 10:13
Привет! Вот еще темы с ответами:

Перевод любого числа из 16 системы счисления в 2 систему счисления. - Pascal
Здравствуйте,помогите решить задачку в Pascal !!! Для перевода любого числа из 16 системы счисления в 2 систему счисления. ...

Перевести введенное число 0 ≤ х ≤ 31 в шестнадцатеричную систему счисления - Pascal
Давно не программировал, стало забываться. Задание. Перевести введенное число 0 ≤ х ≤ 31 в шестнадцатеричную систему счисления. ...

Системы счисления - Pascal
Даны 2 вещественных числа с фиксированной точкой без знака в 10 системе. Их нужно перевести в 8 систему, а затем из 8 в 2 систему...

системы счисления - Pascal
Почему неправильно переводит дробную часть с 10 сс в 10 сс? uses crt; const a: string = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'; ...


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

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

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