Файл: Лабораторная работа 1 1 логические операции not, and, or в условии.docx
ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 05.12.2023
Просмотров: 117
Скачиваний: 1
ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.
Лабораторная работа №1 1 ЛОГИЧЕСКИЕ ОПЕРАЦИИ NOT, AND, OR В УСЛОВИИЗадание. Запишите в тетрадь и вычислите значения выражений при a = 10, b = 20, c = true, d = false:а) (a > 5) and (b > 5) and (a < 20) and (b < 30);б) not (a < 15) or not (b < 30);в) c or d and (b = 20).Решение.а) (10 > 5) and (20> 5) and (10< 20) and (20< 30) = = true and true and true and true = true;б) not (10< 15) or not (20< 30) = not(true) or not(true) = false or false = false;в) c or d and (20=20) = true or false and true = true or false = true.Упражнения для самостоятельной работы
а) a and b or not c and d;Решение:1) a and b; 2) not c; 3) not c and d; 4) (a and b) or (not c and d)б) (x >= 0) or not c and d.Решение:1) not c; 2) not c and d; 3) (x>=0) or not c and d;
BeginWrite('введите натуральное число меньше 1000:');Readln(x);d:=x mod 10;If d=1 Then Write(x,' рубль') Else if (d=2)or(d=3)or(d=4) Then Write(x,' рубля') Else Write(x,' рублей');End.Задание (с условными операторами).Ответ:Условный оператор:if (a <= b) and (b <= c) then begina := sqr(a);b := sqr(b);c := sqr(c);end;Вложенный условный оператор:if (a <= b) and (b <= c) then begina := sqr(a);b := sqr(b);c := sqr(c);endelseif (a > b) and (b > c) then beginb := a;c := a;end;Составной оператор:begina := sqr(a);b := sqr(b);c := sqr(c);endБулево условие:a > b) and (b > c).Задачи для самостоятельного решенияВариант 1. Найти наибольшее из трех данных чисел.Решение.Program max3;Var n1, n2, n3, max: integer;Beginwrite('Введите три числа: ');readln(n1, n2, n3);if n1 > n2 then max := n1else max := n2;if n3 > max then max := n3; writeln ('Максимальное из трех чисел: ', max);end.
-
Вычислите значения выражения:
-
Записать на Паскале отношение, истинное при выполнении указанного условия и ложное в противном случае:
-
Указать порядок выполнения операций при вычислении выражений:
а) a and b or not c and d;Решение:1) a and b; 2) not c; 3) not c and d; 4) (a and b) or (not c and d)б) (x >= 0) or not c and d.Решение:1) not c; 2) not c and d; 3) (x>=0) or not c and d;
-
Вычислить следующие выражения при a = True, b = False:
-
Записать на Паскале выражение, истинное при выполнении указанного условия и ложное в противном случае:
-
Какими будут значения переменных j, k после выполнения условного оператора:
-
Написать программу, которая после введенного с клавиатуры числа (1 –999), обозначающего денежную единицу, дописывает слово «рубль» в правильной форме. Например, 3 рубля, 12 рублей, 21 рубль.
BeginWrite('введите натуральное число меньше 1000:');Readln(x);d:=x mod 10;If d=1 Then Write(x,' рубль') Else if (d=2)or(d=3)or(d=4) Then Write(x,' рубля') Else Write(x,' рублей');End.Задание (с условными операторами).Ответ:Условный оператор:if (a <= b) and (b <= c) then begina := sqr(a);b := sqr(b);c := sqr(c);end;Вложенный условный оператор:if (a <= b) and (b <= c) then begina := sqr(a);b := sqr(b);c := sqr(c);endelseif (a > b) and (b > c) then beginb := a;c := a;end;Составной оператор:begina := sqr(a);b := sqr(b);c := sqr(c);endБулево условие:a > b) and (b > c).Задачи для самостоятельного решенияВариант 1. Найти наибольшее из трех данных чисел.Решение.Program max3;Var n1, n2, n3, max: integer;Beginwrite('Введите три числа: ');readln(n1, n2, n3);if n1 > n2 then max := n1else max := n2;if n3 > max then max := n3; writeln ('Максимальное из трех чисел: ', max);end.