if ((p >= 0) && (l > 0) && (k > 0) && ((strlen(C) - p) >= l) && (p <= strlen(C))) //проверка ввода { __asm { mov ebx, k; // количество повторений mov edi, V // адрес приёмника m1 : cmp ebx, 0 // сравнение je exit1 // если EBX = 0, то переход на exit1 mov ecx, l // длина строки mov esi, C // адрес источника add esi, p // с заданной позиции m2 : mov al, [esi] //из ESI mov [edi], al // запись в EDI inc edi // EDI+1 inc esi // ESI+1 loop m2 // цикл EСХ раз dec ebx // EBX-1 jmp m1 // переход на m1 exit1 : mov[edi], 0 }
Const n=10; type ar=array[1..n] of integer; procedure p1(var x:ar); var i:integer; begin for i:=1 to n do x[i]:=random(51); end;
procedure p2(h:char;var x:ar); var i:integer; begin writeln('---',h,'---'); for i:=1 to n do write(x[i]:4); writeln; end;
procedure p3(var x:ar; var min,imin:integer); var i:integer; begin min:=x[1]; imin:=1; for i:=2 to n do if x[i]<min then begin min:=x[i]; imin:=i; end; end;
var a,b : ar; m1,m2,im1,im2: integer; begin Randomize; p1(a); p2('a',a); p3(a,m1,im1); writeln('m1=',m1,' im1=',im1); p1(b); p2('b',b); p3(b,m2,im2); writeln('m2=',m2,' im2=',im2); if im2<n then begin b[im2+1]:=m1; p2('b',b); end else writeln('Минимальный элемент последний'); end.
