Написать функцию для перевода числа из десятичной системы в восьмиричную (Delphi)

[Alex11223]

uses тоже убери или ; поставь.

[BLADIMIR]

Сообщение от Alex11223

uses тоже убери или ; поставь.

Вот удалил теперь другая фигня...
Но там len2? а у меня len8... когда меняю на len8 выскакивает ошибка

[Alex11223]

В код не вникал, но если вернуть len2=15; (там, где объявление констант), то будет работать.

[BLADIMIR]

вот ты говоришь в константу вписать len2=15;
всё равно не рабтает(( таже ошибка выскакивает...
если можешь напиши вариант, уже рабочей программы...плз

[BLADIMIR]

Сообщение от Alex11223

В код не вникал, но если вернуть len2=15; (там, где объявление констант), то будет работать.

вернул в константу len2=15; всё равно не рабтает(( таже ошибка выскакивает... если можешь напиши вариант уже рабочей программы пожалуйста, оченьь нужно...

[Alex11223]

const

  osn8 = 8; //* Восьмеричное основание */ 
  len2 = 15; //* Количество двоичных позиций */ 
  len8 = 5; //* Количество восьмеричных позиций */ 

var
  n, i, n10: integer;
  s: array[1..len2] of byte;

begin

  write(' Введите десятичное целое число ');
  readln(n10);
  
  write(' Восьмеричная форма');
  n := n10; 
  for i := len8 downto 1 do 
  begin
    s[i] := n mod osn8; //* Вычисление значения очередного разряда */
    n := n div osn8; //* Сдвиг на один разряд влево */
  end;
  for i := 1 to len8 do 
  begin//* Вывод результата */
    write(s[i]);
  end;
  readln;
end.

[BLADIMIR]

Сообщение от Alex11223

const

  osn8 = 8; //* Восьмеричное основание */ 
  len2 = 15; //* Количество двоичных позиций */ 
  len8 = 5; //* Количество восьмеричных позиций */ 

var
  n, i, n10: integer;
  s: array[1..len2] of byte;

begin

  write(' Введите десятичное целое число ');
  readln(n10);
  
  write(' Восьмеричная форма');
  n := n10; 
  for i := len8 downto 1 do 
  begin
    s[i] := n mod osn8; //* Вычисление значения очередного разряда */
    n := n div osn8; //* Сдвиг на один разряд влево */
  end;
  for i := 1 to len8 do 
  begin//* Вывод результата */
    write(s[i]);
  end;
  readln;

всё сделал так, но че это опять за ошибка(((

[Alex11223]

всё сделал так

Видимо не все. Скопипастил в Дельфи 7 (до этого в ПаскалеАБС пробовал) — все работает.

{$APPTYPE CONSOLE}

const

  osn8 = 8; //* Âîñüìåðè÷íîå îñíîâàíèå */
  len2 = 15; //* Êîëè÷åñòâî äâîè÷íûõ ïîçèöèé */
  len8 = 5; //* Êîëè÷åñòâî âîñüìåðè÷íûõ ïîçèöèé */

var
  n, i, n10: integer;
  s: array[1..len2] of byte;

begin

  write(' Ââåäèòå äåñÿòè÷íîå öåëîå ÷èñëî ');
  readln(n10);

  write(' Âîñüìåðè÷íàÿ ôîðìà');
  n := n10;
  for i := len8 downto 1 do
  begin
    s[i] := n mod osn8; //* Âû÷èñëåíèå çíà÷åíèÿ î÷åðåäíîãî ðàçðÿäà */
    n := n div osn8; //* Ñäâèã íà îäèí ðàçðÿä âëåâî */
  end;
  for i := 1 to len8 do
  begin//* Âûâîä ðåçóëüòàòà */
    write(s[i]);
  end;
  readln;
  end.

[BLADIMIR]

Всё работает!!! Спасибо большое за помощь... Наверно надоел тебе
ещё раз спасибо

как тему теперь закрыть? или модератор сам закрывает?




___________________________________ ____
Не надо плодить подряд несколько коротких сообщений!
Это нарушение правил...
для того, чтобы через минуту/другую дописать сообщение,
не надо создавать ещё один новый пост.
нажимайте на предыдущем кнопку "Редактировать" ("Правка")
и дописывайте в своё сообщение, что Вы хотели добавить!

[Alex11223]

Зачем ее закрывать?)