Страница 1 из 1
Re: перевод числа
Добавлено: 11 мар 2004, 21:29
Bas
Arhangel писал(а):помогите перевести число 100 в 1 час 40 минут формулай
(100 "делить без остатка" на 60) часов и (100 "остаток от деления" на 60) минут...
Или я чего-то не понимаю
Добавлено: 14 мар 2005, 11:52
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);
Re: перевод числа
Добавлено: 04 янв 2009, 16:12
Armani-2
Помогите сделать 1. Переведите 1000110.01011 из 2 в 8 систему счисления.
2. Переведите 76231 из 8 в 10 систему счисления.
3. Выполните действия (1010111- 11000010)*(-1010)
4. Представьте в двоично - десятичном коде число 747.
5. Переведите шестнадцатеричное число 8742 в дополнительный код.
Re: перевод числа
Добавлено: 05 янв 2009, 09:41
demon416
это в рмз
да и калькулятор виндовый тебе в руки
Re: перевод числа
Добавлено: 06 янв 2009, 23:22
Хыиуду
В разделе "Алгоритмы" есть соответствующая тема
Re: перевод числа
Добавлено: 03 фев 2009, 09:28
atavin-ta
Сложите в системе, куда переводите произведения цифр их веса. Вес крайней правой цифры всегда 1, а каждой левой в основание больше. Другой рвариант - сначала перевести в промежуточную систему (в чём удобнее считать), потом искать остаток от деления этого числа на основание системы, куда переводишь. Перевод начинается справа. Остаток - следующая цифра. Потом заменяем число частным от его деления нацело на основание, смещаемся на один разряд влево и снова ищем остаток.