Управляющая структура «Следование»

Цель лабораторной работы: изучение концепций и освоение технологии структурного программирования, приобретение навыков структурного программирования на языке Турбо Паскаль при решении простейших вычислительных задач.

Задание на программирование: используя технологию структурного программирования, разработать линейную программу решения индивидуальной вычислительной задачи.

Порядок выполнения работы:

1) Получить у преподавателя индивидуальное задание и выполнить постановку задачи: сформулировать условие, определить входные и выходные данные.

2) Разработать математическую модель вычислений.

3) Выполнить все необходимые вычисления вручную и принять полученные результаты в качестве контрольных значений.

4) Построить схему алгоритма решения задачи.

5) Составить программу на языке Турбо Паскаль.

6) В программе использовать исходные данные типа shortint, а тип результата – byte.

7) Выходные данные (сообщения)выводить на экран в развернутой форме.

8) Проверить и продемонстрировать преподавателю работу программы.

9) Оформить отчет о лабораторной работе в составе: постановка задачи, математическая модель, схема алгоритма решения, текст программы.

Варианты индивидуальных заданий

Выполнить поразрядные логические операции над машинными кодами

117 AND 90

-117 XOR 90

117 → 3

NOT 21 XOR –13 AND (-23 OR NOT 9)

115 AND 106

115 OR -106

115 → 4

NOT 17 OR (NOT 111 XOR –19) AND 91

107 AND 37

107 XOR -37

25 ← 2

-21 AND (NOT 75 OR –20) XOR NOT 59

27 AND 13

-27 OR 13

27 ← 2

NOT 21 XOR –3 AND (NOT 26 OR –13)

-21 OR 43

21 XOR 43

43 ← 1

(NOT 19 OR –6) AND NOT –9 XOR 4

55 AND 15

55 XOR -15

15 ← 3

NOT 7 AND –5 XOR (NOT 127 OR –8)

99 OR -17

99 AND 17

17 ← 2

(18 OR NOT –8) AND NOT –7 XOR 3

29 OR -49

29 XOR 49

49 ← 2

(NOT 8 XOR –6) AND 9 XOR NOT -12

42 AND 17

42 OR -17

42 → 3

NOT 25 XOR –4 AND (NOT 22 OR –10)

36 AND 12

36 XOR 12

36 ← 2

NOT –3 XOR 15 AND (NOT 8 OR –6)

25 AND 18

25 XOR 18

25 ← 2

NOT 23 OR –4 AND (NOT 24 OR –9)

39 AND 14

39 OR -14

39 ← 1

NOT 17 AND –5 OR (25 AND NOT –9)

49 AND 11

49 XOR 11

49 → 2

15 OR NOT –3 AND (14 OR NOT 16)

108 AND 35

108 XOR 35

31 ← 2

NOT –7 OR 8 AND (26 XOR NOT –9)

120 AND 37

120 OR -37

120 → 2

85 OR NOT –9 AND (NOT 46 OR –13)

117 AND 80

117 XOR 80

117 → 3

105 XOR NOT –15 AND (NOT 82 OR –25)

125 AND 14

125 XOR 14

100 → 4

110 OR NOT –25 AND (NOT 46 XOR –11)

119 AND 18

119 OR -18

119 → 3

80 OR NOT –11 AND (NOT 48 XOR –15)

125 AND 20

125 OR -20

50 ← 2

40 OR NOT –19 AND (NOT 50 XOR –7)

94 AND 15

94 XOR 15

94 → 2

86 XOR NOT –17 AND (NOT 40 OR –9)

102 AND 31

102 OR -31

102 → 3

35 XOR NOT –9 AND (NOT 28 OR –17)

90 AND 11

90 OR -11

20 ← 2

17 XOR NOT –11 AND (NOT 30 OR –15)

74 AND 111

74 XOR 111

54 ← 1

28 OR NOT –13 AND (NOT 16 XOR –25)

36 AND 21

36 XOR 21

26 ← 2

14 OR NOT –15 AND (NOT 26 XOR –17)

61 AND 18

61 OR -18

61 ← 1

9 XOR NOT –21 AND (NOT 60 OR –5)

75 AND 26

75 XOR 26

22 ← 2

NOT 80 XOR –31 AND (-16 OR NOT 11)

81 AND 14

81 XOR 14

81 ← 3

70 XOR NOT –11 AND (NOT 36 OR 15)

111 AND 14

111 XOR 14

11 ← 3

15 XOR NOT –9 AND (NOT 26 OR 31)

Пример программы

Program Log_Oper;

{Выполнение поразрядных логических операций над целыми числами}

Uses crt;

Var

a,b,c,d:Shortint;

e:Byte;

Begin

clrscr;

a := 111;

b := -111;

c := 12;

d := -12;

e := a AND d;

WriteLn('111 AND -12 =',e,' (контр. значение 100)');

e := b AND d;

WriteLn('-111 AND -12 =',e,' (контр. значение 144)');

e := a OR c;

WriteLn('111 OR 12 =',e,' (контр. значение 111)');

e := a XOR c;

WriteLn('111 XOR 12 =',e,' (контр. значение 99)');

e := a shr 2;

WriteLn('111 >> 2 =',e,' (контр. значение 27)');

e := c shl 3;

WriteLn('12 << 3 =',e,' (контр. значение 96)');

e := b AND (NOT c OR a) OR d;

WriteLn('-111 AND(NOT12 OR 111)OR -12 =',e,' (контр. знач. 245)');

ReadLn;

End.