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

22.12.2009, 23:20. Показов 1617. Ответов 0

Метки нет (Все метки)

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

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

Pascal

Program rt;
uses crt;
var
 s:string;
 n,a,i,st,kod,p,m,z:integer;
 sum,k:real;
begin
clrscr;
sum:=0;
writeln('vvedite 2-oi chislo');
readln(s);
n:=length(s);
for i:=1 to length(s) do
  while (s[i]>'1')  do
  begin
   writeln ('Nepravelny vvod dannyh!');
   readln; exit;end;
 a:=pos('.',s);
if a=0 then st:=length(s)-1 else st:=a-2;
k:=1;
for i:=1 to st do
   k:=2*k;
for i:=1 to length(s) do
  begin
  val (s[i],m,p);
  if p=0 then
    begin
    sum:=sum+m*k;
    k:=k / 2 ;
    end;
    end;
  writeln('Otvet:',sum:5:3);
  readln
end.

можно ли как то ее передалть под мое условие. Спасибо кто откликниться оч срочно нада( сдавать на сессию. Помогите кто может

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

22.12.2009, 23:20

Ответы с готовыми решениями:

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

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

Перевод из десятичной в двоичную систему счисления с помощью рекурсии
Перевод из десятичной в двоичную систему счисления с помо-щью рекурсии.

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

	22.12.2009, 23:20

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

22.12.2009, 23:20

Помогаю со студенческими работами здесь

Преобразование неотрицательных целых чисел из десятичной системы счисления в двоичную
Разработать программу (TurboPascal) для преобразования неотрицательных целых чисел из десятичной...

Написать процедуру перевода числа из десятичной системы счисления в двоичную
Написать процедуру перевода числа из десятичной системы счисления в двоичную.C рекурсией и без

Определить функцию bin(x), переводящую число х из десятичной системы счисления в двоичную
1) Даны натуральные числа a, b, c. Определить функцию bin(x), переводящую число х из десятичной...

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

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

Или воспользуйтесь поиском по форуму:

Наверх