Приветствую Вас, Гость! Регистрация RSS
Четверг, 25.04.2024


Главная » Файлы » Лабораторные работы » Лабораторные работы
Звіт лабораторної роботи №6 з дисципліни «Операційні системи»
[ Скачать с сервера (42.0 Kb) ] 13.08.2017, 19:53
Program wtf1;
var a,b,c,d,f,g,e,h,i:integer;
begin
a:=3;
b:=2;
c:=6;
d:=3;
f:=1;
g:=2;
h:=100;
e:=15;
asm
mov ax, word ptr a
mov bx, word ptr b
add ax,bx
mov bx, ax
mul h
mov ax, word ptr c
mov cx, word ptr d
sub ax,cx
mov cx, ax
mul e
add ax, bx
mov bx, word ptr f
mov cx, word ptr g
add bx,cx
dec bx
mov cx,ax
div bx
inc ax
mov word ptr i,ax
end;
writeln(i);
readln;
end.
Программа 2
Program 2;
uses crt;
type mas=array[1..4,1..4] of integer;
mas2=array[1..16] of byte;
var a:mas2;
i,j,k:integer;
sum,m,o:integer;
x,n:integer;
begin
Randomize;
clrscr;
for i:=1 to 16 do
begin
a[i]:=random(256);
end;
{for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
a[i,j]:=random(256);
write(a[i,j]);
write(' ');
end;
writeln;
end;
writeln;}

asm
xor ax,ax
xor bx,bx
mov x, bx
xor ch,ch
mov cl, 4
mov m, bx
@Row:
xor si,si

push cx
mov cl, 4
@Col:
@prod:
{mov dx, 5}
mov al, byte ptr a[bx][si]
add x, ax
cmp si, m
jz @LoL
{mul byte ptr 5
add x, ax}
inc si
loop @Col
inc m
xor ah,ah
mov al, 4
add bx, ax
pop cx
loop @Row
loop @enden
@LoL:
add n, ax
inc si
loop @prod
@enden:
end;
k:=4; j:=1; o:=1;
while j<16 do
begin
for i:=j to k do
begin
if i=o then
begin
textcolor(green);
write (a[i],' ');
textcolor(red);
o:=o+5;
end
else
write (a[i],' ');
end;
j:=k+1;
k:=j+4-1;
writeln;
end;
writeln;
textcolor(yellow);

writeln('‘г¬ н«Ґ¬Ґ­в®ў Ї® ¤Ё Ј®­ «Ё=',n);
writeln('‘।­ҐҐ §­ 祭ЁҐ=',n/4:0:2);
readln; end.
Программа 3
Program 3;
var a,b,c,d,f,g,e,h,i,r:integer;
{$L Proc.obj}

{$F+}
function asem(a,b,c,d,f,g,e,h,i:integer):integer;External;
{$F-}
begin
a:=3;
b:=2;
c:=6;
d:=3;
f:=1;
g:=2;
h:=100;
e:=15;

r:=asem(a,b,c,d,f,g,e,h,i);
writeln®;
readln;
end.

Программа 4
Program 4;
uses crt;
type mas=array[1..4,1..4] of integer;
mas2=array[1..16] of byte;
var a:mas2;
i,j,k:integer;
sum,m,o:integer;
x,n:integer;
{$L Proc2.obj}

{$F+}
function diag(a:mas2; m,n,x:integer):integer;External;
{$F+}
begin
Randomize;
clrscr;
for i:=1 to 16 do
begin
a[i]:=random(256);
end;

sum:=diag(a,m,n,x);

k:=4; j:=1; o:=1;
while j<16 do
begin
for i:=j to k do
begin
if i=o then
begin
textcolor(green);
write (a[i],' ');
textcolor(red);
o:=o+5;
end
else
write (a[i],' ');
end;

j:=k+1;
k:=j+4-1;
writeln;
end;
writeln;
textcolor(yellow);
writeln('‘г¬ н«Ґ¬Ґ­в®ў Ї® ¤Ё Ј®­ «Ё=',Sum);
writeln('C।­ҐҐ §­ 祭ЁҐ=',Sum/4);
readln;
end.
Proc1.asm
.386
_text segment word public 'text' use16
assume cs:_text
;function asem(a,b,c,d,f,g,e,h,i:integer):integer
asem proc far
public asem;
Категория: Лабораторные работы | Добавил: opteuropa | Теги: Звіт лабораторної роботи, «Операційні системи», ІС., ІТ, №6, лабораторна робота
Просмотров: 517 | Загрузок: 21 | Рейтинг: 0.0/0
Всего комментариев: 0
Имя *:
Email *:
Код *:
Украина онлайн

Рейтинг@Mail.ru

подать объявление бесплатно