Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/9: Рейтинг темы: голосов - 9, средняя оценка - 4.67
31 / 31 / 16
Регистрация: 02.11.2011
Сообщений: 216
1

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

04.12.2011, 15:18. Показов 1722. Ответов 3
Метки нет (Все метки)

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

Добавлено через 3 часа 9 минут
помогите

Добавлено через 20 часов 29 минут
помогиииииииииииите

Добавлено через 57 секунд
помогиииииииииииите

Добавлено через 10 секунд
помогиииииииииииите
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.12.2011, 15:18
Ответы с готовыми решениями:

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

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

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

Перевод из одной системы счисления в другую
Подскажите в чем ошибка: Uses crt; const a:array of char=('0', '1', '2', '3', '4', '5', '6',...

3
31 / 31 / 16
Регистрация: 02.11.2011
Сообщений: 216
04.12.2011, 15:31  [ТС] 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
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
program L6_19;
uses
crt;
procedure Vvod(s:string;var t:integer; var f:real;var k:integer;var z:char);
var
c:integer;
x:real;
begin
repeat
write('Введите правильную десятичную дробь а=');
read(s);
val(s,x,c);{попробуем преобразовать в вещественное число}
{если не число или нет дродной части, повтор}
if (c<>0) or(pos('.',s)=0) then
write('Ввод не верный, повторите ');
until (c=0) and(pos('.',s)>0);
val(copy(s,1,pos('.',s)-1),t,c);{целая часть}
z:=#0;{если не минус}
if t<0 then {если отрицательное}
begin
z:='-'; {знак минус}
t:=abs(t); {число по модулю}
end;
val(copy(s,pos('.',s),length(s)-pos('.',s)+1),f,c);{дробная}
k:=length(s)-pos('.',s);{количество цифр в дробной части}
end;
{перевод целой части}
procedure DecToBinTr(x:integer;var res:string);
const c:array [0..1] of char= ('0','1');
var
d:0..1;
begin
res:='';{пока цифр нет}
while x<>0 do{пока число не 0}
begin
d:=x mod 2;{берем остаток от 2}
res:=c[d]+res;{приписываем в начало символ омстатка 0 или 1}
x:=x div 2;{сокращаем число в 2 раза}
end;
end;
{перевод дробной части}
procedure FracToBin(x:real;k:integer;var s:string);
var
a:integer;{переменная целого типа для получения цифр}
begin
s:='';{начальное значение строки}
{пока длина строки меньше количества цифр в дробной части}
while length(s)<k do{t-точность, сколько знаков после запятой}
begin
x:=x*2;{умножаем на 2}
a:=trunc(x);{берем целую часть, только первую цифру 0 или 1}
s:=s+chr(a+48);{дописываем в строку символ этой цифры 0=#48, 1=#49}
x:=x-a;{вычитаем целую часть и все повторяем}
end;
end;
var
a,res,s:string;
c,t:integer;
x:real;
z:char;
begin
Vvod(a,c,x,t,z);
DecToBinTr(c,res);
FracToBin(x,t,s);
res:=z+res+'.'+s;
if a[1]='-' then res:='-'+res;
write('Число в СС 2=',res);
end.
0
122 / 122 / 73
Регистрация: 29.10.2011
Сообщений: 308
04.12.2011, 15:39 3
про перевод из одной СС в другую, читай тут Перевод в различные системы счисления
0
SuPeR XaKer
04.12.2011, 15:55     Перевод чисел из одной системы счисления в другую
  #4
 Комментарий модератора 
sheldon-yura,
4. Запрещено размещать тему в нескольких разделах одновременно (кросспостинг), а также дублировать тему в одном разделе.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.12.2011, 15:55
Привет! Вот еще темы с ответами:

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

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

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

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


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

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

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