Системы счисления

begin

case vv1[i] of

     '0'..'9','a'..'f','A'..'F':;

else error1 :=1;

end;

end;

end; 

     4) Функция возводит целое число  в степень. x – это число в которое требуется возвести в степень, N – степень в которую надо возвести число вывод информации в типе integer.

function step(n:integer; x : integer): integer;

var

        y: integer;

begin

y:=1;

        for i:= 1 to n do{Цикл задает число умножений}

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

        step := y;

end; 

     5) Присваивает переменной vv1 входные данные.

procedure TForm1.Edit1Change(Sender: TObject);

begin

vv1:= edit1.text;

end; 

      6)Функция  присваивает радиогруппе «Исходная  система» значение.

procedure TForm1.RadioGroup1Click(Sender: TObject);

begin

case radiogroup1.ItemIndex of { Определяет ItemIndex и присваивает m данные типа integer согласно условию}

        0: m:=2;

        1: m:=8;

        2: m:=10;

        3: m:=16;

end;

end; 

     7)Функция срабатывает на нажатие кнопки «Перевести». Переводит из 2,8,10,16-ой системы счисления в десятичную систему передаёт данные b выполняет функцию perevod0.Так же выводит полученный результат на экран.  

procedure TForm1.Button1Click(Sender: TObject);

var

n : integer;

begin

if error1(vv1) <> 1 then {Если error1 не равно 1 то }

begin

ch1 :=0;       

for i := 0 to length(vv1)-1 do {Начало цикла FOR}

begin                 n

n:=perevod0(vv1[length(vv1)-i])*step(i,m);{выполняется формула     A_iMⁱ}

ch1 := ch1+n;

end; 

 label1.Caption := perevod1(ch1,m1);{На экран выводиться переведённое число}

end

else label1.Caption := 'ОШИБКА ВВОДА!!!'; {иначе на экран выводиться 'ОШИБКА ВВОДА!!!'; } 
 

end; 

     8) Функция присваивает радио группе Исходная система значение. procedure TForm1.RadioGroup2Click(Sender: TObject);

begin

case radiogroup2.ItemIndex of{ Определяет ItemIndex и присваивает m данные типа integer согласно условию}

        0: m1:=2;

        1: m1:=8;

        2: m1:=10;

        3: m1:=16;

end;

end;

end.

 

9.Таблица тестов.

 
 
 
 
 

 

ЗАКЛЮЧЕНИЕ 
 

В кокой системе  счисления лучше записывать числа - это вопрос удобства и традиций. С технической точки зрения, в ЭВМ удобно использовать двоичную систему, так как в ней для записи числа используется всего две цифры 0 и 1, которыми можно представить двумя легко различимыми состояниями «нет сигнала» и «есть сигнал». 

Изучая источники  по теме «Системы счисления» мы получили возможность провести исторический анализ, исследовать различные формы  записи чисел, систематизировать материал и выявить различные спектры  применения. 

Различные системы  счисления окружают нас повсюду. Сами того не замечая мы ежедневно пользуемся не только десятичной системой счисления, а так же двенадцатеричной, когда хотим узнать время или покупаем в магазине пуговицы. 

Сейчас системы  счисления очень распространены в электронно-вычислительной технике, многие коды и шифры созданы на их основе. 

В ходе проведения исследования: 

— исследовали  историю и развитие систем счисления, 

— исследовали  практический материал 

— рассмотрели  область применения и выявили  актуальность темы. 

Нами решены задачи: 

— арифметические действия в различных системах счисления, 

— перевод из одной системы счисления в  другую. 
 
 
 
 
 
 
 
 

10.Список литературы.

1. Кодирование информации (Двоичные коды). Березнюк Н. Т. Андрущенко А. Г. И др. Харьковю 1978.
2. Выгодский М.Я. Справочник по элементарной математике, М.: Государственное издательство технико-теоретической литературы, 1956.
3. Каган Б.М. Электронные вычислительные машины и системы, М.: Энергоатомиздат, 1985.
4. Майоров С.А., Кириллов В.В., Приблуда А.А., Введение в микроЭВМ, Л.: Машиностроение, 1988.
5. Фомин С.В. Системы счисления, М.: Наука, 1987.
6. Ролич Ч. Н. – От 2 до 16, Минск, «Высшая школа», 1981г.
7. Математическая энциклопедия. М: “Советская энциклопедия” 1985г.
8. Шауман А. М. Основы машинной арифметики. Ленинград, Издательство Ленинградского университета. 1979г.
9. Калабеков Б. А. Цифровые устройства и микропроцессорные системы. М: “Горячая линия - Телеком” 2000г.
10. Ворощук А. Н. Основы ЦВМ и программирования. М:”Наука” 1978г.
11. Алексенко А. Г. Микросхемотехника. М: ”Радио и связь” 1990г.