5. Написать учебную программу на ассемблере, которая: • заполнит регистры AX,BX,CX,DX числами KH,LM,KL,MH соответственно
• выполнит инверсию регистра DX
• выполнит инверсию регистра AH
• выполнит логическое сложение регистров AX и BX, результат запишет в AX
• выполнит логическое умножение регистров AH и BL, результат запишет в AH
• выполнит сложение по модулю два (XOR) регистров BX и CX, результат запишет в CX
// 1/R = 1/r1 + 1/r2
// 1/R = (r2+r1)/(r2*r1)
// R = r2*r1 / (r2 + r1)
//Закон Ома для участка цепи:
// I = U/R
var
r1,r2,u : integer;
R,I : real;
begin
writeln ('Введите значения сопротивления (r1 r2)');
readln (r1,r2);
writeln ('Укажите напряжение на концах цепи (u)');
readln (u);
R := r2*r1 / (r2 + r1);
I := U/R;
//Фактически можно не использовать переменную R
//А вставить выражение сразу
// I := U/( r2*r1 / (r2 + r1) );
writeln ('Сила тока на участке = ',I);
end.