Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Максаков Вадим М-54
Лабораторна робота №7. Організація циклічних обчислень у асемблер них вставках мови Паскаль за допомогою команд LOOP, LOOPE, LOOPNE.
program lab7_1;
uses Crt;
var
s: string;
Len: integer;
d,d2:word;
d1:word;
begin
ClrScr;
d1:=0;
d:=0;
Write('VVedite stroky: ');
Readln(s);
Len := Length(s);
asm
LEA BX, s+1
MOV CX, Len
@1:mov AH,[bx]
CMP AH, 48
JB @e
CMP AH, 57
JA @e
inc d1
dec len
SUB AH,32
@e: INC BX
LOOP @1
end;
Writeln(s);
writeln(len);
writeln(d1);
readln;
end.
program v7z2;
uses crt;
Var a,b:integer;
sh,so:integer;
Begin
clrscr;
a:=6;
b:=5;
writeln('a=',a,' b=',b);
asm
mov ax,a
mov bx,b
@c20:
sub cx,cx
cmp ax,bx
jb @c30
sub ax,bx
inc cx
jmp @c20
ret
@c30:
mov sh,bx
mov so,ax
end;
writeln('chastka ',sh);
writeln('ostacha ',so);
readln;
end.
program l7z3;
uses crt;
var
s:integer;
Begin
clrscr;
asm
mov ax,60
mov bx,0
@k:
add bx,ax
add ax,-2
cmp ax,40
JGE @k
mov s,bx
end;
writeln('s=',s);
readln;
end.
program l7z4;
uses crt;
var a:array[1..10] of integer;
i,s,k:integer;
begin
clrscr;
s:=0;
for i:=1 to 10 do
begin
a[i]:=random(10);
write(' a[]=',a[i]);
k:=a[i];
asm
mov ax,s
mov bx,k
add ax,bx
mov s,ax
end;
end;
writeln('');
writeln('s=',s);
readln;
end.
program z7z5;
uses crt;
var n,s: integer;
begin
clrscr;
writeln('Vvedit N');
readln(n);
asm
mov ax,0
mov cx,n
@k: add ax,cx
loop @k
mov s,ax
end;
writeln('S=',s);
readln;
end.