Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
13
Добавлен:
01.05.2014
Размер:
913 б
Скачать
PROGRAM 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.
Соседние файлы в папке 6_1
  • #
    01.05.2014248 б146_1.OBJ
  • #
    01.05.2014323 б146_2.ASM
  • #
    01.05.2014201 б136_2.OBJ
  • #
    01.05.2014322 б136_3.ASM
  • #
    01.05.2014201 б136_3.OBJ
  • #
    01.05.2014913 б13LAB6_1.PAS