Решение задач из главы 6

Решение задач из главы 6

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.