Решение задач из главы 6
Primary tabs
7. Вычислите в тетради значения выражений (по шагам как в примерах урока выше):
true AND true = true
false AND false = false
true AND (true AND true) = true
true OR false = true
true OR true = true
true OR true AND false = true
false OR true AND true = true
false OR (true AND true) = true
true OR (true AND true) = true
true OR (false AND true) OR true = true
true OR (false AND true) OR true AND false = true
8. Вычислите в тетради значения выражений (по шагам как в примерах урока выше):
- true AND true OR (5>8)
true AND true OR (false)
= true
- false AND false OR (8>=8)
false AND false OR (true)
= true
true AND ((5
true AND ((true) AND true)
true AND (true)
= true
- true OR (8=9) OR false
true OR (false) OR false
= true
- true OR ((77+5)>99)
true OR (false)
= true
- true OR (55 + 2
true OR (true) AND false
= true
- (2=2) OR true AND true
(true) OR true AND true
= true
- false OR (true AND true AND (22 > 4))
false OR (true AND true AND (true))
false OR (true)
= true
9. Сравните число 8 и число 9.55, выведите результат сравнения на экран.
program nine; var a : integer; b : real; c, d : boolean; begin a := 8; b := 9.55; c := a > b; d := a < b; writeln('8 > 9.55 ', c); writeln('8 < 9.55 ', d); readln();readln(); end.
10. Пользователь вводит два значения, одно целое, а другое вещественное, проверьте больше ли первое число второго, выведя на экран надпись (как это делается в примерах выше).
program ten; var a : integer; b : real; c : boolean; begin writeln('Vvedite zeloe chislo:'); read(a); writeln('Vvedite veshestvennoe chislo:'); read(b); c := a > b; writeln('Pervoe chislo bolshe vtorogo: ', c); readln();readln(); end.
11. Даны два целых числа: A и B. Проверить истинность высказывания: «Сумма чисел A и B больше 12».
program eleven; var a : integer; b, c : real; d : boolean; begin a := 3; b := 5.3; c := a + b; d := c > 12; writeln('Summa chisel ', a, ' i', b, ' bolshe 12 = ', d); readln(); end.
12. Даны три целых числа: A, B, C. Проверить истинность высказывания: «Число A находится между числами B и C».
program twelve; var a, b, c : integer; b1, b2 : boolean; begin write('Vvedite tri zelyh chisla (A, B, C):'); read(a, b, c); b1 := (B > A) and (B < C); b2 := (B > C) and (B < A); writeln('Chislo B nahoditsa mezhdu chislami A i C - ', b1 or b2); readln(); end.
13. Даны три целых числа: A, B, C. Проверить истинность высказывания: « Число A и число B больше 17, а C > 7».
program thirteen; var a, b, c : integer; b1 : boolean; begin write('Vvedite tri zelyh chisla (A, B, C):'); read(a, b, c); b1 := (A > 17) and (B > 17) and (C > 7); writeln('Chisla A i B bolshe 17, a chislo C bolshe 7 - ', b1); readln(); end.
14. Пользователь вводит четыре числа, проверьте, что первое больше третьего и при этом (одновременно второе меньше четвертого).
program fourteen; var a, b, c, d : integer; e : boolean; begin write('Vvedite chetyre zelyh chisla (A, B, C, D):'); read(a, b, c, d); e := (A > C) and (B < D); writeln('Chislo A bolshe chisla C, a chislo B menshe chisla D - ', e); readln(); end.
- Log in to post comments
- 1872 reads
vedro-compota
Sat, 09/12/2020 - 20:40
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)