Курсовая работа: Системы счисления, переводы чисел

Число 326 в десятичной системе можно записать так 3*102+2*101+6*100=326

Число 100110 в двоичной системе можно записать так 1*25+0*24+0*23+1*22+1*21+0*20=38.

Для перевода из десятичной системы счисления в 2, 8, 10, 16 используем алгоритм:

repeat

c := a mod e;

if (e = 16) and (c>9) then l:= l + chr(c+55) else l:= l + chr(c+48);

if a <> 0 then b := a div e;

if b<e then if (e = 16) and (b>9) then l:= l + chr(b+55) else l:= l + chr(b+48);

a := b;

until (b<e) or (a = 0).

В результате разработки программы я столкнулся с проблемой возведения целого числа в степень. Для этого мне пришлось разработать алгоритм возведения целого числа в степень.

var

i,y: integer;

begin

y:=1;

fori:= 1 tondo{Цикл задает число умножений}

y := y*x;{умножает число которое требуется возвести в цикл на Yи присваивает значение Y}

step := y;

end;

8.Кодирование и отладка программы.

Для кодирования программы используем среду программирования BorlandDelphi 7 Enterpriseedition. Для начала я сделал форму, в которой имеется строка для ввода информации две группы радио кнопок и кнопка «перевести».

Для работы выбраны библиотеки(uses)

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, ExtCtrls, ComCtrls;

Типыданных:

type

TForm1 = class(TForm)

Edit1: TEdit;

RadioGroup1: TRadioGroup;