|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
09.09.2009, 17:57 | #1 |
Регистрация: 18.12.2008
Сообщений: 5
|
Проблема с процедурой Gettime
uses crt,dos;
var i,k:word; h,m,s,h1:word; t:longint; Begin clrscr; begin i:=1; k:=5; while i<120 do begin if ((i+k) mod 7)=3 then i:=i*i+1 else i:=k*i+17; end; end; writeln('Pascal i=',i); gettime(h,m,s,h1); writeln('Time Pascal: ',s*100+m*6000+h1); for t:=1 to 10000 do begin asm mov i,1; mov k,5; @m0: cmp i,120; jg @m3; mov ax,i; add ax,k; mov bh,7; div bh; cmp dx,3; je @m2; jmp @m1; @m2: mov ax,i; mul ax; add ax,1; mov i,ax; jmp @m0; @m1: mov ax,i; mul k; add ax,17; mov i,ax; jmp @m0; @m3: end; end; writeln; writeln('Assembler i=',i); gettime(h,m,s,h1); writeln('Time Asambler: ',s*100+m*6000+h1); readln; end. Задача gettime в этой программе в том, что нужно высчитать время обоих блоков программы. Первая процедура показывает время работы блока на pascal а вторая на асамблере. Проблема в том, что при компиляции время одинаковое, не могу понять почему? Подскажите.. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
не понятен смысл функции *.getTime() | IQDDD | JavaScript, Ajax | 4 | 23.06.2009 19:03 |
Проблема с хранимой процедурой | Lion-Tiger | БД в Delphi | 6 | 08.06.2009 13:32 |
нужна помощь с gettime | Evgenii | Помощь студентам | 2 | 01.02.2009 11:53 |
Проблема с вычислением количества дней в феврале функцией getTime(); | Max0001 | JavaScript, Ajax | 1 | 05.12.2008 07:03 |