Дельфи, задача перевод десятичного числа в восьмеричную

[zoomgel]

А как это сделать, простите? *спряталась под табуретку от стыда"

[phomm]

ну вроде довольно понятно изложено... "сначала Dec присвойте" по нажатию на кнопку у вас сразу идёт обработка Dec'a а ведь вы должны его как-то ввести в программу, а получается неизвестно что обрабатываете.
"потом Oct выведите" ну тут тоже всё ясно... надо что-то вроде showmessage(inttostr(oct)); использовать для ПОКАЗА РЕЗУЛЬТАТА

а ещё объясните мне люди, почему используется имя Dec? это ведь функция из System ... хотя я понимаю что локальный идентификатор , но всё же... да и читабельность другим разработчиком тяжкая, хотя для лаборатоных это мало к чему

блин, проверил, действительно идентификатор deс перекрывает dec из system...хоть локальный, хоть глобальный, ужс.. это прямо как define false true в Си, по мне так лучше никогда так не делать , только конечно если вы не брейнфак- программер

[Hacker19_90]

procedure TForm1.Button1Click(Sender: TObject);
var
i,Oct, Dec : integer;
begin
Dec := StrToInt(edit1.Text);
i := 1;
Oct := 0;
while (Dec >= 8) do
begin
Oct := Oct + i*(Dec mod 8);
Dec := Dec div 8;
i := i*10;
end;
Oct := Oct + i*Dec;
edit1.text := IntToStr(Oct);
end;

[Hacker19_90]

почему используется имя Dec? это ведь функция из System ...

Decimal - десятичный! ПРОСТО НАЗВАНИЕ Я Не ПРИЗЫВАЮ ИСПОЛЬЗОВАТЬ ЭТО ИМЯ!!!

[phomm]

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

Каюсь , ибо оффтопен...

[Pein95]

и вы говорите что вы сами написали тот код который представлен в первом сообщение? зачем врать?

[zoomgel]

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

[Hacker19_90]

Не за что! Обращайтесь!
Если помог кликните на весы!