паскаль. строки. помогите решить, пожалуйста.

[tanuschka]

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

[Stilet]

Как ты это на бумаге считаеш описать могеш?

Кста вот тее решение http://delphiworld.narod.ru/base/tra..._calculus.html
иши там DEC2OCT

[tanuschka]

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

[Serge_Bliznykov]

Танюшка, мне искренне жаль, что Вы не хотите учиться...
Нужно взять код процедуры по указанной ссылке и добавить ввод вашего числа и вывод результата...

Вот код:

function DEC2OCT(DEC: LONGINT): string;

const
  OCTDigts: string[8] = '01234567';

var
  OCT: string;
  I, J: LONGINT;

begin
  if DEC = 0 then
    OCT := '0'
  else
  begin
    OCT := '';
    I := 0;
    while (1 shl ((I + 1) * 3)) <= DEC do
      I := I + 1;
    for J := 0 to I do
    begin
      OCT := OCT + OCTDigts[(DEC shr ((I - J) * 3)) + 1];
      DEC := DEC and ((1 shl ((I - J) * 3)) - 1);
    end;
  end;
  DEC2OCT := OCT;
end;

var
  NN : integer;
begin
  WriteLn;
  Write('Введите Ваше число:');
  ReadLn(NN);
  WriteLn('В восьмеричном виде это число: ',DEC2OCT(NN));
end.

[qasw]

Тань у тебя не 9 ты вариант ??

[Serge_Bliznykov]

qasw, Вы на дату сообщений посмотрите.. ноябрь прошлого года.. и Танюшка на форуме последний раз была 20.11.2008...

[Вавел из ГМТУ]

Это означает что он пользовался поиском, а это не может не радовать

[qasw]

упс спасибо туплю ...у неё мой вариант ...и мне здаётся что она у чилас в универе водных коммуникацый ))мне просто очень нужна 5 лаба

[qasw]

Серёга если можешь помоги пожайлуста ))