Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

Лабораторная работа №6

.PAS
Скачиваний:
6
Добавлен:
01.05.2014
Размер:
723 б
Скачать
PROGRAM MASM;
FUNCTION SUM(C,D:WORD):WORD; EXTERNAL; {$L lr63.OBJ}
FUNCTION mult(a,b:WORD):WORD; EXTERNAL; {$L lr62.OBJ}
PROCEDURE PAR(b,c:WORD); EXTERNAL; {$L lr61.OBJ}
LABEL ERRN;
VAR ER:WORD; A,B,C,D:WORD;
BEGIN
  WRITELN('‹ Ў®а в®а­ п а Ў®в  ь6');
  WRITELN('Џа®Ја ¬¬  бзЁв Ґв дг­ЄжЁо: a*(b/c+d)');
  WRITELN;
  WRITE('‚ўҐ¤ЁвҐ a: ');
  READLN(A);
  WRITE('‚ўҐ¤ЁҐв b: ');
  READLN(B);
  WRITE('‚ўҐ¤ЁвҐ c: ');
  READLN(C);
  WRITE('‚ўҐ¤ЁҐв d: ');
  READLN(D);
  par(B,c);
  IF ER<>0 THEN GOTO ERRN;
  B:=sum(B,d);
  IF ER<>0 THEN GOTO ERRN;
  a:=Mult(A,B);
  WRITE('Otvet: ',A);
  ERRN:
  IF ER=1 THEN WRITE('„Ґ«Ґ­ЁҐ ­  ­®«м');
  IF ER=3 THEN WRITE('ЏҐаҐЇ®«­Ґ­ЁҐ ЇаЁ б«®¦Ґ­ЁЁ');
  READLN;
END.

Тут вы можете оставить комментарий к выбранному абзацу или сообщить об ошибке.

Оставленные комментарии видны всем.