Лабораторная работа №62 / LAB61

uses crt;
{procedure count; external; }
{*$l lr601.obj*}
{*$l lr602.obj*}
var
nchsl:word;
nint:word;
min,max,dlint:word;
lgr,rez1,rez2,rand_array:array[1..100]of byte;
i:byte;
f:text;
begin
clrscr;
writeln('Vvedite dlinu massiva sluch chisel');readln(nchsl);
writeln('Vvedite kol-vo intervalov');readln(nint);
writeln('Vvedite diapazon sl. chisel(min,max)'); readln(min,max);
writeln('Vvedite massiv levih granic');
for i:=1 to nint do begin
read(lgr[i]);
rez1[i]:=0;
rez2[i]:=0;
end;

randomize;
for i:=1 to nchsl do
rand_array[i]:=random(max-min+1)+min;

writeln('sluch massiv');
for i:=1 to nchsl do
write(rand_array[i],' ');
readln;
readln;
dlint:=max-min;

asm
@init:
xor di,di
mov dx,dlint
mov cx,nchsl {;V cx dlina sluchaynogo massiva}
@chislo: {;Dla chisla opredelaem interval}
xor si,si
xor ax,ax
mov al,00
mov ah, byte ptr rand_array[di] {;AH ukazatel na tek element}
@interval: {;Isem interval}
cmp si,dx {;posledniy li interval}
jg @out
cmp ah,al {;Sravnenie chisla i granici}
inc al
inc si
ja @interval {;esli chislo bolshe-na sled interval}
@out:
inc byte ptr rez1[si-2]
inc di
loop @chislo
end;
{result1}
clrscr;
for i:=1 to dlint do begin
write(i,' ');
write(rez1[i],' ');
writeln;
end;
readln;



asm
@init:
xor di,di
mov dx,nint {;V dx kol-vo inter valov}
mov cx,nchsl {;V cx dlina sluchaynogo massiva}
@chislo: {;Dla chisla opredelaem interval}
xor si,si
xor ax,ax
mov ah, byte ptr rand_array[di] {;AH ukazatel na tek element}
@interval: {;Isem interval}
cmp si,dx {;posledniy li interval}
jg @out
mov al,byte ptr lgr[si] {;Znachenie granici}
cmp ah,al {;Sravnenie chisla i granici}
inc si
ja @interval {;esli chislo bolshe-na sled interval}
@out:
inc byte ptr rez2[si-2]
inc di
loop @chislo
end;

{result2}
clrscr;
for i:=1 to nint do begin
write(i,' ');
write(lgr[i],' ');
write(rez2[i],' ');
writeln;
end;
readln;
{result3}
assign(f,'rand.txt');
rewrite(f);
for i:=1 to nint do begin
write(f,i,' ');
write(f,lgr[i],' ');
write(f,rez2[i],' ');
writeln(f);
end;
end.