Практическая работа по информатике "Решение системы линейных уравнений в PascalABC"

ПРАКТИЧЕСКОЕ ЗАНЯТИЕ

ОПЕРАТОР УСЛОВНОГО ПЕРЕХОДА   (сложные логические связки)

При сложных условиях применяются логические связки:

And    - истинно, когда истинны все составляющие логические выражение

            Пример: ((x>=0) and (x<=5)) истинно для x из интервала [0;5] и ложно при x=6

Not      - истинно, когда ложно исходное логическое выражение

            Пример: not(x>=0) истинно для x=-5 и ложно для x=6

Or       - истинно, когда истинно хотя бы одно из логических выражений

            Пример: ((a<5) or (a>9)) истинно для a=2 и ложно для a=6

                                      при x<0

Вычислить: Y=                    

                                      при x ³0

Program Primer;

  var x: integer;

Begin

  write('Введите значение x=') ; readln(x);

  if x<0 then write(' Y1=',1/(x-1))

            else   write(' Y1 - не существует по условию');

  if (x>=0) and (x<>5) then write(' Y2=',1/(x-5))

                                     else  write(' Y2 - не существует по условию');

End.

                   З А Д А Н И Я:

1. Набрать программу и проверить ее работу для Х: -2, 1, 5, 6.

2. Эту же задачу решить для условия:

   1)  Х<0 или Х=5 или Х=8

   2)  Х>=0 и Х<>5 и Х<>6

   Проверить работу программы для Х: -2,  0,  2,  5,  6,  8,  9.

3. Эту же задачу решить для условия:       1)  -2<=Х<=5    Х<>1 ,

2)  -1<=Х<=8    Х<>5

   Проверить все контрольные точки: -3,  -2,  -1,  0,  1,  5,  8,  9.