Курсовая работа: Устройство для измерения температуры в индустриальных системах и разработка программы для вывода

program Kurs;

uses crt;

var t1,t2,t3,t4:byte;

i,j:longint;

begin;

for i:=1 to 1000 do

begin

clrscr;

asm

{1 датчик}

xor bx,bx

mov ah,02h

mov dx,00h

int 17h

shr ah,4

mov bh,ah

mov ah,02h

mov dx,00h

int 17h

shr ah,4

shl ah,4

add ah,bh

mov t1,ah

{2 датчик }

xor bx,bx

mov ah,02h

mov dx,00h

int 17h

shr ah,4