Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Лабораторная работа №6 / 6_1 / LAB6_1
.PASPROGRAM MASM;
FUNCTION SUM(C,D:WORD):WORD; EXTERNAL; {$L 6_3.OBJ}
FUNCTION DED(B,C:WORD):WORD; EXTERNAL; {$L 6_2.OBJ}
PROCEDURE PAR(A,B:WORD); EXTERNAL; {$L 6_1.OBJ}
LABEL ERRN;
VAR ER:WORD; A,B,C,D:WORD;
BEGIN
WRITELN('‹ Ў®а в®а п а Ў®в ь6_1');
WRITELN('ЏаҐЇ®¤ ў ⥫м: “«Ёв®ўбЄЁ© ‚ бЁ«Ё© Ђ«ҐЄбҐҐўЁз');
WRITELN('Ђўв®а: ’®Ў®«м Ђ«ҐЄб ¤а');
WRITELN('Џа®Ја ¬¬ бзЁв Ґв дгЄжЁо: a/(b-c+d)');
WRITELN;
WRITE('‚ўҐ¤ЁвҐ a: ');
READLN(A);
WRITE('‚ўҐ¤ЁҐв b: ');
READLN(B);
WRITE('‚ўҐ¤ЁвҐ c: ');
READLN(C);
WRITE('‚ўҐ¤ЁҐв d: ');
READLN(D);
B:=SUM(B,D);
IF ER<>0 THEN GOTO ERRN;
B:=DED(B,C);
IF ER<>0 THEN GOTO ERRN;
PAR(A,B);
IF ER<>0 THEN GOTO ERRN;
WRITE('— бв®®Ґ: ',A, ' Ћбв в®Є: ',b);
ERRN:
IF ER=1 THEN WRITE('„Ґ«ҐЁҐ ®«м');
IF ER=2 THEN WRITE('‡ с¬ ЇаЁ ўлзЁв ЁЁ');
IF ER=3 THEN WRITE('ЏҐаҐЇ®«ҐЁҐ ЇаЁ б«®¦ҐЁЁ');
READLN;
END.