mov t2,bx

end;

Time1:=t1/(65536*18.2);

time2:=t2/(65536*18.2);

writeln('Время выполнения сложения на Pascal: ',(time2-time1):6:12);

end;

Procedure Add_Asm(N:word);

var i:word;

Proisv:integer;

Begin

t1:=0;

t2:=0;

asm

in al,40h

mov ah,al

in al,40h

xchg ah,al

mov t1,ax

xor ax,ax

xor dx,dx

@@q: {Выполняем сложение}

inc dx

add ax,dx

loop @@q

in al,40h

mov cl,al

in al,40h

mov ch,al

mov t2,cx

end;

Time1:=t1/(65536*18.2);

time2:=t2/(65536*18.2);

writeln('Время выполнения сложения на Assembler: ',(time2-time1):6:12);

end;

{=================================================================}

Procedure Mul_Pascal(N:word); {Умножение на Assembler}

var i:word;

Proisv:integer;

Begin

t1:=0;t2:=0;

asm

in al,40h

mov bl,al

in al,40h {Считываем начальное значение тиков от таймера}

mov bh,al

mov t1,bx

end;

for i:=1 to N do

proisv:=proisv*i;

asm

in al,40h

mov bl,al {Конечное количество тиков}

in al,40h

mov bh,al

mov t2,bx

end;

Time1:=t1/(65536*18.2);

time2:=t2/(65536*18.2);

writeln('Время выполнения умножения на Pascal: ',(time2-time1):6:12);

end;

Procedure Mul_Asm(N:word);

var Proisv:integer;

Begin

t1:=0;

t2:=0;

asm

in al,40h

mov bl,al

in al,40h {Считываем начальное значение тиков от таймера}

mov bh,al

mov t1,bx

xor ax,ax

xor bx,bx

@@q: {Выполняем сложение}

inc dx

mul dx

loop @@q

in al,40h

mov bl,al

in al,40h {Конечное количество тиков}

mov bh,al

mov t2,bx

end;

Time1:=t1/(65536*18.2);

time2:=t2/(65536*18.2);

writeln('Время выполнения умножения на Assembler: ',(time2-time1):6:12);

end;

Begin

clrscr;

{Определяем вид операции}

textcolor(11);

Writeln('Сделайте выбор операции и нажмите клавишу ENTER:');

Writeln('1) Сложение');

Writeln('2) Умножение');

Readln(vid);

textcolor(10);

Case vid of

1: begin

write('Введите сумму ряда, не более 2-х байт (65535: )');

Readln(NN);

Writeln;

textcolor(3);

Add_Pascal(NN);

Add_Asm(NN);

end;

2: begin

write('Введите произведение ряда, не более 2-х байт (65535: )');

Readln(NN);

Writeln;

textcolor(3);

Mul_Pascal(NN);

Mul_Asm(NN);

end;

end;

readln;

End.

§7. Описание программы

Программа написана на алгоритмическом языке Pascal. Состоит из двух блоков. В каждом блоке две процедуры: первая – это выполнение операции на языке Pascal, а вторая – выполнение этой же операции на языке Assembler.

Первый блок.

Состоит из двух процедур, которые выполняют сложение на языке Pascal и Assembler. Производится суммирование ряда чисел. Измерение времени происходит с помощью микросхемы таймера 8253. Сначала считываем начальное число тиков, затем выполняем операцию и снова считываем число с микросхемы. Разница, разделенная на произведение 65535*18,2 и будет временем выполнения операции.

asm

in al,40h

mov bl,al

in al,40h {Считываем начальное значение тиков от таймера}

mov bh,al

mov t1,bx

end;

{Выполняем операцию}

asm

in al,40h

mov bl,al

in al,40h {Конечное количество тиков}

mov bh,al

mov t2,bx

end;

Time = t2-t1/(65536*18.2); {ВРЕМЯ ВЫПОЛНЕНИЯ ОПЕРАЦИИ}

Второй блок.

Аналогичен первому блоку, с той лишь разницей, что здесь выполняется другая операция – вычисление факториала.

§8. Экспериментальные данные

Для проведения эксперимента вводятся числа:

10;100;1000;5000;10000;15000;20000;25000;30000;35000;50000;60000;65000;

Данные вводятся как для суммирования ряда, так и для вычисления факториала.

§9. Полученные результаты

Все вычисления выполнялись на микропроцессоре AMD Athlon 1000 MHz

Средняя температура процессора при вычислении 64 °С

Вычисление суммы ряда.