МЕТОДИЧКА ПО ФУНКЦИОНАЛЬНЫМ БЛОКАМ КОМПЬЮТЕРА

Лабораторная работа № 6. Использование логических инструкций процессора

Цель: Выяснить, где и как можно использовать логические операции.

Листинг 7. Программа для изучения логических инструкций процессора:

Program logic;

Const num=$a0f0; mask=$50ff; Var i: integer;

Procedure binPrint(b:word); {двоичный вывод} Var m:word;

Begin

m:=$8000; {bin=10…00} FOR i:=1 to 16 do

Begin

If (b and m)=0 then Write(‘0’) else Write(‘1’); If (I mod 4)=0 then Write(‘ ‘);

m:=m shr 1 end;

Writeln;

End; BEGIN

binPrint(num);

binPrint(mask);

Writeln(‘Логическая операция OR: ’); binPrint(num OR mask); Writeln(‘Логическая операция AND: ’); binPrint(num AND mask); Writeln(‘Логическая операция XOR: ’); binPrint(num XOR mask);

END.

Задание: получить результат выполнения программы.

11

Листинг 8. Программа, иллюстрирующая смену регистра латинских букв:

Program change_case; Var s: string;

i: integer; BEGIN

Writeln(‘ Input text: ’); Readln(s);

For i:=1 to length(s) do

If (s[i]>=’a’) and (s[i]<=’z’) then s[i]:=chr(ord(s[i]) and $df);

Writeln(s);

For i:=1 to length(s) do

If (s[i]>=’A’) and (s[i]<=’Z’) then s[i]:=chr(ord(s[i]) or $20);

Writeln(s);

END.

Задание: получить результат выполнения программы.

Листинг 9. Программа шифрования текста с использованием операции XOR:

Program shifr; Var s: string; i: integer;

BEGIN

Write(‘Введите свой текст: ’); Readln(s);

FOR i:=1 to length(s) do s[i]:=chr(ord(s[i]) XOR i); Writeln(‘Зашифрованный текст: ’, s);

FOR i:=1 to length(s) do s[i]:=chr(ord(s[i]) XOR i); Writeln(‘Расшифрованный текст: ’, s);

END.

Задание: получить результат выполнения программы. Сделать вывод.

12

Список литературы

1.Гук М.Ю. Аппаратные средства IBM PC. Энциклопедия. – 3-е

зд. – СПб.: Питер, 2006. – 1072 с.

2.Поворознюк А.И. Архитектура компьютера. Архитектура микропроцессорного ядра и системных устройств. Часть 1. – Харьков: Торнадо, 2004. – 355 с.

3.Таненбаум Э. Архитектура компьютера. – 5-е изд. – СПб.: Пи-

тер, 2007. – 844 с.

13

Учебное издание

Составитель Фетинина Елена Павловна

ФУНКЦИОНАЛЬНЫЕ БЛОКИ КОМПЬЮТЕРА Часть 1.

Методические указания к лабораторным работам по дисциплине «Архитектура ЭВМ и систем».

Специальность 080801 «Прикладная информатика (в управлении)»

Редактор Н.И. Суганяк

Подписано в печать Формат бумаги 60×841/16. Бумага писчая. Печать офсетная.

Усл. печ. л. Уч. изд. л. Тираж экз. Заказ

Сибирский государственный индустриальный университет, 654007, г. Новокузнецк, ул. Кирова, 42.

Типография СибГИУ.

14