Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Лабораторная работа 7 по ОЭВМ / LB7
.PAS USES CRT;
VAR PROC:STRING;
LABEL B20,B30,EXIT;
BEGIN
CLRSCR;
WRITELN('‚‚…„€’… ‘’ђЋЉ“ ‡Ђѓ‹Ђ‚Ќ›Њ€ ‹Ђ’.‘€Њ‚Ћ‹ЂЊ€ ');
READLN(PROC);
ASM
LEA BX,proc+1
MOV CX,31
B20:
MOV AH,[BX]
CMP AH,41H
JB B30
CMP AH,5AH
JA B30
OR AH,00100000B
MOV [BX],AH
B30:
INC BX
LOOP B20
EXIT:
END;
WRITELN(PROC);
READLN;
END.
VAR PROC:STRING;
LABEL B20,B30,EXIT;
BEGIN
CLRSCR;
WRITELN('‚‚…„€’… ‘’ђЋЉ“ ‡Ђѓ‹Ђ‚Ќ›Њ€ ‹Ђ’.‘€Њ‚Ћ‹ЂЊ€ ');
READLN(PROC);
ASM
LEA BX,proc+1
MOV CX,31
B20:
MOV AH,[BX]
CMP AH,41H
JB B30
CMP AH,5AH
JA B30
OR AH,00100000B
MOV [BX],AH
B30:
INC BX
LOOP B20
EXIT:
END;
WRITELN(PROC);
READLN;
END.