VPF::[TurboPascal]Перевод дробных чисел в различных с/с

IwantToBeProgrammer

Дата 2.10.2007, 13:05 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 8.7.2007

Репутация: нет
Всего: нет

требуется написать прогу на паскале по переводу дробных чисел из 3с/с в 2с/с (выбран путь транзитом через 10с/с)
привожу пример аналогичного перевода целых:

Код


program perevod;
  var i,j,ost,x1:integer;
  n:real;
  x,r:string;
    begin
    writeln('enter number for tranclate to 2c/c from 3c/c');
    readln(x);
    n:=0;
      for i:=1 to length(x) do
        begin
        j:=length(x)-i;
          if copy(x,i,1)='1' then begin
          n:=n+exp(j*ln(3));
          end else begin
            if copy(x,i,1)='2' then begin
            n:=n+2*exp(j*ln(3));
            end;
          end;
        end;
x1=trunc(n);
r:='';
       while x1>0 do
         begin
         ost:=x1 mod 2;
           if ost=0 then r:='0'+r else r:='1'+r;
           x1:=x1 div 2;
         end;
writeln('number ',x, ' has double code', r);
readln;
end.

но дробные как перевести не представляю поэтому прошу помочь!

volvo877

Дата 2.10.2007, 13:34 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 34
Всего: 116

Я ж написал тебе в разделе Паскаль, как перевести дробное число из 10 с/с в 2 с/с...

Что, перевести 3 -> 10 тоже не смог?

Guedda

Дата 2.10.2007, 13:43 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 6
Всего: 78

Модератор: Сообщение скрыто.

--------------------

Ll 2

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »