Конспект лекций по программированию для начинающих. Гладков В.П. - 63 стр.

                                         65

   Пример 9.18. Записать на Паскале высказывание «Хотя бы один из трех
друзей не имеет карманных денег».
   Решение. В обозначениях примера 9.15 заданное условие запишется так:
(b<=0) or (k<=0) or (p<=0).
   Упражнение. Условия упражнений 9.15 - 9.18 связаны друг с другом в том
смысле, что они образуют пары: условие и его отрицание. Найдите эти пары.
    Пример 9.19. Записать на Паскале высказывание «Только один из друзей
имеет карманные деньги».
    Решение. В обозначениях примера 9.15 заданное условие запишется так:
((b>0) and (k<=0) and (p<=0)) or ((b<=0) and (k>0) and (p<=0)) or ((b<=0) and
(k<=0) and (p>0)).
    Пример 9.20. Записать на Паскале высказывание «Целые n и k имеют
одинаковую четность».
    Решение. Числа имеют одинаковую четность, если их остатки от деления
совпадают, поэтому n mod 2 = k mod 2.
    Можно воспользоваться стандартной функцией odd(i): odd(n)=odd(k).
    Пример 9.21. Записать на Паскале высказывание «Числа x,y,z равны между
собой».
    Решение. Заданное высказывание можно записать так: (x=y) and (x=z).
    Упражнение. Приведите другие варианты записи этого высказывания.
Сколько всего вариантов записи возможно?
   Пример 9.22. Записать на Паскале высказывание «Из чисел x,y,z только два
равны между собой».
   Решение. Вариант записи: (x=y) and (x<>z) or (x=z) and (x<>y) or (y=z) and
(x<>y).
   Упражнение. Приведите другие варианты записи этого высказывания.
Сколько всего вариантов записи возможно?
   Пример 9.23. Записать на Паскале высказывание «Цифра три входит в
десятичную запись трехзначного целого числа».
   Решение. Вариант записи: (k div 100=3) or (k div 10 mod 10=3) or (k mod
10=3).

                9.3. Построение ветвящихся алгоритмов
   Пример 9.24. Найти максимальное из двух заданных значений.
   Составим спецификацию. Дано: a,b - вещественные числа. Получить:
m=max(a,b).
   Решение. Достаточно сравнить заданные числа. Если в результате сравнения
большим числом окажется a, то его присвоить переменной m. В противном
случае переменной m присваиваем число b. Получаем такое решение:

   program vet1;
   var      a,b:real; { исходные числа }
            m:real; { результат: max(a,b) }
   begin    write('Введите два числа ');