перевод числа

[Bas]

помогите перевести число 100 в 1 час 40 минут формулай

(100 "делить без остатка" на 60) часов и (100 "остаток от деления" на 60) минут...
Или я чего-то не понимаю

[Dr.Grizzly]

Или еще вариант:

Код: Выделить всё

 
var
s,i:Integer;
begin
s:=0;
If StrToInt(edMain.Text)>59 then
 repeat
  i:=StrToInt(edMain.Text)-60;
  edMain.Text:=inttostr(i);
  If StrToInt(edMain.Text)>59 then
    s:=s+1
  else
  if StrToInt(edMain.Text)>=0 then
    s:=s+1;
 until i<=59;
messagedlg(inttostr(s)+' часа и '+edMain.Text+' минут',mtinformation,[mbok],0);

[Armani-2]

Помогите сделать 1. Переведите 1000110.01011 из 2 в 8 систему счисления.
2. Переведите 76231 из 8 в 10 систему счисления.
3. Выполните действия (1010111- 11000010)*(-1010)
4. Представьте в двоично - десятичном коде число 747.
5. Переведите шестнадцатеричное число 8742 в дополнительный код.

[demon416]

это в рмз
да и калькулятор виндовый тебе в руки

[Хыиуду]

В разделе "Алгоритмы" есть соответствующая тема

[atavin-ta]

Сложите в системе, куда переводите произведения цифр их веса. Вес крайней правой цифры всегда 1, а каждой левой в основание больше. Другой рвариант - сначала перевести в промежуточную систему (в чём удобнее считать), потом искать остаток от деления этого числа на основание системы, куда переводишь. Перевод начинается справа. Остаток - следующая цифра. Потом заменяем число частным от его деления нацело на основание, смещаемся на один разряд влево и снова ищем остаток.