Умение прочесть фрагмент программы на языке программирования и исправить допущенные ошибки С1, время – 30 мин, П, 3 балла
(x >= 5) (x
(x >= -2)and(x
(x >= -5)and(x = 1)and(x
(x > -5)and(x < -2) (x > 1)and(x < 6)or х Є (-5;-2) (1;6)
х Є [-3;1] [5;9] (x >= -3)and(x = 5)and(x
Требовалось написать программу, при выполнении которой с клавиатуры считывается координата точки на прямой (x – действительное число) и определяется принадлежность этой точки одному из выделенных отрезков В и D (включая границы). Программист торопился и написал программу неправильно. var x: real; begin readln(x); if x>=-3 then if x1 then write('не принадлежит') else write('принадлежит') end. Последовательно выполните следующее. 1. Перерисуйте и заполните таблицу, которая показывает, как работает программа при аргументах, принадлежащих различным областям (A, B, C, D и E). Границы (точки –3, 1, 5 и 9) принадлежат заштрихованным областям (B и D соответственно).
Область Условие 1 x>=-3 Условие 2 x1 Программа выведет верно? A B C D E var x: real; begin readln(x); if x>=-3 then if x1 then write('не принадлежит') else write('принадлежит') end.
var x: real; begin readln(x); if x>=-3 then if x1 then write('не принадлежит') else write('принадлежит') end. x>=-3 нетда x1 да нет принадлежит
x>=-3 нетда x1 да нет принадлежит Область Условие 1 x>=-3 Условие 2 x1 Программа выведет верно? A B C D E "" (прочерк), если условие не будет проверяться Если программа ничего не выводит, напишите "" (прочерк).
x>=-3 нетда x1 да нет принадлежит Область Условие 1 x>=-3 Условие 2 x1 Программа выведет верно? A B C D E
var x: real; begin readln(x); if x>=-3 then if x1 then write('не принадлежит') else write('принадлежит') end. 2. Укажите, как нужно доработать программу, чтобы не было случаев её неправильной работы. (Это можно сделать несколькими способами, достаточно указать любой способ доработки исходной программы.)
var x: real; begin readln(x); if (x >= -3)and(x = 5)and(x