Текст программы

Program NOD;

{Определение наибольшего общего делителя двух натуральных чисел.

Входные данные: a, b - натуральные числа.

Выходные данные: x - натуральное число.}

Var

a,b,x,y:1..255; {описание переменных типа диапазон}

Begin

{$R+} {установка режима контроля диапазона значений}

Write('Введите два натуральных числа: '); {вывод запроса на экран}

ReadLn(a,b); {ввод данных с клавиатуры через пробел}

x:=a; {начальные установки}

y:=b;

While x<>y {Цикл Пока x не равно y}

Do If x>y {повторять, если x больше y}

Then x:=x-y {то замена x}

Else y:=y-x; {иначе замена y}

WriteLn('НОД(',a,',',b,')=',x); {вывод результата на экран}

End.

Лабораторная работа №3 Поразрядные логические операции

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

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

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

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

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

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

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

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

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

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

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

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

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

1.

27 AND 81

-27 XOR 81

107 SHR 3

NOT 27 XOR -81 AND (-27 OR NOT 90)

2.

15 AND 111

15 OR -111

111 SHR 3

NOT 15 OR (NOT 111 XOR -15) AND 61

3.

17 AND 97

17 XOR -97

17 SHL 2

-17 AND (NOT 85 OR -30) XOR NOT 97

4.

37 AND 83

-37 OR 83

37 SHL 1

NOT 37 XOR -31 AND (NOT 83 OR -19)

5.

-81 OR 42

81 XOR 42

42 SHL 1

(NOT 81 OR -42) AND NOT -91 XOR 14

6.

65 AND 35

65 XOR -35

35 SHL 2

NOT 35 AND -65 XOR (NOT 27 OR -80)

7.

109 OR -17

109 AND 17

17 SHL 2

(17 OR NOT –109) AND NOT –70 XOR 35

8.

107 OR -49

107 XOR 49

49 SHL 1

(NOT 107 XOR -60) AND 49 XOR NOT -112

9.

72 AND 27

72 OR -27

72 SHR 2

NOT 27 XOR -72 AND (NOT 47 OR -19)

10.

106 AND 12

106 XOR -12

106 SHR 2

NOT -106 XOR 12 AND (NOT 88 OR -26)

11.

95 AND -18

95 XOR 18

95 SHR 2

NOT 95 OR -18 AND (NOT 74 OR -91)

12.

109 AND 24

109 OR -24

109 SHR 3

NOT 109 AND -24 OR (13 AND NOT -89)

13.

47 AND 11

47 XOR -11

47 SHL 1

11 OR NOT -47 AND (104 OR NOT 36)

14.

98 AND -25

98 XOR 25

98 SHR 3

NOT -98 OR 25 AND (46 XOR NOT -29)

15.

100 AND 17

100 OR -17

100 SHR 3

100 OR NOT -17 AND (NOT 36 OR -11)

16.

107 AND -15

107 XOR 15

107 SHR 3

107 XOR NOT -15 AND (NOT 52 OR -75)

17.

105 AND 13

105 XOR -13

105 SHR 4

105 OR NOT -13 AND (NOT 86 XOR -41)

18.

109 AND 18

109 OR -18

109 SHR 3

109 OR NOT -18 AND (NOT 58 XOR -65)

19.

95 AND 20

95 OR -20

95 SHR 2

20 XOR NOT -95 AND (NOT 20 OR -37)

20.

84 AND 35

84 XOR -35

35 SHL 2

84 XOR NOT -35 AND (NOT 22 OR -91)

21.

12 AND 111

12 OR -111

12 SHL 3

12 XOR NOT -111 AND (NOT 48 XOR -67)

22.

110 AND 13

110 OR -13

110 SHR 2

110 OR NOT -13 AND (NOT 80 OR -25)

23.

104 AND 11

104 XOR 11

104 SHR 2

104 XOR NOT -11 AND (NOT 36 XOR -75)

24.

106 AND 21

106 XOR -21

106 SHR 3

106 OR NOT -21 AND (NOT 66 XOR -77)

25.

101 AND 18

101 OR -18

101 SHR 3

101 XOR NOT -18 AND (NOT 90 OR -53)

26.

105 AND 18

105 XOR -18

105 SHR 3

NOT 105 XOR -18 AND (-56 OR NOT 21)

27.

108 AND 11

108 XOR -11

108 SHR 3

108 XOR NOT -11 AND (NOT 76 OR 35)

28.

81 AND 24

81 XOR -24

81 SHL 1

81 XOR NOT -24 AND (NOT 76 OR 61)

29.

105 AND -15

105 XOR 15

105 SHR 2

NOT 105 AND -15 XOR (NOT 77 OR -70)

30.

-99 OR -27

99 AND 27

99 SHL 1

(27 OR NOT -99) AND NOT -90 XOR -37

31.

97 OR -29

97 XOR 29

97 SHR 3

(NOT 97 XOR -29) AND 39 XOR NOT -22

32.

79 AND 24

79 OR -24

79 SHL 1

NOT 79 AND -24 OR (33 AND NOT 69)

33.

87 AND 11

87 XOR -11

11 SHL 3

11 OR NOT -87 AND (106 OR NOT 39)

34.

48 AND -25

48 XOR 25

48 SHR 2

NOT -48 OR -25 AND (116 XOR NOT -9)

35.

10 AND 117

10 OR -117

10 SHL 3

(10 OR NOT -117) AND NOT 36 OR -11

36.

17 AND -115

17 XOR 115

17 SHL 3

17 XOR NOT -115 AND (NOT 42 OR -65)

37.

15 AND 103

15 XOR -103

15 SHL 4

(15 OR NOT -103) AND NOT 26 XOR -71

38.

19 AND 108

19 OR -108

19 SHL 3

(19 XOR NOT -108) AND (NOT 78 XOR -35)

39.

14 AND 120

14 OR -120

120 SHR 2

(120 XOR NOT -14) AND NOT 40 OR -67

40.

19 AND 102

19 XOR -102

19 SHL 3

(NOT -19 XOR 102) AND (NOT 18 OR -96)

41.

95 AND -18

95 XOR 18

95 SHR 2

NOT 95 OR -18 AND (NOT 74 OR -91)

42.

109 AND 24

109 OR -24

24 SHL 2

NOT 109 AND -24 OR (13 AND NOT -89)

43.

47 AND 11

47 XOR -11

11 SHR 3

11 OR NOT -47 AND (104 OR NOT 36)

44.

98 AND -25

98 XOR 25

98 SHL 1

NOT -98 OR 25 AND (46 XOR NOT -29)

45.

100 AND 17

100 OR -17

100 SHR 2

100 OR NOT -17 AND (NOT 36 OR -11)

46.

107 AND -15

107 XOR 15

15 SHL 3

107 XOR NOT -15 AND (NOT 52 OR -75)

47.

105 AND 13

105 XOR -13

13 SHL 3

105 OR NOT -13 AND (NOT 86 XOR -41)

48.

109 AND 18

109 OR -18

18 SHL 3

109 OR NOT -18 AND (NOT 58 XOR -65)

49.

95 AND 20

95 OR -20

95 SHR 2

20 XOR NOT -95 AND (NOT 20 OR -37)

50.

84 AND 35

84 XOR -35

33 SHL 2

84 XOR NOT -35 AND (NOT 22 OR -91)