С1
Требовалось написать программу, в которой нужно было проверить, лежит ли число x на числовой оси между числами a и b ("между" понимается в строгом смысле, т.е. случай x=a или x=b недопустим). Числа x, a, b являются натуральными, и известно, что a отлично от b (но неизвестно: a>b или b>a). Входная информация вводится с клавиатуры, а на выходе должно быть сообщение вида "x между a и b" (если это действительно так), в противном случае никакой выходной информации не выдается.
Программист торопился и написал программу некорректно.
|
ПРОГРАММА НА ПАСКАЛЕ |
ПРОГРАММА НА БЕЙСИКЕ |
|
VAR a,b,x: integer;
p: integer;
BEGIN
readln(a,b,x);
if (a>x) AND (x>b) then
writeln('x между a,b');
END. |
CLS
INPUT a, b, x
IF (a>x) AND (x>b) THEN
PRINT “x между a, b”
END |
Последовательно выполните три задания:
1) Приведите пример таких чисел a, b, x, при которых программа работает неправильно.
2) Укажите, как нужно доработать программу, чтобы не было случаев ее неправильной работы. (Это можно сделать несколькими способами, поэтому можно указать любой способ доработки исходной программы).
3) Укажите, как можно доработать программу, соблюдая дополнительное условие: доработанная программа не должна использовать логических операций AND или OR.
