Перевод числа из 10сс в 2сс,8сс и 16сс с заданием числа вещественного типа

@Rage923 · Регистрация: 21.04.2010

Author24 — интернет-сервис помощи студентам

Здраствуйте. Помогите с решением задачи. Задание: перевести число из десятичной системы счисления в двоичную, восьмиричную и шестнадцатиричную с.с. Число которое я задаю должно быть вещественного типа т.е. с дробной частью например 123,4. У меня получился перевод в целой части, а вот с дробной проблема. Меня интересует, как реализовать дробную часть к моей программе, чтоб на ввод числа я ввел к примеру 123.4, а потом получил результаты в 2сс, 8сс и 16сс и чтоб у них тоже была дробная часть. Спасибо

Pascal

uses crt;
var a:array[1..20] of longint;
i,k,l,g:longint;
q:integer;
n:real;
m:integer;
str1:string;
begin
clrscr;
writeln ('vvedite chislo dlya perevoda- ');
readln(n);
 
m:=n-trunc(n);
for i:=1 to 4 do
if trunc(m*2)>1  then
str1:=str1+'1';
m:=m*2-1;
if trunc(m*2)<1  then
else str1:=str1+'0';
m:=m*2;
 
 
 
 
 
l:=0;
g:=n;
while g>0 do
begin
l:=l+1;
a[l]:=g mod 2;
g:=g div 2;
end;
writeln('2ss zapis dannogo chisla: ');
for k:=l downto 1 do write(a[k]);
write (',',str1);
writeln;
 
 
begin
{writeln ('vvedite chislo dlya perevoda- ');
readln(n);}
l:=0;
g:=n;
while g>0 do
begin
l:=l+1;
a[l]:=g mod 8;
g:=g div 8;
end;
writeln('8ss zapis dannogo chisla: ');
for k:=l downto 1 do write(a[k]);
end;
writeln;
 
begin
{writeln ('vvedite chislo dlya perevoda- ');
readln(n);]}
l:=0;
g:=n;
while g>0 do
begin
l:=l+1;
a[l]:=g mod 16;
g:=g div 16;
end;
writeln('16ss zapis dannogo chisla: ');
for k:=l downto 1 do
case a[k] of
 10 :write('A');
 11 :write('B');
 12 :write('C');
 13 :write('D');
 14 :write('E');
 15 :write('F');
 Else
write(a[k])
end;
end;
readln;
end.

@Rage923 · 22.04.2010, 00:28 **[ТС]**

помогите кто-нибудь доделать программу! Целую часть считает, а как с дробную часть добавить?

Pascal

uses crt;
var a:array[1..20] of longint;
n,k,l,g:longint;
begin
clrscr;
writeln ('vvedite chislo dlya perevoda- ');
readln(n);
l:=0;
g:=n;
while g>0 do
begin
l:=l+1;
a[l]:=g mod 2;
g:=g div 2;
end;
writeln('2ss zapis dannogo chisla: ');
for k:=l downto 1 do write(a[k]);
writeln;
 
 
begin
l:=0;
g:=n;
while g>0 do
begin
l:=l+1;
a[l]:=g mod 8;
g:=g div 8;
end;
writeln('8ss zapis dannogo chisla: ');
for k:=l downto 1 do write(a[k]);
end;
writeln;
 
begin
{writeln ('vvedite chislo dlya perevoda- ');
readln(n);]}
l:=0;
g:=n;
while g>0 do
begin
l:=l+1;
a[l]:=g mod 16;
g:=g div 16;
end;
writeln('16ss zapis dannogo chisla: ');
for k:=l downto 1 do
case a[k] of
 10 :write('A');
 11 :write('B');
 12 :write('C');
 13 :write('D');
 14 :write('E');
 15 :write('F');
 Else
write(a[k])
end;
end;
readln;
end.

вот эта часть которая считает цельную часть, как и что добавить чтоб считал число с дробной частью?

@Rage923 · 23.04.2010, 21:32 **[ТС]**

Pascal

uses crt;
var a:real;     {vvodimoe chislo obchee}
q:real;
str1:string;
i: integer;
begin
clrscr;
write('Vvedite drobnoe chislo=');
readln(a);
 
q:=frac(a);
begin
for i:=1 to 4 do
begin
q:=q*2;
if (q*2)=1.0 then
begin
writeln(q:4:2);
write(a:4:2);
write (',',str1);
end;
 
if (q*2)<>1 then
begin
if (q*2)>1 then
begin
str1:=str1 + '1';
q:=q*2-1;
end
 
else
str1:=str1 + '0';
end;
 
writeln(q:4:2);
write(a:4:2);
write (',',str1);
end;
end;
end.

@Rage923 · 23.04.2010, 23:31 **[ТС]**

все заработало здесь

Добавлено через 1 час 49 минут

Pascal

uses crt;
var a:real;     {vvodimoe chislo obchee}
q:real;
str1:string;
i: integer;
begin
clrscr;
write('Vvedite drobnoe chislo=');
readln(a);
 
q:=frac(a);
begin
for i:=1 to 4 do
begin
q:=q*2;
if q=1 then
begin
writeln(q:4:2);
write(a:4:2);
write (',',str1,'1');
break
end;
 
if q<>1 then
 
begin
if q>1 then
begin
str1:=str1 + '1';
q:=q-1;
end
 
else
str1:=str1 + '0';
end;
 
writeln(q:4:2);
write(a:4:2);
write (',',str1);
end;
end;
end.

	23.04.2010, 23:31