незнаю что делать

[Rusic]

привет всем !!!! Я новичков в программировании потому прошу помощи у вас!!!
У меня задание "написать программу перевода двоичных чисел в восьмиричных и наоборот". Кто может сбросьте код программы на Delphi Pleas!!!!!!!

[W0LF]

То, что Вы новичок совершенно не значит, что Вы не можете найти информацию по данному вопросу...

Вы не хотите или не можете по какой либо причине зайти в гугл и поискать 5 минут? Я вообще скоро таких людей уважать перестану, в интернете куча поисковиков и сайтов с "сорцами", а вы постите сразу на форум, что бы вам нашли... Это последний придел лени...

function BinToOct(A: string): string;
var Buf, R: string;
  I: Integer;
begin
  while Length(A) mod 3 <> 0 do
    A := '0' + A;
  while A <> '' do
  begin
    Buf := Copy(A, 1, 3);
    Val(Buf, I, I);
    Delete(A, 1, 3);
    case I of
      0: R := R + '0';
      1: R := R + '1';
      10: R := R + '2';
      11: R := R + '3';
      100: R := R + '4';
      101: R := R + '5';
      110: R := R + '6';
      111: R := R + '7';
    end;
  end;
  while R[1] = '0' do
    Delete(R, 1, 1);
  BinToOct := R;
end;

function OctToBin(A: string): string;
var N, I: Integer;
  R: string;
begin
  for I := 1 to Length(A) do
  begin
    Val(A[i], N, N);
    case N of
      0: R := R + '000';
      1: R := R + '001';
      2: R := R + '010';
      3: R := R + '011';
      4: R := R + '100';
      5: R := R + '101';
      6: R := R + '110';
      7: R := R + '111';
    end;
  end;
  OctToBin := R;
end;

Поиск составил 1-2 минуты, на этом же форуме...

P.S.: Блин, я в шоке с этих студентов "недоделаных" (извините за выражение), не учите програмирование, так еще и готовое решение не можете найти для себя ж, не для кого-то...

[Rusic]

Извиняй что побеспокоил 3 дня в нете искал не мог найти!!! Возможно не то вводил!!! Благодарю!!!