Будем выполнять деление числа на основание той системы, в которую будем переводить. Причем, деление с остатком делаем. А частное опять также делим и т.д пока в частном ноль не получим: 37=2*18+1 18=2*9+0 9=2*4+1 4=2*2+0 2=2*1+0 1=2*0+1 А теперь остатки снизу вверх переписываем, это и будет число в требуемой системе 37(10) = 100101(2) Проверка. В числе 100101 нумеруем разряды, начиная с 0, но идем справа налево: число:100101 разряд: 543210 Номер разряда означает показатель основания. Составляем выражение: ответ сошелся. ----------------------------- Действуем аналогично: 94=2*47+0 47=2*23+1 23=2*11+1 11=2*5+1 5=2*2+1 2=2*1+0 1=2*0+1 Проверка: 1011110 6543210 Сошлось ---------------------------------------- 64=8*8+0 8=8*1+0 1=8*0+1 Проверка: 100 210 Сошлось
1) SetPenColor(color) - устанавливает цвет пера, задаваемый параметром color 2) LoadPicture(fname) n:=LoadPicture(fname) – загружает рисунок из файла с именем fname в оперативную память и возвращает описатель рисунка в целую переменную n; если файл не найден, то возникает ошибка времени выполнения. Загружать можно рисунки в формате .bmp, .jpg или .gif. Загрузка готового рисунка 3) Вывод текста в графическое окно TextOut(x,y,’строка’); - выводит строку текста в позицию (x,y) (точка (x,y) задает верхний левый угол прямоугольника, который будет содержать текст) 4) DrawPicture(n,x,y); Выводит рисунок с описателем n в позицию (x,y) графического окна. Вывод рисунка в графическое окно uses GraphABC 5) Заливка кистью SetBrushPicture(‘fname’) - устанавливает в качестве образца для закраски кистью образец, хранящийся в файле fname, при этом текущий цвет кисти при закраске игнорируется
