Лабораторная работа 4 по ОЭВМ / Документ Microsoft Word (2)

program LAB4;

uses crt;

var a,b,i,k,F1,F2,F3:integer;

label

Metka1,Metka2,Metka3,Metka4,Metka5,exit,fun2,fun3 ;

begin

writeln ('Введите число а:');

readln(a);

writeln ('Введите число b:');

readln(b);

writeln ('Введите число i:');

readln(i);

writeln ('Введите число k:');

readln(k);

asm

MOV AX,A ;

SUB AX,B ;

cmp Ax,0 ;

JG Metka1 ;

MOV AX,I ;

SHL AX,1 ;

SHL AX,1 ;

Mov Bx,3 ;

ADD AX,Bx ;

MOV F1,AX ;

cmp F1,Ax ;

je fun2 ;

Metka1: ;

MOV AX,I ;

SHL AX,1 ;

MOV BX,15 ;

SUB BX,AX ;

MOV F1,BX ;

fun2: ;

JG Metka2 ;

MOV AX,I ;

SHL AX,1 ;

SHL AX,1 ;

Mov Bx,10 ;

Sub Ax,Bx ;

MOV F2,AX ;

cmp F2,Ax ;

je fun3 ;

Metka2: ;

MOV AX,I ;

SHL AX,1 ;

add Ax,i ;

MOV BX,5 ;

Add AX,BX ;

MOV F2,AX ;

fun3: ;

MOV AX,K ;

CMP AX,0 ;

JNE Metka3 ;

mov AX,F1 ;

mov BX,F2 ;

SUB BX,AX ;

CMP BX,0 ;

JG Metka4 ;

Mov Bx,F2 ;

MOV F3,Bx ;

cmp F3,Bx

Je exit ;

Metka4: ;

MOV F3,Ax ;

cmp F3,Ax ;

Je exit ;

Metka3: ;

MOV AX,F1 ;

MOV BX,F2 ;

SUB BX,AX ;

CMP BX,0 ;

JG Metka5 ;

MOV F3,AX ;

cmp F3,Ax ;

Je exit ;

Metka5: ;

Mov Bx,F2 ;

MOV F3,BX ;

Exit: ;

end;

writeln('Значение функции F1=',F1);

writeln('Значение функции F2=',F2);

writeln('Значение функции F3=',F3);

readln;

end.