Системы счисления, переводы чисел (стр. 5 из 5)

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);{выполняетсяформула

AiMi}

ch1 := ch1+n;

end;

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

end

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

end;

8) Функция присваивает радио группе Исходная система значение. procedureTForm1.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.Таблицатестов.

№	Входные данные			Полученное число	Примечание
	Переводимое число	Исходная система	Конечная система
1	1011	2	2	1011	Тесты предложенные на проверку правильности перевода
2	1011	2	8	13
3	1011	2	10	11
4	1011	2	16	B
5	17	8	2	1111
6	17	8	8	20
7	17	8	10	15
8	17	8	16	F
9	254	10	2	11111110
10	254	10	8	376
11	254	10	10	254
12	254	10	16	FE
13	adf34	16	2	10101101111100100000
14	adf34	16	8	2557464
15	adf34	16	10	712500
16	adf34	16	16	ADF34
17	212	16	10	530
18	ропл	2	16	ОШИБКА ВВОДА!!!	Тесты на ошибку ввода
19	adf323g	2	16	ОШИБКА ВВОДА!!!
20	пустая строка	8	10	ОШИБКА ВВОДА!!!

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г.