VPF::[Delphi] Перевод из 10-ной в 8-ю и наоборот

WhiteRaven

Дата 20.10.2008, 20:30 (ссылка)

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

Загрузка ...

Новичок

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

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

Помогите пожалуйста реализовать в Делфи перевод из 10-ой СС в 8-ю и наоборот.
ОЧЕНЬ НАДО.

THandle

Дата 20.10.2008, 20:38 (ссылка)

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

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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

Код


function OctToDec(const OctValue: string): integer;
var
  i: integer;
begin
  result := 0;
  for i := 1 to Length(OctValue) do
    if not (OctValue[i] in ['0'..'7']) then
      raise Exception.Create('Строка: ' + OctValue + ' не является восьмеричным числом')
    else
      result := result + (Ord(OctValue[i]) - 48) shl ((Length(OctValue) - i) * 3);
end;

8 -> 10

mr.Anderson

Дата 20.10.2008, 20:41 (ссылка)

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

Загрузка ...

iOS Lead Developer

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

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

WhiteRaven, ну дык. Чисто по теории информатики перевод из 10-й в систему с основанием N производится делением исходного числа на N и сбор остатков от деления в обратном порядке. То же самое требуется реализовать в программе. Последовательно делим число на 8, берем остатки от деления, потом собираем эти остатки в обратном порядке.

THandle, нужно наоборот. smile

Это сообщение отредактировал(а) mr.Anderson - 20.10.2008, 21:07

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

THandle

Дата 20.10.2008, 20:44 (ссылка)

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

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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

mr.Anderson,

Цитата(WhiteRaven @ 20.10.2008, 21:30

)

и наоборот.

Написать обратный код не сложно... Этот просто я уже когда то давал, а писать сейчас, собственно и не в чем smile

WhiteRaven

Дата 21.10.2008, 19:47 (ссылка)

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

Загрузка ...

Новичок

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

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

сделал я перевод из 10-й в 8-ю но вот я так не смог реализовать перевод из 8-й в 10-ю (нуб)
Может ли кто помочь перделать функцию которою дал THandle под эту часть проги (из 2-ой СС в 10-ю)

Код

  else if misc=2 then
begin
sum:=0;
write('Enter 2 SS = '); Readln(s);
For i:=Length(s)-1 DownTo 1 Do
  Begin
  If s[i]='1' Then
    Begin
    sum2:=1;
    For j:=1 To Length(s)-i Do sum2:=sum2*2;
    End
    Else sum2:=0;
  sum:=sum+sum2;
End;
If s[Length(s)]='1' Then Inc(sum);
writeln('Translated 10 SS = ',IntToStr(sum));
end
else writeln('That menu is not exist');
readln;
end.

WhiteRaven

Дата 20.11.2008, 18:43 (ссылка)

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

Загрузка ...

Новичок

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

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

Вот как в эту часть проги добавить проверку - чтоб при вводе букв выдавало сообщение что неверное значение и т.п.
У меня не получилось как уже не пробовал

Код


uses
  SysUtils;
var
  vis,s: string;
  iMod, des, misc, i, j, result :integer;
begin
writeln('Press 1: 10 sysnem to 8 sysnem');
writeln('Press 2: 8 system to 10 system');
readln(misc);
if misc=1 then
begin
Write('Input 10 system = ');
  Readln(des);
  if not (des>=0) and (des<=9) then
      writeln('number is not number 10 system')
      else
  while des >= 8 do
    begin
      iMod := des mod 8;
      des := des div 8;
      vis := IntToStr(iMod) + vis;
    end;
  vis := IntToStr(des) + vis;
  Writeln('Converted 8 system = ', vis);
  end

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